Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для beve

Старожил


Сообщения: 307
Благодарности: 137

Профиль | Отправить PM | Цитировать


Цитата novosibirec:
не могу понять как зациклить пинг до удачного завершения!!! »
Код: Выделить весь код
HotKeySet("{Esc}","_exit")

While 1
    if Ping("www.google.com.ua",500)<>0 then
        _GetFile()
        Exit
    Else
        ToolTip ("Пауза в 20 минут", 0, 0)
        Sleep(60000*20)
        ToolTip ("")
    endif
Wend

;для теста
Func _GetFile()
    ToolTip ("Начало загрузки файла...", 0, 0)
    for $i=1 to 10
        ToolTip ("Загружено: "&$i&"%", 0, 0)
        Sleep(500)
    Next
    ToolTip ("Файл загружен!", 0, 0)
EndFunc

Func _exit()
    Exit
EndFunc

-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.


Отправлено: 19:18, 30-10-2010 | #2