|
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
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
|
