Ping απο εφαρμογή windows σε VB .net

Πολλές φορές στα προγράμματά μας χρειάζεται να pingάρουμε, για να ελέξουμε την κατάσταση της σύνδεσής μας, ή την επικοινωνία μας με κάποιον server. Παρακάτω, υπάρχει ο κώδικας (όλη η δουλειά γίνεται απο τη My.Computer.Network.Ping() ):

Public Class pinger

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles pingbtn.Click
If My.Computer.Network.Ping(pinghost.Text) Then
pingstatus.Text = “Host pinged succsessfully.”

pingstatus.Text = “Ping request timed out.”

End If
Catch ex As Exception
MsgBox(“An exception occurred:” & vbCrLf & ex.Message)
End Try
End Sub
End Class


Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

%d bloggers like this: