Требуется Помощь

[kreativ4eg]

Доброго времени суток.

Вот клиент:

Private Sub Command1_Click()
Winsock1.Connect
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "192.168.0.1"
Winsock1.RemotePort = 1009
End Sub

Private Sub Text1_Change()
Winsock1.SendData Text1.Text
End Sub

Private Sub Text2_Change()
Dim D As String
Winsock1.GetData D
Text2.Text = D
End Sub

вот сервак

Private Sub Form_Load()
Winsock1.LocalPort = 1009
Winsock1.Listen
End Sub

Private Sub Text1_Change()
Winsock1.SendData Text1.Text
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim DD As String
Winsock1.GetData DD
Text2.Text = DD
End Sub

В итоге ошибка 40006, в чем дело?
Это два компа соединенные между собой.

 

[Aliquam]

Возможно ты запускаешь сначала клиента и лишь потом сервер

Добавлено: Сделай проверку доступности сервера или пытайся читать данные с выключенного сервера)

Добавлено:

Ссылка скрыта от гостей