Win2K如何改IP(100分)

  • 主题发起人 主题发起人 W1979
  • 开始时间 开始时间
W

W1979

Unregistered / Unconfirmed
GUEST, unregistred user!
我每晚要用別人的IP上網﹐該人因工作原因﹐下午走的比我晚十几分鐘。
我想寫一個程式:每天下午離開吃晚飯時啟動﹐不斷地Ping某一個IP(Ping我會),
當發現該IP不通時﹐立即把自己的IP改成這個IP,請問該怎么做呢?
我用Win2KADV

我檢索過以前的帖子﹐有一篇說改注冊表的
SYSTEM/CurrentControlSet/Services/Tcpip/Parameters
但我在那里下沒找到與IP有關的東西

 
可惜我不懂
 
这个帖子好像有介绍:我有分吗?
http://www.delphibbs.com/delphibbs/dispq.asp?lid=483268
 
luyear我剛才說的就是這篇帖子
 
大家為什么不試試﹐那個鬼地方改了以后根本沒用﹐重啟windows也不行!
 
那个地方只是针对拨号上网的(而且只是获得)..

好象有6个地方(改其中4个生效).. 主要是在interface那边.
 
我也在研究这个问题,改IP的地址的位置基本能确定,但在
W2k中的类型为REG_MULTI_SZ的项目不知道在delphi中怎么
读,用ReadString不行。
 
to wuyi REG_MULTI_SZ 的修改方法:
procedure TForm1.Button3Click(Sender: TObject);
var
Reg: TRegistry;
ss:String;
Enable,len,i:Integer;
begin
Reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/{3F24708A-F9A0-4DE3-843C-861F8C4FBD25}', False);
ss:='10.65.77.119'+#0#0;
i:=RegSetValueEx(reg.CurrentKey, PChar('IPAddress'), 0, REG_MULTI_SZ , @ss[1], length(ss));
finally
Reg.Free;
end;
end;
 
多人接受答案了。
 
做个批处理文件吧
 
winexec('@netsh interface ip set address "本地连接" static 172.16.5.20 255.255.255.192 172.16.0.1 1', sw_shownormal);

use in 2000/XP
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
787
import
I
后退
顶部