Hvordan grensesnittet Telnet Med VB6

Telnet er en nettverksprotokoll som brukes på 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.

Bruksanvisning

1 Åpne Visual Basic 6.

2 Velg "Standard EXE" fra den nye prosjektlisten. Du bør ha en standard hoved skjema på skjermen for å begynne å legge til kontroller.

3 Klikk "Project, og klikk deretter på" Referanser ". Bla nedover og velg" Active 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:

Option Explicit

Dim objSocket Som ASOCKETLib.Tcp

Private Sub BTN_Connect_Click ()

objSocket.Connect TXT_Host, 23

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

End Sub

Private Sub BTN_Disconnect_Click ()

objSocket.Disconnect

TXT_Result = "KOBLE:" & objSocket.LastError & "(" & objSocket.GetErrorDescription (objSocket.LastError) og ")"

End Sub

Private Sub BTN_Submit_Click ()

objSocket.SendString TXT_Command

TXT_Result = "SEND:" & objSocket.LastError & "(" & objSocket.GetErrorDescription (objSocket.LastError) og ")"

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

While objSocket.HasData

TXT_Received.Text = TXT_Received & objSocket.ReceiveString

Wend

End Sub