Платные хостинги     Раскрутка сайта     Книги по программированию

Сокеты, проблема с сокетом (UDP протокол)

- Проблема в следующем: немогу понять почему работает неправильно.А дело обстоит так, создаю две программы с двумя сокетами. Ставлю на прослушивание сообщений один и тот же порт. Пишу две функции, первая - отправляет на адрес 255.255.255.255 символ с ascii кодом 255 (можно и другой) на порт 3000, вторая - слушает локальный порт 3000 и если видет символ 255 отправляет на этот же адрес и порт имя компа.Так вот, запускаю эту прогу на 2-х машинах и жму на кнопку "обновить" (первая функция). после первого нажатия я получаю имена 2 машин, а после второго только локальное имя.Как сделать так, чтобы можно было всегда при нажатии этой кнопки получать список?Если что, могу выложить исходник.

- выложы плз. я так с UDP разобратся и не смог буду рад если получится

- Код Option Explicit'Очищаем список, и отправляем на адрес 255.255.255.255 через порт 3000 символ 255. Для того чтобы другие компы прислали своё имя (локальный IP)Private Sub Command2_Click()    List2.Clear    SockA.SendData Chr(255)End SubPrivate Sub Form_Load()    SockA.LocalPort = 3000    SockA.RemotePort = 3000    SockA.RemoteHost = "255.255.255.255"        SockA.Bind SockA.LocalPort, SockA.LocalIPEnd Sub'Если strData =255 то отправить свой локальный IP, если нет то записать присланный IP адрес в списокPrivate Sub SockA_DataArrival(ByVal bytesTotal As Long)    Dim strData As String        SockA.GetData strData    If strData = Chr(255) Then        SockA.SendData Text1.Text    Else        List2.AddItem strData    End IfEnd SubhighlightSyntax('vbmODEyY','vb');

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD