1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. kreativ4eg

    kreativ4eg Гость

    Репутация:
    0
    Доброго времени суток.

    Вот клиент:

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

    Aliquam New Member

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

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

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

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