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-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