Cómo Interfaz Telnet con VB6

Telnet es un protocolo de red que se utiliza a través de Internet que permite la comunicación entre ordenadores. Telnet proporciona acceso a una interfaz de comandos y, a menudo se utiliza para ejecutar comandos y gestionar equipos remotos. Visual Basic 6, o VB6, es un lenguaje de programación desarrollado por Microsoft que se puede utilizar para crear y la interfaz con Telnet. La creación de un programa que hace uso de Telnet en VB6 requiere una comprensión de la programación Telnet y VB6.

Instrucciones

1 Abra Visual Basic 6.

2 Seleccione "EXE estándar" de la nueva lista de proyectos. Usted debe tener una forma principal por defecto en la pantalla para comenzar a añadir sus controles.

3 Haga clic en "Proyecto y haga clic en" Referencias ". Desplácese hacia abajo y seleccione el" "control ActiveSocket 3.1 de la lista.

4 Haga doble clic en el formulario principal para entrar en el evento Form_Load.

5 Copiar y pegar el siguiente bloque de código en el módulo de código del formulario:

Option Explicit

Dim objSocket Como 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 = "desconexión" y 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 ()

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 y objSocket.ReceiveString

Encaminarse a

End Sub