Description: ip 探测
Private Sub Command1_Click()
Dim ECHO As ICMP_ECHO_REPLY
Dim pos As Integer
Call Ping(Text2.Text, ECHO)
Text1(0) = GetStatusCode(ECHO.status)
Text1(1) = ECHO.Address
Text1(2) = ECHO.RoundTripTime & " ms"
Text1(3) = ECHO.DataSize & " bytes"
If Left$(ECHO.Data, 1) <> Chr$(0) Then
pos = InStr(ECHO.Data, Chr$(0))
Text1(4) = Left$(ECHO.Data, pos- 1)
End If
Text1(5) = ECHO.DataPointer
End Sub
To Search:
File list (Check if you may need any files):
ip\Form1.frm
..\Module1.bas
..\工程1.vbp
..\工程1.vbw
ip
Download