Что нового

[Окна, Диалоги] Отправка sms при появлении информационного окна

A

at

Гость
При разрыве связи с сервером на моем рабочем столе появляется шесть информационных окон «Сбой приема». Мой скрипт следит за этими окнами (активными и неактивными) и закрывает их. Дополнительно пытаюсь реализовать отправку sms с информацией о сбое на свой сотовый при помощи программы simplesms (http://www.simplesms.ru/programma-otpravki-sms-243-09-2010/). Пожалуйста подскажите, как правильно составить код, чтобы скрипт закрывал эти информационные окна и отправлял только одно sms-сообщение на сотовый. Вот мой скрипт.
Код:
$var = WinGetHandle("Сбой приема", "Exit")
While True

     Sleep(10)     
     If WinActive($var) Then
		 Sleep(1000)
          WinClose("Сбой приема", "Exit")
     Else
          WinClose("Сбой приема", "Exit")
     EndIf
 WEnd
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Примерно как-то так вот. Вместо Вашей программы - Блокнот.
Код:
While 1 ;основной цикл
	Sleep(100) ;пауза, чтобы процессор не грузился
	$var = WinGetHandle("[Class:Notepad]") ;получаем хэндл текущего окна Блокнота
	If $var Then ;если Блокнот есть (его хэндл), тогда
		Sleep(10000) ;делаем паузу на 10 секунд, возможно за это времямя все 6-8 Блокнотов появятся
		Close() ;вызываем функцию Close
	EndIf
WEnd

Func Close() ;функция Close
	While WinExists("[Class:Notepad]") ;цикл (пока сушествуют окна Блокнота)>>
		Sleep(100) ;пауза, чтобы процессор не грузился
		WinClose("[Class:Notepad]") ;>> закрываем их
	WEnd ;конец цикла (все Блокноты закрыты)
	SMS() ;теперь вызываем функцию SMS
EndFunc

Func SMS() ;функция SMS
	MsgBox(64, "Сообщение СМС", "Отправляем СМС") ;тут пишем код отправки СМС
EndFunc
 
Автор
A

at

Гость
:smile: Спасибо за помощь. Подставил в код свои значения - все работает.
 
Верх