Question : VB6 erreur d'exécution « 40006 » de Winsock de telnet

J'emploie le code suivant - le

Private Connect_Click ()/> Winsock1.Connect (" 192.168.1.1 "), 23
Winsock1.SendData « admin » et vbCrLf
End Sub

and obtiennent fondamentalement l'erreur -

I de l'erreur d'exécution le '40006 ' peux éviter cette erreur en ayant deux boutons séparés, une à relier et une pour publier la commande de SendData, ou en employant la fonction suivante - le
Winsock1.SendData « admin » et vbCrLf
End Sub

But du

Private Winsock1_Connect () que je ne veux pas employer non plus de ces méthodes, je veulent juste que tout soit inclus dans l'une aide de button.

Please ! class= de

Réponse : VB6 erreur d'exécution « 40006 » de Winsock de telnet

Maintenant je vois pourquoi vous voulez avoir tout le code dans un sous-marin… Mais malheureusement ce n'est pas la manière qu'il a conçue.
Essayer le code suivant :

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 :

iButton privé comme nombre entier Sous-marin privé Command1_Click () iButton = 1 ConnectWinsock Sous-marin d'extrémité Sous-marin privé Command2_Click () iButton = 2 ConnectWinsock Sous-marin d'extrémité Sous-marin privé Command3_Click () iButton = 3 ConnectWinsock Sous-marin d'extrémité ConnectWinsock secondaire privé () Winsock1.Close Winsock1.Connect « 192.168.1.1 », 23 Sous-marin d'extrémité Sous-marin privé Winsock1_Connect () Choisir l'iButton de cas Affaire 1 : Winsock1.SendData « admin » et vbCrLf Affaire 2 : Winsock1.SendData « puissance de tx » et vbCrLf Affaire 3 : Winsock1.SendData « aide » et vbCrLf Extrémité choisie Sous-marin d'extrémité Sous-marin privé Winsock1_Error (nombre de ByVal comme nombre entier, description comme corde, ByVal Scode en tant que longtemps, source de ByVal comme corde, ByVal HelpFile comme corde, ByVal HelpContext en tant que longtemps, CancelDisplay comme booléen) Erreur de MsgBox la « s'est produite :  » Et description Sous-marin d'extrémité