Как на VB отослать широковещательный пакет?

Формулировка задачи:

Никто не знает как на VB отослать широковещательный пакет... вообще мне нужно чтобы его получили все машины в сети...

Решение задачи: «Как на VB отослать широковещательный пакет?»

textual
                            Листинг программы 
                        

                            Private Sub Timer1_Timer()
   
    Dim NextMsgSize As Long, MsgSize As Long, MsgCount As Long, retVal As Long
    Dim DummyBuffer As String
 
    timerCounter = timerCounter + 1  ' считаем секунды
    
    NextMsgSize = 0
    MsgSize = 0
    retVal = GetMailslotInfo(MailslotHandle, CLng(0), NextMsgSize, MsgCount, CLng(0))
 
    If NextMsgSize <> MAILSLOT_NO_MESSAGE Then
        If NextMsgSize > 5 Then
            ' по формату сообщение не может быть меньше 5 символов, даже от компьютера,
            ' чьё имя состоит из одной буквы.
            Call ReadMessage(NextMsgSize)
        Else
            retVal = ReadFile(MailslotHandle, DummyBuffer, ByVal NextMsgSize, MsgSize, ByVal CLng(0))
            ' считываем в ненужный буфер чтобы сообщение не лежало в слоте.
        End If
    End If
End Sub
                        