如何得到网络邻居的IP地址？(100分)

X

xs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-07

• #1

本人通过WnetOpenEnum()和WnetEnumResource()函数可以得到网络
邻居和工作组的名字，但得不到IP地址；而GetHostbyName也仅能得
到本地计算机IP地址，真不知道如何得到网络邻居的IP地址？

 

X

xWolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-07

• #2

var
WSAData: TWSAData;
HostEnt: PHostEnt;
sComputerName, sIP: string;

WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(sComputerName));
if HostEnt <> nil then
begin
with HostEnt^ do
sIP := Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);

end;
WSACleanup;

 

T

tanxh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-07

• #3

参照ping控件

 

X

xs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-07

• #4

让我先试试

 

X

xs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-07

• #5

tanxh:
ping控件在那里？
EMail一个源代码（或片段）如何？

 

X

xs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-08

• #6

需补充的是，还应屏蔽自动拨号，即EnableAutodial子键，这样效果更加。
谢谢xWolf！

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-14

• #7

笨蛋！dos: ping couputername

 

B

bpearl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-15

• #8

>>关注