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
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα