Telnet è un protocollo di rete utilizzato su Internet che consente la comunicazione tra computer. Telnet fornisce l'accesso a un'interfaccia di comando ed è spesso usato per eseguire i comandi e gestire i computer remoti. Visual Basic 6 o VB6, è un linguaggio di programmazione sviluppato da Microsoft che può essere usato per creare e di interfaccia con Telnet. Creazione di un programma che fa uso di Telnet in VB6 richiede la comprensione di Telnet e VB6 programmazione.

istruzione

1 Aprire Visual Basic 6.

2 Selezionare "EXE standard" dal nuovo elenco di progetti. Si dovrebbe avere una forma principale di default sullo schermo per iniziare ad aggiungere i controlli.

3 Fai clic su "Progetto, e quindi fare clic su" Riferimenti ". Scorrere verso il basso e selezionare la" ActiveSocket 3.1 controllo "dalla lista.

4 Fare doppio clic sul modulo principale per entrare nel suo evento Form_Load.

5 Copiare e incollare il seguente blocco di codice nel modulo di codice del modulo:

Option Explicit

Dim objSocket Come ASOCKETLib.Tcp

Private Sub BTN_Connect_Click ()

objSocket.Connect TXT_Host, 23

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 = "inviare:" & 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 ()

While objSocket.HasData

TXT_Received.Text = TXT_Received & objSocket.ReceiveString

Wend

End Sub