|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Создание "Прогресса" на время работы "InetGetSize" |
|
|
Создание "Прогресса" на время работы "InetGetSize"
|
Старожил Сообщения: 379 |
Профиль | Отправить PM | Цитировать Это программа проверяющая наличие интернета на компьютере... Для функции "InetGetSize" хотелось бы "прогресс" установить, пока она выполняется... Это возможно? А как?
$size = InetGetSize("http://ya.ru/logo.png") If $size = 0 Then $1=MsgBox(20, "Yes or No Inet ?","К сожалению, сейчас Интернет на вашем компьютере НЕ РАБОТАЕТ. Сообщить, если Интернет будет работать?") Else MsgBox(64, "Yes or No Inet ?","Интернет РАБОТАЕТ =)") Exit EndIf If $1 = 6 Then While 1 sleep(5000) $size1 = InetGetSize("http://www.ya.ru") If $size1 = 0 Then Else Beep(1000,100) MsgBox(64, "Yes or No Inet ?","Интернет РАБОТАЕТ =) Время подключения: " & @hour &":"& @min &":"&@sec) Exit EndIf WEnd EndIf |
|
Отправлено: 17:43, 18-06-2009 |
Новый участник Сообщения: 35
|
Профиль | Отправить PM | Цитировать Цитата:
|
|
Отправлено: 16:59, 13-09-2009 | #21 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать zbruy, Как ваш вопрос связан с данной темой?
|
------- Отправлено: 19:02, 13-09-2009 | #22 |
Новый участник Сообщения: 35
|
Профиль | Отправить PM | Цитировать Цитата:
|
|
Отправлено: 19:54, 13-09-2009 | #23 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата zbruy:
|
|
------- Отправлено: 20:37, 13-09-2009 | #24 |
Пользователь Сообщения: 60
|
Профиль | Отправить PM | Цитировать Мне вот трудно понять, зачем вообще для функции "InetGetSize" ставить прогрес-бар - ведь она работает даже при плохой связи максимум 3-4 секунды:
While 1 sleep(5000) $begin = TimerInit() $size1 = InetGetSize("http://www.ya.ru/") $dif = TimerDiff($begin) TrayTip("", "$dif="&Round($dif/1000, 3)&" сек."&@CR&"$size1="&$size1,6,1) If $size1 = 0 Then Else Beep(1000,100) MsgBox(64, "Yes or No Inet ?", _ "Интернет РАБОТАЕТ =) Время подключения: " & @hour &":"& @min &":"&@sec) Exit EndIf WEnd |
Отправлено: 15:26, 30-09-2009 | #25 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Интерфейс - [решено] Как удалить папку "Моя музыка","Мои Картинки", "Мое видео"? | verdix | Microsoft Windows 2000/XP | 3 | 03-10-2009 23:46 | |
Debian/Ubuntu - [решено] Пропали кнопки "свернуть","закрыть","во весь екран" в папках | Alex.sys | Общий по Linux | 5 | 02-04-2009 11:13 | |
[решено] Как удалить два "неудаляемых" вируса, их "назначение", и принцип работы | Drongo | Хочу все знать | 20 | 11-05-2008 01:14 | |
[решено] Пропали пункты "Завершение работы" и "Перезагрузка" | Angry Demon | Microsoft Windows NT/2000/2003 | 5 | 30-03-2007 13:01 | |
Запретить/удалить пункт "Programs" ("Программы") из меню кнопки "Start" ("Пуск") | submaster | Microsoft Windows NT/2000/2003 | 5 | 13-09-2006 12:29 |
|