проблема с winsock в VB6

Вопросы, которые касаются Рагнарок онлайн, но не касаются OpenKore.

Модератор: 4epT

chazer
Начинающий
Сообщения: 39
Зарегистрирован: Пн ноя 13, 2006 2:24 pm

проблема с winsock в VB6

Сообщение chazer »

Вопщем так...нужно открыть соединение с локального на удаленный комп(через сокеты). Почему VB? Да потому что кроме VB и Перла я ничего больше не знаю,а на машине,где будет юзаться сия прога, с АктивПерлом совсем плохо.А трабла в том,что вот этот код:

Код: Выделить всё

Private Sub Command1_Click()
   wins.RemoteHost = "81.177.13.7"
   wins.RemotePort = 6900
   wins.LocalPort = 3434
   wins.Connect
   If wins.State = sckConnected Then
      Label1.Caption = "Connected"
   Else
      Label1.Caption = "Error"
   End If

End Sub
ВСЕГДА возврещает Error.
Мож кто знает в чем трабла?
Life is pain...
Prontera.ru
Новичок
Сообщения: 4
Зарегистрирован: Вт май 27, 2008 1:23 pm
Контактная информация:

Сообщение Prontera.ru »

.Connect асинхронный.

Код: Выделить всё

Private Sub Command1_Click()
wins.RemoteHost = "81.177.13.7"
wins.RemotePort = 6900
wins.LocalPort = 3434
wins.Connect
End Sub

Private Sub wins_Connect()
If wins.State = sckConnected Then
   Label1.Caption = "Connected"
Else
   Label1.Caption = "Error"
End If
End Sub

Ответить