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