Frage : VB6 Winsock-Laufzeitfehler „40006“ telnet-

Ich den folgenden Code verwenden -

Private VorConnect_Click ()
Winsock1.Connect („192.168.1.1 "), 23
Winsock1.SendData „admin“ u. vbCrLf
End Sub

and erhalten im Allgemeinen die Störung - Laufzeitfehler '40006 '

I kann diese Störung indem ich habe zwei verschiedene Knöpfe, einer zum anzuschließen und einer, zum des SendData Befehls herauszugeben oder indem die Anwendung der folgenden Funktion vermeiden -

Private VorWinsock1_Connect ()
Winsock1.SendData „admin“ u. vbCrLf
End Sub

But, das ich nicht von diesen Methoden auch nicht verwenden möchte, ich wünschen gerade, alles in der einer button.

Please Hilfe eingeschlossen werden!

Antwort : VB6 Winsock-Laufzeitfehler „40006“ telnet-

Jetzt sehe ich, warum Sie den ganzen Code in einem Unterseeboot haben möchten… Aber leider ist die nicht die Weise, die es entwarf.
Den folgenden Code versuchen:

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:

Privates iButton als ganze Zahl

Privates Unterseeboot Command1_Click ()
    iButton = 1
    ConnectWinsock
Enden-Unterseeboot

Privates Unterseeboot Command2_Click ()
    iButton = 2
    ConnectWinsock
Enden-Unterseeboot

Privates Unterseeboot Command3_Click ()
    iButton = 3
    ConnectWinsock
Enden-Unterseeboot

Privates VorConnectWinsock ()
    Winsock1.Close
    Winsock1.Connect „192.168.1.1“, 23
Enden-Unterseeboot

Privates Unterseeboot Winsock1_Connect ()
    Fall iButton vorwählen
        Rechtssache 1: Winsock1.SendData „admin“ u. vbCrLf
        Rechtssache 2: Winsock1.SendData „tx Energie“ u. vbCrLf
        Rechtssache 3: Winsock1.SendData „Hilfe“ u. vbCrLf
    Ende auserwählt
Enden-Unterseeboot

Privates Unterseeboot Winsock1_Error (ByVal Zahl als ganze Zahl, Beschreibung als Schnur, ByVal Scode als lang, ByVal Quelle als Schnur, ByVal HelpFile als Schnur, ByVal HelpContext als lang, CancelDisplay, wie Boolesch)
    MsgBox „Störung trat auf: “ U. Beschreibung
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us