得分的好机会!(48分)

  • 主题发起人 主题发起人 beta
  • 开始时间 开始时间
B

beta

Unregistered / Unconfirmed
GUEST, unregistred user!
1.如何判断该电脑是否已经连上了Internet(在线)(通过IP地址吗)?
2.如何在该电脑已经连上了Internet后动态改变自己的IP地址?
 
下面函数测试是否连接上internet

Function HasInternetconnect:boolean;
var REG:TRegistry;
dat:array[0..3] of char;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('System/CurrentControlSet/Services/RemoteAccess',false);
reg.ReadBinaryData('Remote Connection',dat,4);
reg.free;
result:=(dat[0]=#1);
end;
 
改变IP?如果是DHCP分配的可以:
ipconfig/renew
 
cj, 人家要连上之后的动态改变.
没可能性. 不然干坏事的人更多了.
 
只能用假的IP,没有可能在改变。

其实....
 
其实是否连上internet不能用cakk的方法得到, 好的方法根本没有:-(
最好的方法? 1. 判断是否网卡装tcpip了, 2. modem是否连线并运行tcpip了.
要改变ip地址, 只有通过proxy上网才有可能:-(
 
1。判断是否连上INTERNET简单的方法:
连接一个你知道的网址,等待。

2。动态分配?不能马上生效吧?
 
该电脑已经连上了Internet后动态改变自己的IP地址?
// 不可能吧
 
“傻办法”:
如果机器上没有网卡,可以放一个TServerSocket上
先Open然后得到它的LocalHost,如<>127.0.0.1则连到Internet上了
 
多人接受答案了。
 
后退
顶部