把Ping命令可视化，用Delphi写成winForm窗口式的程序，一个可以单步执行的Delphi Ping命令操作程序源码，在框内输入IP地址，点击“执行Ping”按钮，将执行一次Ping命令，不能连续执行Ping操作，不过稍加改进就能做出类似Windows一样的Ping程序。try
if pReqData^ = pIPE^.Options.OptionsData^ then
begin
StatusShow.Lines.Add(PChar(PingEdit.Text) '-----'
IntToStr(pIPE^.DataSize) '-----' IntToStr(pIPE^.RTT));
end;
except
showmessage('没有找到Ip地址!');
end;
finally
FreeMem(pRevData);
FreeMem(pIPE);
end;
end
else
showmessage('请输入Ip地址');
end;
// 通过上面的编程，我们就实现了Ping功能的界面操作。实际上，ICMP协议的功能还
//有很多，都可以通过对Icmp.dll的函数调用来实现。
procedure TTMyPing.FormCreate(Sender: TObject);
var
hICMPdll: HMODULE;
begin // Load the icmp.dll stuff
WSAStartup(2,WSAData);
hICMPdll := LoadLibrary('icmp.dll');
@ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile');
@IcmpCloseHandle := GetProcAddress(hICMPdll, 'IcmpCloseHandle');
@IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho');
hICMP :=IcmpCreateFile;
StatusShow.Text := '';
StatusShow.Lines.Add('目的IP地址-----字节数----返回时间(毫秒)');
end;
// 接下来，就要进行如下所示的Ping操作的实际编程过程了。
2023-01-16 11:35:00
3KB
1
第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Ping服务端创建UDP套接字第1关：Pi
2023-01-03 18:17:36
284B
1
头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接收并转发消息头歌UDP Ping程序实现-接
2023-01-03 18:17:35
422B
1
头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟丢包事件头歌UDP Ping程序实现-服务端模拟
2023-01-03 18:17:35
660B
1
头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP Ping程序实现-客户端创建UDP套接字头歌UDP
2023-01-03 18:17:34
280B
1
头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping程序实现-客户端向服务器发送消息并接收消息.txt头歌UDP Ping
2023-01-03 18:17:33
1KB
1
ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP Ping实现-Ping客户端创建原始套接字ICMP P
2023-01-03 18:17:32
2KB
1
ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送ICMP报文ICMP Ping实现-封装并发送
2023-01-03 18:17:32
2KB
1