Telnet é um protocolo de rede utilizado na Internet que permite a comunicação entre computadores. Telnet permite o acesso a uma interface de comando e muitas vezes é usado para executar comandos e gerenciar computadores remotos. Visual Basic 6 , ou VB6 , é uma linguagem de programação desenvolvida pela Microsoft, que pode ser utilizado para criar e de interface com o Telnet . Criar um programa que faz uso de Telnet em VB6 requer uma compreensão do Telnet e programação VB6. Instruções
1

Abra o Visual Basic 6 .
2

Selecione " Standard EXE " da nova lista de projetos. Você deve ter um formulário principal padrão na tela para começar a adicionar seus controles.
3

Clique em " Projeto e clique em " Referências ". Role para baixo e selecione a opção" ActiveSocket 3.1 " controle da lista.
4

Dê um duplo clique no formulário principal para entrar em seu evento Form_Load .
5

Copie e cole o seguinte bloco de código em código do formulário módulo:

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 = "Disconnect :" & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "

End Sub

Private Sub BTN_Submit_Click ()

objSocket.SendString TXT_Command

TXT_Result = "Enviar :" & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "

End Sub

Private Sub Form_Load ()

Definir objSocket = CreateObject (" ActiveXperts.Tcp " )

objSocket.Protocol = objSocket.asPROTOCOL_TELNET

TXT_Result = "N /A"

TXT_Received = "" End Sub

Sub Timer_Timer privado ( )

Enquanto objSocket . HasData

TXT_Received.Text = TXT_Received & objSocket.ReceiveString

Wend

End Sub