请问如何编ping一段网络地址的?

akslyd 2004-01-02 02:03:53
请问如何编ping一段网络地址的?,如果我输入开始和结束地址,如何用ping来检测哪些地址能用那?
...全文
116 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
87721054 2004-01-03
去看看这些代码,有没有你合适的
http://www.dapha.net/down/list.asp?id=1019
是不用winsock Ping IP
http://www.dapha.net/down/list.asp?id=189

....再没有自己去搜索一下
回复
akslyd 2004-01-03
第一次发帖子,非常感谢,我已经解决了。
回复
cll007 2004-01-03
//扫描192.168.0.51-192.168.0.65,最好放在线程里面,不然范围大了会死机
procedure TForm1.Button1Click(Sender: TObject);
var
WSAData:TWSAData;
HostEnt:PHostEnt;
sIP:string;
DecAddr:DWord;
i:integer;
interval:int64;
begin
Memo1.Lines.Add('开始时间: '+TimeToStr(now));
interval:=GetTickCount;
WSAStartup(2,WSAData);
For i:=51 to 65 do
begin
sIp:='192.168.0.'+inttostr(i);
DecAddr:=inet_addr(Pchar(sIP));
Try
HostEnt:=gethostbyaddr(@DecAddr,length(sIP),PF_INET );
if HostEnt<>nil then
memo1.Lines.Add('IP Address: '+sIP+' Computer Name: '+LowerCase(HostEnt.h_name));
except
raise Exception.Create('Error');
end;
end;
WSACleanup;
interval:=GetTickCount-interval;
Memo1.Lines.Add('结束时间: '+TimeToStr(now));
Memo1.Lines.Add('用时: '+floattostr(interval/1000)+' 秒');
end;
回复
hisourcezhang 2004-01-03
学习~
回复
akslyd 2004-01-02
楼上的不行啊,是vb的,而且没有对一段地址进行啊。
回复
LanceJin 2004-01-02
http://www.sijiqing.com/vbgood/experience/index.asp?action=read&id=2943
回复
akslyd 2004-01-02
如果用winsock和icmp控件分别如何写?
回复
相关推荐
发帖
网络通信/分布式开发
创建于2007-08-02

1573

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2004-01-02 02:03
社区公告
暂无公告