Vraag : VB6 Run-Time van Telnet Winsock Fout „40006“

Ik gebruik de volgende code -

Private SubConnect_Click ()
Winsock1.Connect („192.168.1.1“), 23
Winsock1.SendData „admin“ & vbCrLf
End Sub

and word fundamenteel de fout - Run-Time Fout '40006 '

I kan deze fout vermijden door het hebben van twee afzonderlijke knopen, en om het bevel te verbinden uit te geven SendData, of door de volgende functie te gebruiken -

Private SubWinsock1_Connect ()
Winsock1.SendData „admin“ & vbCrLf
End Sub

But die ik niet wil om één van beiden van deze methodes gebruiken, ik enkel wil dat alles wordt omvat in de één hulp button.

Please!

Antwoord : VB6 Run-Time van Telnet Winsock Fout „40006“

Nu zie ik waarom u al code in één sub wilt hebben… Maar jammer genoeg is dat niet de manier het ontwierp.
Probeer de volgende code:

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:

Privé iButton als Geheel

Privé SubCommand1_Click ()
    iButton = 1
    ConnectWinsock
Sub van het eind

Privé SubCommand2_Click ()
    iButton = 2
    ConnectWinsock
Sub van het eind

Privé SubCommand3_Click ()
    iButton = 3
    ConnectWinsock
Sub van het eind

Privé SubConnectWinsock ()
    Winsock1.Close
    Winsock1.Connect „192.168.1.1“, 23
Sub van het eind

Privé SubWinsock1_Connect ()
    Selecteer Geval iButton
        Geval 1: Winsock1.SendData „admin“ & vbCrLf
        Geval 2: Winsock1.SendData „tx macht“ & vbCrLf
        Geval 3: Winsock1.SendData „hulp“ & vbCrLf
    Uitgezocht eind
Sub van het eind

Privé SubWinsock1_Error (Aantal ByVal als Geheel, Beschrijving als Koord, ByVal Scode zoals lang, ByVal Bron als Koord, ByVal HelpFile als Koord, ByVal HelpContext zoals lang, CancelDisplay zoals Van Boole)
    Fout van MsgBox de „kwam voor: “ & Beschrijving
Sub van het eind
Andere oplossingen  
 
programming4us programming4us