Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)

Модерирует : gyra, Maz

Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

sproxy



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

 
Сервер:

Код:
UDPStartup()
$socket = UDPBind(@IPAddress1, 18001)
If @error <> 0 Then Exit
 
$n = 0
While 1
    $data = UDPRecv($socket, 500)
    If $data <> '' Then
        MsgBox(0, 'Server', $data, 1) ; комент
        $data = ''
    EndIf
    Sleep(100)
    $n += 1
;~     $status = UDPSend($socket, 'Server message #' & $n)
;~     If $status = 0 then
;~         MsgBox(0, 'ERROR', 'Error while sending UDP message: ' & @error)
;~         Exit
;~     EndIf

WEnd
 
Func
OnAutoItExit()
    UDPCloseSocket($socket)
    UDPShutdown()
EndFunc

 
 
Клиент:

Код:
UDPStartup()
$socket = UDPOpen(@IPAddress1, 18001)
If @error <> 0 Then Exit
 
$n = 0
While 1
    $status = UDPSend($socket, 'Client message #' & $n)
    If $status = 0 then
        MsgBox(0, 'ERROR', 'Error while sending UDP message: ' & @error)
        Exit
    EndIf

    Sleep(100)
    $n += 1
    $data = UDPRecv($socket, 500)
    If $data <> '' Then
        MsgBox(0, 'Client', $data, 1)
        $data =''
    EndIf
WEnd
 
Func
OnAutoItExit()
    UDPCloseSocket($socket)
    UDPShutdown()
EndFunc

 
 
 
 
 
 
 

Всего записей: 556 | Зарегистр. 21-11-2007 | Отправлено: 06:18 02-07-2009
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)
Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru