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\Form1.frm
..\Module1.bas
..\工程1.vbp
..\工程1.vbw
ip

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．