同上..

个人认为ping ,cookies这些唱歌的不该占电脑的地盘

同意二楼的

同意

Option ExplicitPrivate Const INADDR_NONE As Long = &HFFFFFFFFPrivate Const PING_TIMEOUT As Long = 500Private Type ICMP_ECHO_REPLY Address As Long status As Long RoundTripTime As Long DataSize As Long DataPointer As Long Data As String * 250End TypePrivate Declare Function inet_addr Lib "WSOCK32.DLL" (ByVal s As String) As LongPrivate Declare Function IcmpCreateFile Lib "icmp.dll" () As LongPrivate Declare Function IcmpSendEcho Lib "icmp.dll" (ByVal IcmpHandle As Long, _ ByVal DestinationAddress As Long, ByVal RequestData As String, ByVal RequestSize As Long, _ ByVal RequestOptions As Long, ReplyBuffer As ICMP_ECHO_REPLY, ByVal ReplySize As Long, _ ByVal Timeout As Long) As LongPrivate Declare Function IcmpCloseHandle Lib "icmp.dll" (ByVal IcmpHandle As Long) As LongPublic Function ping(ip As String) As Boolean Dim ECHO As ICMP_ECHO_REPLY Dim mystr As String Dim hPort As Long mystr = inet_addr(ip) If mystr <> INADDR_NONE Then hPort = IcmpCreateFile() If hPort Then Call IcmpSendEcho(hPort, mystr, 0, 0, 0, ECHO, Len(ECHO), PING_TIMEOUT) '发送回响请求报文，返回回响应答报文 Call IcmpCloseHandle(hPort) End If If ECHO.status = 0 Then ping = True Else ping = False' MsgBox ECHO.Address '显示网络计算机地址' MsgBox ECHO.RoundTripTime & " ms" '显示网络链接延迟时间' MsgBox ECHO.DataSize & " bytes 显示数据包大小"' MsgBox ECHO.DataPointer End IfEnd FunctionPrivate Sub Command1_Click()If ping(Text1.Text) Then MsgBox "ping成功" Else MsgBox "ping失败"End Sub

jj

woxiangzhidaozenmexuepinying

..

谁可以给我PING个TP出来呀天啊

1年后又看到此贴

谁知道CS里面的PING是什么东西啊 我郁闷老被PING

深刻来得及啊看的机会那是东街口

2010年6月26日0:20:49 留

那个是VB的程序么

纠结

..

33

2012.10.30