Telnet er en nettverksprotokoll som brukes over Internett som tillater kommunikasjon mellom datamaskiner . Telnet gir tilgang til en kommando -grensesnitt og er ofte brukt til å utføre kommandoer og administrere eksterne datamaskiner . Visual Basic 6 , eller VB6 , er et programmeringsspråk utviklet av Microsoft som kan brukes til å opprette og grensesnitt med Telnet. Opprette et program som gjør bruk av Telnet i VB6 krever en forståelse av Telnet og VB6 programmering. Instruksjoner
en

Åpen Visual Basic 6 .
2

Velg " Standard EXE " fra det nye prosjektet listen. Du bør ha en standard viktigste formen på skjermen for å begynne å legge til kontroller.
3

Klikk på " Project, og klikk deretter på " Referanser . " Bla nedover og velg" ActiveSocket 3.1 " kontroll fra listen.
4

Dobbeltklikk på den viktigste formen for å komme inn i sin Form_Load hendelsen.
5

Kopier og lim inn følgende kode blokken inn i Form kode modul : en

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 ( )

Sett objSocket = CreateObject ( " ActiveXperts.Tcp ")

objSocket.Protocol = objSocket.asPROTOCOL_TELNET

TXT_Result = "N /A"

TXT_Received = ""

End Sub

Private Sub Timer_Timer ( )

Mens objSocket . HasData

TXT_Received.Text = TXT_Received & objSocket.ReceiveString

Wend

End Sub