Cuestión : Error Run-Time “40006” del Winsock del telnet VB6

¡Estoy utilizando el código siguiente - el
Winsock1.Connect (“192.168.1.1 "), 23
Winsock1.SendData “admin” y vbCrLf
End Sub

and del

Private Connect_Click () consigue básicamente el error - el

I del error Run-Time '40006 ' puedo evitar este error teniendo dos botones separados, uno a conectar y uno para publicar el comando de SendData, o usando la función siguiente - el
Winsock1.SendData “admin” y vbCrLf
End Sub

But del

Private Winsock1_Connect () que no quiero utilizar tampoco de estos métodos, yo apenas quisiera que todo fuera incluida en la una ayuda de button.

Please! class= del

Respuesta : Error Run-Time “40006” del Winsock del telnet VB6

Ahora veo porqué usted quiere tener todo el código en un submarino… Pero desafortunadamente ésa no es la manera que diseñó.
Intentar el código siguiente:

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 privado como número entero

Submarino privado Command1_Click ()
    iButton = 1
    ConnectWinsock
Submarino del extremo

Submarino privado Command2_Click ()
    iButton = 2
    ConnectWinsock
Submarino del extremo

Submarino privado Command3_Click ()
    iButton = 3
    ConnectWinsock
Submarino del extremo

ConnectWinsock secundario privado ()
    Winsock1.Close
    Winsock1.Connect “192.168.1.1”, 23
Submarino del extremo

Submarino privado Winsock1_Connect ()
    Seleccionar el iButton del caso
        Caso 1: Winsock1.SendData “admin” y vbCrLf
        Caso 2: Winsock1.SendData “energía del tx” y vbCrLf
        Caso 3: Winsock1.SendData “ayuda” y vbCrLf
    Extremo selecto
Submarino del extremo

Submarino privado Winsock1_Error (número de ByVal como el número entero, descripción como secuencia, ByVal Scode como de largo, fuente como secuencia, ByVal HelpFile como secuencia, ByVal HelpContext como de largo, CancelDisplay de ByVal como boleano)
    Error de MsgBox el “ocurrió: ” Y descripción
Submarino del extremo
Otras soluciones  
 
programming4us programming4us