Πώς να κάνω Ping σε έναν διακομιστή από VB6

Μπορείτε να χρησιμοποιήσετε τη βιβλιοθήκη σύνδεσης των Windows ICMP ping για μια διεύθυνση σε Visual Basic 6 ( VB6 ) . Το αρχείο DLL περιλαμβάνεται με το λειτουργικό σύστημα των Windows για να χειριστεί τη δικτύωση των αιτήσεων για το TCP /IP , το οποίο είναι το πρωτόκολλο που χρησιμοποιείται για τα δίκτυα και στο Διαδίκτυο . Θα πρέπει να συμπεριλάβετε το αρχείο DLL στον κώδικα VB6 σας , ping στο διακομιστή και να εκχωρήσετε τα αποτελέσματα σε μια σειρά . Οδηγίες
Η

1 Κάντε δεξί κλικ στο SLN αρχείο που περιέχει VB6 σας και κάντε κλικ στο " Άνοιγμα με . " Κάντε διπλό κλικ στο πρόγραμμα " Visual Basic" εμφανίζεται στη λίστα των προγραμμάτων . 2

δεξιό κλικ στη φόρμα που θέλετε να χρησιμοποιήσετε για να κάνετε ping στο διακομιστή . Κάντε αντιγραφή και επικόλληση του παρακάτω σύνδεσμο DLL στην κορυφή του αρχείου VB6 σας :

Private Declare Function IcmpCreateFile Lib " icmp.dll " ( ) Όπως Long

Private Declare Function WSAStartup Lib " wsock32.dll " ( ByVal wVersionRequired Όπως Long , lpWSADATA Όπως WSADATA ) Όπως Long

Αυτά τα δύο αρχεία DLL παρέχει τις λειτουργίες για να ping και να επικοινωνούν μέσω του πρωτοκόλλου TCP /IP .
εικόνων 3

Ping ο server . Ο κώδικας που ακολουθεί καρφώνει το διακομιστή :

ping Public Function ( "server" , Απάντηση Όπως ICMP_ECHO_REPLY ) Όπως Long

Αντικαταστήστε το " server" με το όνομα ή τη διεύθυνση IP του διακομιστή . Η επανάληψη είναι αποθηκευμένο στη μεταβλητή " echo απάντηση " .
Η 4

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

Dim ping Όπως String

ping = Reply.Status

MsgBox ping


εικόνων