Πώς να κάνω μια Ping Από Visual Basic

Το λειτουργικό σύστημα των Windows περιέχει ένα αρχείο DLL που χρησιμοποιείτε σε κώδικα της Visual Basic για να ping σε ένα διακομιστή δικτύου . Η διαδικασία ping επιστρέφει μια απάντηση , μπορείτε να χρησιμοποιήσετε τον κωδικό για να προσδιορίσει αν ο υπολογιστής είναι συνδεδεμένοι και διαθέσιμοι στο δίκτυο . Θα πρέπει να συμπεριλάβετε το αρχείο DLL των Windows στο δικό σας αρχείο κώδικα VB . Μετά το DLL περιλαμβάνεται , μπορείτε να κάνετε ping σε οποιονδήποτε υπολογιστή του δικτύου . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί των Windows " Start" και επιλέξτε " Όλα τα προγράμματα ". Κάντε κλικ στο " Microsoft Visual Basic , " και στη συνέχεια κάντε κλικ στο κουμπί " Visual Basic 6 . " Ανοίξτε έργο VB σας . 2

Κάντε διπλό κλικ στο αρχείο στη λίστα των αρχείων πηγαίου κώδικα για το έργο σας . Το αρχείο ανοίγει στο πρόγραμμα επεξεργασίας VB σας
εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο επάνω μέρος του αρχείου σας να περιλαμβάνει το Windows DLL στο έργο VB σας : .

Private αναγνωρίσει Λειτουργία IcmpSendEcho Lib " icmp.dll " _

( ByVal IcmpHandle Όπως Long , _

ByVal DestinationAddress Όπως Long , _

ByVal RequestData Όπως String , _

ByVal RequestSize Όπως Long , _

ByVal RequestOptions Όπως Long , _

ReplyBuffer Όπως ICMP_ECHO_REPLY , _

ByVal ReplySize Όπως Long , _

ByVal Timeout Όπως Long ) Όπως Long

ο κωδικός πρέπει να αντιγραφεί στο σύνολό του , ή ο compiler VB επιστρέφει ένα σφάλμα . Ο κώδικας περιλαμβάνει το « ICMP.DLL " από το λειτουργικό σύστημα των Windows που pings έναν υπολογιστή από την επιφάνεια εργασίας
Η 4

Προσθέστε τον ακόλουθο κώδικα για να ping τον απομακρυσμένο υπολογιστή : .

Call IcmpSendEcho ( hIcmp , IPaddress , "ping" , Len ( 50 ) , 0 , Απάντηση , Len ( Reply ) , 20 )

Αντικαταστήστε το " IPaddress " με τη διεύθυνση IP για τον απομακρυσμένο υπολογιστή .

5

Ανακτήστε το replay από την εντολή ping . Ο ακόλουθος κώδικας καθορίζει εάν το ping ήταν επιτυχής :

mypingresponse = Reply.Status
Η
εικόνων