300分求一程序 ( 积分: 300 )

求一刷票程序,截止2007.9.28,网页限制要求:同一IP只能投一次;同一机器只能投一次(我猜可能是对网卡的MAC地址进行了控制).

呵呵，这都是用滥的玩意，网上很多的！！

可以投票一次换次ip嘛
通过断线再上线的方法就可以实现

在Delphi中程序管理拨号网络
用MODEM拨号上网，仍是大多数个人网民选择上网的方式．如果能在我们的应用程序中管理拨号网络（如Foxmail、Sygate中的拨号功能），无疑将会方便我们的软件用户（不用再切换应用程序，运行拨号网络），提高我们的软件的友好性从而提高软件的竞争力．

在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL，我们可利用其中的函数来获取和设置拨号连接网络的信息。在Delphi帮助文件中，有相关函数的说明。

在此，我们要讨论的管理项目有：
１、获取当前系统中可用的拨号连接名称
２、新建拨号连接、修改拨号连接的属性
３、获取和设置拨号连接的拨号参数
４、用指定的拨号连接拨号、挂断指定的拨号连接
５、获取当前活动的连接及其连接状态

一、获取当前系统中可用的拨号连接名称
即获取系统中已建立的拨号连接的名称，可用来让用户选择使用哪个拨号连接进行拨号．

可以用两种方法来实现．一种是利用RasAPI函数；另一种是不用RasAPI函数，直接在注册表中查询．

１、不用RasAPI函数，直接在注册表中查询
在注册表的HKEY_USERS/.Default/RemoteAccess/Addresses下，列出了已经在拨号网络中建立了的拨号连接的名称及其属性设置，其中各项目的名称即为可用的拨号连接的名称；各项目的值即为各拨号连接的属性设置，不过是二进制串，笔者还看不懂．由此可见，我们只要读出各项目的名称即可获取当前系统中可用的拨号连接名称．

var
registryTemp : TRegistry;
stringsTemp : TStringlist;
begin
registryTemp := TRegistry.Create;
stringsTemp := TStringlist.Create;
with registryTemp do
begin
RootKey := HKEY_USERS;//根键设置为HKEY_USERS
//如果存在子键.Default/RemoteAccess/Addresses
if OpenKey(
'.Default/RemoteAccess/Addresses',false)
then
GetValueNames( stringsTemp );
//读出各项目的名称，即拨号连接名称
end;
combobox1.Items.assign( stringsTemp );
//显示，供选择
end;

２、用RasAPI函数
RasAPI函数RasEnumEntries可获取当前系统中可用的拨号连接名称．其函数原型为

function RasEnumEntries(
reserved : PChar;//保留字段,必须为NIL
lpszPhonebook : PChar;
//电话本名称,在Win9X下无作用,可为空字符串
lprasentryname: LPRASENTRYNAME;
//接收拨号连接名称的缓冲区,
//是一个RASENTRYNAME类型数组的指针
var lpcb : DWORD;
//接收拨号连接名称的缓冲区的大小(Bytes)
var lpcEntries: DWORD
//实际获得的拨号连接名称的数目
)WORD; stdcall;

function RasEnumEntries;external
RasApiDll name 'RasEnumEntriesA';

参数lprasentryname提供了一个RASENTRYNAME类型数组的指针，指向一个接收拨号连接名称的缓冲区，其中RASENTRYNAME及LPRASENTRYNAME的类型说明如下：

LPRASENTRYNAME = ^RASENTRYNAME;
RASENTRYNAME = record
dwSize : DWORD;
//该结构所占内存的大小(Bytes),
//一般设置为SizeOf(RASENTRYNAME)
szEntryName:array[0..RAS_MaxEntryName] of char;
//拨号连接名称
end;

lpcb为缓冲区的大小，一般设置为dwSize的倍数，倍数为可能有的连接的个数．

lpcEntries实际的连接的个数．

下面是一个应用例子，列出了当前系统中可用的拨号连接名称．注意，应在RASENTRYNAME缓冲区的第一个RASENTRYNAME结构中设置dwSize．

const
MaxPhoneEntries = 10;//最多的拨号连接数目
var
intIndex : integer;
PhoneEntries : array[ 0..MaxPhoneEntries - 1 ]
of RASEntryName;
dwSize,dwEntries,dwResult : DWORD;
begin
//在RASENTRYNAME缓冲区的
//第一个RASENTRYNAME结构中设置dwSize
PhoneEntries[ 0 ].dwSize := sizeof( RASEntryName );

dwSize:=MaxPhoneEntries*sizeof(RASEntryName);
//为缓冲区的大小

//调用RasAPI函数，获取当前系统中可用的拨号连接名称
dwResult := RasEnumEntries ( NIL,'',
@PhoneEntries[ 0 ],dwSize, dwEntries );

if dwResult

300分少了。说白了，要钱。
定制各种投票软件
过IP，过验证码，突破来路检测……
QQ:417961930!

要是他记录了网卡地址你有什么办法啊？这个根本不可能修改

mac也是可以修改的啊

可以换动态ip，投一次换一个
再就是可否用代理登录，投一个换一个代理

To linchhero:
要钱就免了，我只是好奇而已。

我试过修改MAC好像也没有用，我是直接在网卡的属性里指定一个MAC号，不知道这种修改是不是没有用的？

记了MAC就不好做了.
不过,只换IP的话,上面我贴的方法就可以了

找到了嗎？？