Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Создание "Прогресса" на время работы "InetGetSize"

Ответить
Настройки темы
Создание "Прогресса" на время работы "InetGetSize"

Аватара для sashadeg

Старожил


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

Профиль | Отправить 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
Благодарности: 0

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


Цитата:
zbruy, а что мешает там же подписаться и попутно следить за рассылаемыми сообщениями о смене режима энергопотребления?
не понял вопроса

Отправлено: 16:59, 13-09-2009 | #21



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Creat0R

Must AutoIt


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

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


zbruy, Как ваш вопрос связан с данной темой?

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


Отправлено: 19:02, 13-09-2009 | #22


Новый участник


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

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


Цитата:
zbruy, Как ваш вопрос связан с данной темой?
косвенно, вопрос по поводу расширения функционала прогресс бара

Отправлено: 19:54, 13-09-2009 | #23


Аватара для Creat0R

Must AutoIt


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

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


Цитата zbruy:
косвенно »
Косвенно могут быть связаны сотни друних тем, это не значит что нужно постить их тут. Создайте новую тему.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


Отправлено: 20:37, 13-09-2009 | #24


Аватара для Sp01LeR

Пользователь


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

Профиль | Отправить 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
Может топикстартер имел ввиду прогрес-бар для цикла While?

Отправлено: 15:26, 30-09-2009 | #25



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Создание "Прогресса" на время работы "InetGetSize"

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - [решено] Как удалить папку "Моя музыка","Мои Картинки", "Мое видео"? 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




 
Переход