Πώς να χρησιμοποιήσετε το Telnet Με VB6

πελάτες Telnet συνδεθείτε σε ένα διακομιστή στο Internet ή εντός του τοπικού δικτύου σας? Ώστε να μπορείτε να ρυθμίσετε το διακομιστή από την επιφάνεια εργασίας σας . Μπορείτε να δημιουργήσετε το δικό σας πελάτη Telnet χρησιμοποιώντας τη Visual Basic 6 γλώσσα . Μπορείτε να χρησιμοποιήσετε το στοιχείο ελέγχου πελάτη Telnet , το οποίο αποτελεί μέρος του compiler VB6 . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί των Windows " Start" και πληκτρολογήστε " visual basic 6 " στο πλαίσιο κειμένου αναζήτησης . Πατήστε το πλήκτρο " Enter" για να ανοίξει το Visual Basic λογισμικού . 2

Κάντε κλικ στο "Έργο" μενού και επιλέξτε "Αναφορές ". Ο κατάλογος των συστατικών ActiveX , μπορείτε να εισάγετε στο πρόγραμμά σας εμφανίζεται . Ελέγξτε το πλαίσιο με την ένδειξη " ActiveSocket " και κάντε κλικ στο " OK " για να το προσθέσετε στο έργο σας .
Εικόνων 3

Κάντε δεξί κλικ στο αρχείο κώδικα VB που θέλετε να χρησιμοποιήσετε για να συνδεθείτε με το διακομιστή Telnet . Κάντε κλικ στο " Προβολή κώδικα ". Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε μια μεταβλητή κλάσης Telnet :

Δημόσια telnet Όπως ASOCKETLib.Tcp

Set telnet = CreateObject ( " ActiveXperts.Tcp " )
Η 4

Δημιουργήστε τη σύνδεση Telnet . Ο κώδικας που ακολουθεί κάνει μια σύνδεση με το διακομιστή " tserver " στη θύρα 23 , που είναι η θύρα του διακομιστή Telnet προεπιλογή :

telnet.Connect " tserver " , 23
5

Αποστολή εντολή στο διακομιστή. Μπορείτε να χρησιμοποιήσετε τη λειτουργία " SendText " για να στείλετε μια εντολή στο διακομιστή . Ο παρακάτω κώδικας στέλνει την εντολή "dir" , το οποίο παραθέτει τα αρχεία και καταλόγους του διακομιστή :

telnet.SendString " dir "
Η

6 Κλείστε τη σύνδεση με το διακομιστή . Αφού ολοκληρώσετε την αποστολή εντολών στο διακομιστή , θα πρέπει να κλείσετε τη σύνδεση για να ολοκληρώσει την υπηρεσία . Χρησιμοποίησε τον παρακάτω κώδικα για να κλείσετε τη σύνδεση :

telnet.Disconnect
Η
εικόνων