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 Telnet y programación Visual Basic 6 . Instrucciones
1

abierto Basic 6.
2

Visual Seleccione "EXE estándar " de la nueva lista de proyectos. Usted debe tener un formulario principal defecto en la pantalla para empezar a añadir los controles.
3

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

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

Copia y pega el siguiente bloque de código en el código del formulario módulo: Option Explicit

objSocket As ASOCKETLib.Tcp

Private Sub BTN_Connect_Click ()

objSocket.Connect TXT_Host , 23
< p > TXT_Result = " CONNECT :" & objSocket.LastError & " (" & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "

End Sub Private Sub

BTN_Disconnect_Click ()

objSocket.Disconnect

TXT_Result = " DESCONEXIÓN :" & 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 ()

Mientras objSocket . HasData

TXT_Received.Text = TXT_Received y objSocket.ReceiveString

Wend End Sub