Function ping(ByVal IP As String) As String
If My.Computer.Network.Ping(IP) Then
MessageBox.Show("ok")
Else
MessageBox.Show("ng")
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ping("ip位置")
End Sub