Как на 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д