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

Тема в разделе "Visual Basic", создана пользователем kreativ4eg, 4 июл 2012.

  1. kreativ4eg

    kreativ4eg Гость

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

    Вот клиент:

    Код (Text):
    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
    вот сервак
    Код (Text):
    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, в чем дело?
    Это два компа соединенные между собой.
     
  2. Aliquam

    Aliquam New Member

    Регистрация:
    17 мар 2012
    Сообщения:
    4
    Симпатии:
    0
    Возможно ты запускаешь сначала клиента и лишь потом сервер :)

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

    Добавлено: http://support.microsoft.com/kb/183987
     
Загрузка...

Поделиться этой страницей