Πώς να Ping με τη Visual Basic

Χρησιμοποιώντας ping σε μια εφαρμογή δικτύου βοηθά αποτυχίες σύνδεσης όριο και λάθη . Ping είναι μια διαδικασία στην οποία ο υπολογιστής στέλνει ένα σήμα σε έναν άλλο υπολογιστή . Αυτός ο υπολογιστής μπορεί να είναι ένας διακομιστής σε ένα εντελώς ξεχωριστό τομέα , ή μπορεί να είναι ένας υπολογιστής στο τοπικό δίκτυο . Η χρήση της κατηγορίας ping σε Microsoft Visual Basic επιτρέπει την εφαρμογή για να ξέρω αν ο υπολογιστής είναι παρούσα . Αν ping δεν είναι σε θέση να βρείτε τον υπολογιστή ορίζεται, ο προγραμματιστής μπορεί να χρησιμοποιήσει τους κωδικούς σφάλματος για να εμφανιστεί μια προειδοποίηση προς το χρήστη . Οδηγίες
Η

1 Ανοίξτε ένα νέο αρχείο μορφής . Στο Visual Studio χώρο εργασίας σας , κάντε δεξί κλικ στο όνομα του έργου στην εργαλειοθήκη Solution Explorer. Επιλέξτε Προσθήκη φόρμας. Μια νέα μορφή εμφανίζεται στο χώρο εργασίας σας . 2

Ρυθμίστε τη διεύθυνση IP ή το όνομα τομέα του υπολογιστή που θέλετε να κάνετε ping . Ο κώδικας που ακολουθεί διαθέτει μια μεταβλητή με μια διεύθυνση IP set . Η μεταβλητή χρονικού ορίου λέει στον υπολογιστή πότε να σταματήσει να ψάχνει για μια απάντηση από τον απομακρυσμένο υπολογιστή.

Δημ. MyIP As String = " 192.168.0.1 " Dim timeoutvalue As Integer = 120
εικόνων 3

Διαθέστε μνήμης για την κατηγορία ping . Πριν χρησιμοποιήσετε την κλάση ping , θα πρέπει να κληθεί και να αποθηκευτούν σε μια μεταβλητή .

Δημ. pingComputer Όπως Ping = Νέα Ping ( )
Η 4

Ping ο υπολογιστής . Ο κώδικας που ακολουθεί χρησιμοποιεί τη μέθοδο Αποστολή για να ping στη διεύθυνση IP που ορίζεται στο βήμα 2 .

Δημ. theReply Όπως PingReply = pingComputer.Send ( MyIP )
5

Βεβαιωθείτε ότι η εντολή ήταν επιτυχής . Μια επιτυχημένη απάντηση επιστρέφεται στην ιδιότητα Κατάσταση στην μεταβλητή theReply . Ο κώδικας που ακολουθεί είναι τυλιγμένο γύρω από τον κώδικα που λέει στην εφαρμογή τι πρέπει να κάνω εάν ο υπολογιστής στο δίκτυο απάντησε .

Αν theReply.Status = IPStatus.Success

End If

6

Εμφανίστε την απάντηση . Ο παρακάτω κώδικας εμφανίζει την απάντηση στην κονσόλα μόνο αν το ping ήταν επιτυχής

Αν theReply.Status = IPStatus.Success

Console.WriteLine ( " IP: { 0 } " . , TheReply . Address.ToString ( ) ) Console.WriteLine ( «χρόνος ταξιδιού: { 0 } " , theReply.RoundtripTime )

End If
Η
εικόνων