Telnet är ett nätverksprotokoll som används på Internet som möjliggör kommunikation mellan datorer . Telnet ger tillgång till ett kommando -gränssnitt och används ofta för att utföra kommandon och hantera fjärrdatorer . Visual Basic 6 , eller VB6 , är ett programmeringsspråk utvecklat av Microsoft som kan användas för att skapa och gränssnitt med Telnet . Skapa ett program som använder Telnet i VB6 kräver en förståelse för Telnet och VB6 programmering . Instruktioner
1
Öppna Visual Basic 6 .
2
Välj " Standard EXE " från det nya projektet listan . Du bör ha en standard main formulär på skärmen för att börja lägga dina kontroller .
3
Klicka på " Project , och klicka sedan på " Referenser . " Rulla ner och välj " ActiveSocket 3.1 " kontroll från listan .
4
Dubbelklicka på den viktigaste formen för att komma in i sin Form_Load händelsen .
5
Kopiera och klistra in följande kodblock i formulärets kod modul :
Option Explicit
Dim objSocket Som ASOCKETLib.Tcp
Private Sub BTN_Connect_Click ( ) katalog
objSocket.Connect TXT_Host , 23
TXT_Result = " CONNECT : " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "
End Sub
Private Sub BTN_Disconnect_Click ( ) katalog
objSocket.Disconnect
TXT_Result = " Disconnect: " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "
End Sub
Private Sub BTN_Submit_Click ( ) katalog
objSocket.SendString TXT_Command
TXT_Result = " SEND : " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "
End Sub
Private Sub Form_Load ( ) katalog
Set objSocket = CreateObject ( " ActiveXperts.Tcp " ) katalog
objSocket.Protocol = objSocket.asPROTOCOL_TELNET
TXT_Result = "N /A "
TXT_Received = " "
End Sub
Private Sub Timer_Timer ( ) katalog
objSocket . HasData
TXT_Received.Text = TXT_Received & objSocket.ReceiveString
Wend
End Sub
