Questione : Errore Run-Time “40006„ del Winsock del telnet VB6

Sto usando il seguente codice - il
Winsock1.Connect (" 192.168.1.1 "), 23
Winsock1.SendData “admin„ & il vbCrLf
End Sub

and del

Private Connect_Click () ottiene basicamente l'errore -

I di errore Run-Time '40006 ' posso evitare questo errore avendo due tasti separati, uno da collegarmi ed uno per pubblicare l'ordine di SendData, o usando la seguente funzione - il
Winsock1.SendData “admin„ & il vbCrLf
End Sub

But che del

Private Winsock1_Connect () non voglio usare neanche di questi metodi, io vuole appena tutto essere incluso nell'un aiuto di button.

Please! class= del

Risposta : Errore Run-Time “40006„ del Winsock del telnet VB6

Ora vedo perché volete avere tutto il codice in un sommergibile… Ma purtroppo quello non è il senso che abbia progettato.
Provare il seguente codice:

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 riservato come numero intero

Sommergibile riservato Command1_Click ()
    iButton = 1
    ConnectWinsock
Sommergibile dell'estremità

Sommergibile riservato Command2_Click ()
    iButton = 2
    ConnectWinsock
Sommergibile dell'estremità

Sommergibile riservato Command3_Click ()
    iButton = 3
    ConnectWinsock
Sommergibile dell'estremità

ConnectWinsock secondario riservato ()
    Winsock1.Close
    Winsock1.Connect “192.168.1.1„, 23
Sommergibile dell'estremità

Sommergibile riservato Winsock1_Connect ()
    Selezionare il iButton di caso
        Caso 1: Winsock1.SendData “admin„ & vbCrLf
        Caso 2: Winsock1.SendData “potere del tx„ & vbCrLf
        Caso 3: Winsock1.SendData “aiuto„ & vbCrLf
    Estremità prescelta
Sommergibile dell'estremità

Sommergibile riservato Winsock1_Error (numero di ByVal come il numero intero, descrizione come stringa, ByVal Scode come lungamente, fonte come stringa, ByVal HelpFile come stringa, ByVal HelpContext come lungamente, CancelDisplay di ByVal come booleano)
    L'errore di MsgBox “ha accaduto: „ & descrizione
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us