Πώς να Interface Telnet Με VB6

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

Ανοίξτε Visual Basic 6 . 2

Επιλέξτε "Standard EXE " από τη νέα λίστα των έργων . Πρέπει να έχετε μια προεπιλεγμένη κύρια μορφή στην οθόνη σας για να ξεκινήσετε την προσθήκη στοιχείων ελέγχου σας.
Εικόνων 3

Κάντε κλικ στο " Project, και στη συνέχεια κάντε κλικ στο κουμπί " Αναφορές ". Μετακινηθείτε προς τα κάτω , και επιλέξτε το " ActiveSocket 3.1 " ελέγχου από τη λίστα .
Η

4 κάντε διπλό κλικ στην κύρια φόρμα για να μπει σε εκδήλωση του Form_Load .
5

αντιγραφή και επικόλληση του παρακάτω μπλοκ κώδικα σε κώδικα της φόρμας ενότητα :

Option Explicit Dim

objSocket Όπως ASOCKETLib.Tcp

Private Sub BTN_Connect_Click ( )

objSocket.Connect TXT_Host , 23

TXT_Result = "CONNECT : " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "

Sub End

Private Sub BTN_Disconnect_Click ( )

objSocket.Disconnect

TXT_Result = " ΔΙΑΚΟΠΗ : " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "

End Sub

Private Sub BTN_Submit_Click ( )

objSocket.SendString TXT_Command

TXT_Result = " ΑΠΟΣΤΟΛΗ : " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "

End Sub

Private Sub Form_Load ( )

Set objSocket = CreateObject ( " ActiveXperts.Tcp " )

objSocket.Protocol = objSocket.asPROTOCOL_TELNET

TXT_Result = "N /A "