Telnet er en netværksprotokol, der anvendes over internettet , der tillader kommunikation mellem computere. Telnet giver adgang til en kommando -interface og er ofte brugt til at udføre kommandoer og styre fjerncomputere . Visual Basic 6 eller VB6 , er et programmeringssprog udviklet af Microsoft , der kan bruges til at oprette og interface med Telnet. Oprettelse af et program, der gør brug af Telnet i VB6 kræver en forståelse af Telnet og VB6 programmering. Instruktioner
1

Open Visual Basic 6 .
2

Vælg "Standard EXE " fra det nye projekt listen. Du bør have en standard main formular på skærmen for at begynde at tilføje din kontrol .
3

Klik på " Project, og klik derefter på " Referencer ". Rul ned , og vælg" ActiveSocket 3.1 " kontrol på listen.
4

Dobbeltklik på den vigtigste form for at komme ind i sin Form_Load begivenhed.
5.

Kopier og indsæt følgende kode blokken i Form kode modul : Hej

Option Explicit

Dim objSocket Som ASOCKETLib.Tcp

Private Sub BTN_Connect_Click ()

objSocket.Connect TXT_Host , 23
< p > 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 = " SEND : " & 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 ()

objSocket . HasData

TXT_Received.Text = TXT_Received & objSocket.ReceiveString

Wend

End Sub