哪位大哥知道如何实现动态改变机器IP地址(100分)

  • 主题发起人 主题发起人 .com
  • 开始时间 开始时间
C

.com

Unregistered / Unconfirmed
GUEST, unregistred user!
哪位大哥知道如何实现动态改变机器IP地址
 
例如,把 DNS Server的地址添加为192.0.0.1和192.1.1.0,可调用:
SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0') ;
// 各地址之间用一个空格隔开

1. SetTCPIPDNSAddresses 定义如下:

procedure SetTCPIPDNSAddresses( sIPs : string );
begin
//
// if using Windows NT
//
SaveStringToRegistry_LOCAL_MACHINE(
'SYSTEM/CurrentControlSet' +
'/Services/Tcpip/Parameters',
'NameServer',
sIPs );

//
// if using Windows 95
//
SaveStringToRegistry_LOCAL_MACHINE(
'SYSTEM/CurrentControlSet' +
'/Services/VxD/MSTCP',
'NameServer',
sIPs );
end;

2. 其中 SaveStringToRegistry_LOCAL_MACHINE 定义:
uses Registry;

procedure SaveStringToRegistry_LOCAL_MACHINE(
sKey, sItem, sVal : string );
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString( sKey, sItem, sVal + #0 );
reg.Free;
end;

 
我的朋友参加一个节目。。。。。需要网上支持率。。。。但是一个IP地址只能投一票他让
我帮他提高网上支持率。。。。所以来此求救。。。。也就是说要用IE投票又不让对方察觉
我用的是一个IP。。。。
 
这个是不可以的,除非你把ISP的IP改掉,他不是用你的机器的IP来判断的。
 
简单得很,
只要你能找到代理的话。
在 连接->设置->代理服务器 里加入代理,刷新一下页面就行了。
 
影子哥详细点可不可以。。。。谢谢。。
 
如果机器是动态ip分配的话,将网卡先禁止,然后启用即可得到一新的ip,
不过这一过程好像要花一点时间!
 
那得重起啊。。。。我要投个千八百遍的。。。我的机器不是给累死了。。。而且太慢了
 
如果是拨号(动态IP),可以断线再次拨上。
或者可以用代理服务器。

代理的设置:
如果你是单机上网或者你的机是主机,
IE属性->连接->设置->代理服务器,打勾,填入代理的IP,端口
如果你是通过局域网上网的(单位或者网吧),
IE属性->连接->局域网设置->代理服务器,打勾,填入代理的IP,端口

代理地址在网上搜索看看,
你不会使用代理,说明你也不知道代理是什么,我说了也许是白说。
但有一点,不必要重启。设置本机IP(网卡)与上网的IP是不同的。更改本机IP一点作用也没有。
 
以前用的就是断线的方法。。。。太慢了。。。。一晚上熬的眼睛红的象兔子是的也就是
2000多票如果用代理我想比这还要慢。。。有没更好的办法。。。能否用程序实现。?
 
有很多浏览器都可以快速换代理,但没谁能找到2000多个代理吧?
用断线的方法,不过,作假并不是好行为。
 
哈哈哈!我也想知道!!!
 
例如,把 DNS Server的地址添加为192.0.0.1和192.1.1.0,可调用:

SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0') ;

// 各地址之间用一个空格隔开


1. SetTCPIPDNSAddresses 定义如下:


procedure SetTCPIPDNSAddresses( sIPs : string );

begin

//

// if using Windows NT

//

SaveStringToRegistry_LOCAL_MACHINE(

'SYSTEM/CurrentControlSet' +

'/Services/Tcpip/Parameters'


'NameServer'


sIPs );


//

// if using Windows 95

//

SaveStringToRegistry_LOCAL_MACHINE(

'SYSTEM/CurrentControlSet' +

'/Services/VxD/MSTCP'


'NameServer'


sIPs );

end;


2. 其中 SaveStringToRegistry_LOCAL_MACHINE 定义:

uses Registry;


procedure SaveStringToRegistry_LOCAL_MACHINE(

sKey

sItem

sVal : string );

var

reg : TRegIniFile;

begin

reg := TRegIniFile.Create( '' );

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.WriteString( sKey

sItem

sVal + #0 );

reg.Free;

end;
 
简单:写个程序用不同的IP地址用HTTP协议发出你在IE浏览器点击产生的URL串,不用理会
服务器端的回应(呵,也收不到回应)。
其实这只是一个伪装IP应用
 
SetTCPIPDNSAddresses 函数是在哪里的????
 
写个程序用不同的IP地址用HTTP协议发出你在IE浏览器点击产生的URL串,不用理会
?
请问:如何写?
 

Similar threads

回复
0
查看
978
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部