Telnet ist ein Netzwerkprotokoll, über das Internet ermöglicht die Kommunikation zwischen Computern verwendet. Telnet bietet Zugriff auf eine Kommando-Schnittstelle und wird häufig verwendet , um Befehle auszuführen und zu verwalten Remote-Computern . Visual Basic 6 oder VB6, ist eine Programmiersprache, die von Microsoft entwickelt , die zum Erstellen und Schnittstelle mit Telnet werden kann. Erstellen Sie ein Programm, Verwendung von Telnet in VB6 macht erfordert ein Verständnis von Telnet und VB6 Programmierung. Anleitung
1

Öffnen Sie Visual Basic 6 .
2

Wählen Sie "Standard EXE" aus dem neuen Projekt -Liste. Sie sollten über eine Standard- Haupt-Form auf dem Bildschirm zu beginnen, Ihre Steuerungen.
3

Click " -Projekt, und klicken Sie dann auf " Referenzen ". Blättern Sie nach unten , und wählen Sie die " ActiveSocket 3.1 " Kontrolle aus der Liste.
4

auf die wichtigste Form Doppelklick in seine Form_Load Ereignis zu bekommen.
5

Kopieren Sie den folgenden Code-Block in das Formular den Code Modul :

Option Explicit Dim

objSocket Wie ASOCKETLib.Tcp

private Sub BTN_Connect_Click ()

objSocket.Connect TXT_Host , 23

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

private Sub BTN_Disconnect_Click ()

objSocket.Disconnect

TXT_Result = "Disconnect :" & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) " End Sub

private Sub BTN_Submit_Click ()

objSocket.SendString TXT_Command

TXT_Result = " SENDEN :" & 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 "

TXT_Received = "" End Sub

private Sub Timer_Timer ()

Während objSocket . HasData

TXT_Received.Text = TXT_Received & objSocket.ReceiveString

Wend

End Sub