Проблема в следующем: немогу понять почему работает неправильно.

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

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

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

Цитата

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

Код

Option Explicit 'Очищаем список, и отправляем на адрес 255.255.255.255 через порт 3000 символ 255. Для того чтобы другие компы прислали своё имя (локальный IP) Private Sub Command2_Click()    List2.Clear    SockA.SendData Chr(255) End Sub Private Sub Form_Load()    SockA.LocalPort = 3000    SockA.RemotePort = 3000    SockA.RemoteHost = "255.255.255.255"        SockA.Bind SockA.LocalPort, SockA.LocalIP End 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 If End Sub