Telnet est un protocole réseau utilisé sur Internet qui permet la communication entre ordinateurs. Telnet donne accès à une interface de commande et est souvent utilisé pour exécuter des commandes et de gérer des ordinateurs distants. Visual Basic 6, ou VB6, est un langage de programmation développé par Microsoft qui peut être utilisé pour créer et interface avec Telnet. Création d'un programme qui rend l'utilisation de Telnet en VB6 nécessite une compréhension de Telnet et de programmation VB6 . Instructions
1

Ouvrez Visual Basic 6 .
2

Sélectionnez " EXE standard " de la nouvelle liste de projets . Vous devriez avoir un formulaire principal par défaut sur votre écran pour commencer à ajouter vos contrôles .
"Project , puis cliquez sur " 3

cliquez sur Références. " Descendez et sélectionnez l'option" ActiveSocket 3.1 " contrôle de la liste .
4

Double- cliquez sur le formulaire principal pour entrer dans son événement Form_Load .
5

Copiez et collez le bloc de code suivant dans le code du formulaire Module :

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

End Sub

Private Sub BTN_Submit_Click ()

objSocket.SendString TXT_Command

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

End Sub

Private Sub Form_Load ( )

Set objSocket = CreateObject (" ActiveXperts.Tcp " )

objSocket.Protocol = objSocket.asPROTOCOL_TELNET Photos

TXT_Result = "N /A"

TXT_Received = ""

End Sub

privé Timer_Timer Sub ( )

Bien objSocket . HasData

TXT_Received.Text = TXT_Received & objSocket.ReceiveString

Wend End Sub