RO-fan

Добавлено: **Пн июл 28, 2008 6:49 pm**

Вопщем так...нужно открыть соединение с локального на удаленный комп(через сокеты). Почему 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.
Мож кто знает в чем трабла?

Добавлено: **Вт июл 29, 2008 3:07 pm**

.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

RO-fan

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

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