如何获取指定网段所有存在的IP呢？（编程实现）/N

[bomb]

[radish]

用程序PING不行吗？

[bomb]

行啊，但是我不想一个一个的ping啊！那样又慢又不好

不过这样行吗？
比如我要获取10.20.XX.XX，我是不是应该ping 10.2.255.255呢？
然后我是接受返回消息，还是使用arp -a 获取呢？

[Firing_Sky]

有几个Api函数可以满足你的要求
WNetOpenEnum

WNetAddConnection
WNetAddConnection2
WNetAddConnection3
WNetCancelConnection
WNetCancelConnection2
WNetCloseEnum
WNetConnectionDialog
WNetConnectionDialog1

WNetDisconnectDialog
WNetDisconnectDialog1

WNetEnumResource
WNetGetConnection
WNetGetLastError
WNetGetNetworkInformation
WNetGetProviderName
WNetGetResourceInformation
WNetGetResourceParent
WNetGetUniversalName
WNetGetUser
WNetOpenEnum
WNetUseConnection

[radish]

好的方法我也没有，Firing_Sky提供的方法和WINDOWS的网络邻居一样，不准。

[bomb]

to Firing_Sky :
那么，如何真正做到呢？

我想到的办法只是发送ICMP包进行 ping 10.255.255.255
然后过滤返回结果，您老觉得呢？

[Lin]

做一个循环：
procedure TForm1.FormCreate(Sender: TObject);
var
phe : PHostEnt;
Buffer : array [0..255] of char;
GInitData : TWSADATA;
nLoop: Integer;
begin
WSAStartup($101, GInitData);
for nLoop := xx to yy do //网段xx~yy
begin
Buffer:= Chr(x) + Chr(y) + Chr(z) + Chr(nLoop) + Chr(0);
//x,y,z为网段地址的前三字节的整数数值
phe:= GetHostByAddr(@Buffer, Length(Buffer), PF_INET);
if phe <> nil then //如果对方主机开通且安装TCP/IP的话，则该IP地址存在
MessageBox(Handle, phe^.h_name, '存在', mb_ok);
end;
WSACleanup;
end;

[Kingron]

提问者：如要继续讨论请定期提前贴子，如不想讨论请结束贴子。