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
Try
If My.Computer.Network.Ping(pinghost.Text) Then
pingstatus.Text = “Host pinged succsessfully.”

Else
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

Advertisements

Leave a Reply

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

WordPress.com Logo

You are commenting using your WordPress.com 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: