Вопрос : Продолжающая погрешность «40006» Winsock Telnet VB6

Я использую следующий Кодего -
Winsock1.Connect (" 192.168.1.1 "), 23
Winsock1.SendData «admin» & vbCrLf
End Sub

and

Private Sub Connect_Click () основно получает ошибку -

I продолжающей погрешности '40006 ' могу избежать этой ошибки путем иметь 2 отдельно кнопки, одной, котор нужно соединиться и одного для того чтобы выдать командование SendData, или путем использование следующий функции -
Winsock1.SendData «admin» & vbCrLf
End Sub

But, котор

Private Sub Winsock1_Connect () я не хочу использовать также этих методов, я как раз хочет все быть включенным в одну помощь button.

Please! class=

Ответ : Продолжающая погрешность «40006» Winsock Telnet VB6

Теперь я вижу почему вы хотите иметь полностью Кодего в одной подводной лодке… Но несчастливо то не будет дорога, котор оно конструировало.
Попытайтесь следующий Кодий:

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 как интежер Приватная подводная лодка Command1_Click () iButton = 1 ConnectWinsock Подводная лодка конца Приватная подводная лодка Command2_Click () iButton = 2 ConnectWinsock Подводная лодка конца Приватная подводная лодка Command3_Click () iButton = 3 ConnectWinsock Подводная лодка конца Приватное Sub ConnectWinsock () Winsock1.Close Winsock1.Connect «192.168.1.1», 23 Подводная лодка конца Приватная подводная лодка Winsock1_Connect () Выберите iButton случая Случай 1: Winsock1.SendData «admin» & vbCrLf Случай 2: Winsock1.SendData «сила tx» & vbCrLf Случай 3: Winsock1.SendData «помощь» & vbCrLf Конец отборный Подводная лодка конца Приватная подводная лодка Winsock1_Error (номер ByVal как интежер, описание как шнур, ByVal Scode как длиной, источник как шнур, ByVal HelpFile как шнур, ByVal HelpContext как длиной, CancelDisplay ByVal как булевско) Ошибка MsgBox «произошла: » & описание Подводная лодка конца