Здравствуйте. Собственно сабж.
После бэкапа системы, отказался работать, висит в трее, ошибок не выдаёт.
Возможно я что-то изменила. Подскажите, пожалуйста, что не так.
После бэкапа системы, отказался работать, висит в трее, ошибок не выдаёт.
Возможно я что-то изменила. Подскажите, пожалуйста, что не так.
Код:
#Include <FF.au3>
#include <Constants.au3>
#include <TrayConstants.au3>
#include <UIAutomate.au3>
#include <Date.au3>
HotKeySet('{Esc}', '_Exit')
Opt("TrayMenuMode", 1)
$Time_3 = TrayCreateItem("3 минуты", -1, -1, 1)
$Time_2 = TrayCreateItem("2 минуты", -1, -1, 1)
$Time_1 = TrayCreateItem("1 минута", -1, -1, 1)
TrayItemSetState(-1, $TRAY_CHECKED)
TrayCreateItem("")
$iExit = TrayCreateItem("Выход")
$Time_A = 1
$Time_Start = TimerInit()
While 1
Switch TrayGetMsg()
Case $Time_1
$Time_A = 1
Case $Time_2
$Time_A = 2
Case $Time_3
$Time_A = 3
Case $iExit
Exit
EndSwitch
If TimerDiff($Time_Start) > ($Time_A * 60 * 1000) Then
_test_func()
$Time_Start = TimerInit()
EndIf
WEnd
Func _test_func()
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Free")
If Not WinActive("Free") Then WinActivate("Free")
WinWaitActive("Free")
Send("{F5}") ;обновляю страницу
WinWaitActive("Free"); после обновления
Sleep(30000) ;пауза 30 секунд
Send("{F12}")
Sleep(10000)
Send("{CTRLDOWN}v{CTRLUP}{ENTER}") ;вставляю из буфера в консоль браузера, нажимаю enter
Sleep(5000)
Send("{F12}")
EndFunc
Func _Exit()
Exit
EndFunc