DetectHiddenWindows,On
#Persistent
IniRead, It_1, config.ini, MenuTray,It_1,% " "
Menu, Tray, NoStandard
Menu, Tray, Add, &START, 1st
Menu, Tray, add,
Menu, Tray, add, &Спрятать,Item1
IfEqual,It_1,1,Menu,Tray,Check,&Спрятать
Menu, Tray, add,
Menu, Tray, Add, &Показать браузер, ShowMM
Menu, Tray, Add, &Спрятать в трей, HMM
Menu, Tray, Add, &Таймер, Timer
Menu, Tray, Add, &Exit, Exit
Return
1st:
Process, Close, firefox.exe
IniRead, pi_d, config.ini, P_I_D, pi_d
Sleep, 500
IfWinNotExist, ahk_pid %pi_d%
{
IniRead, minmin, config.ini, freez, minmin
IniRead, maxmin, config.ini, freez, maxmin
IniRead, last_line, config.ini, Line, last_line ;Нужен ли тут IniRead? или хватит и в шапке кода?
IniRead, It_1, config.ini, MenuTray,It_1,% " "
Random, freez, %minmin%, %maxmin%
freeztime:= freez*1000*60 ;задержка в минутах*нам кл-во мс в секунды*на кол-во секунд в минуте
Random, rand, 2, 4
gosub, %rand%vid
}
return
2vid:
Random, rr1, 1, %last_line%
FileReadLine, vid1, 123.txt, %rr1%
Random, rr2, 1, %last_line%
FileReadLine, vid2, 123.txt, %rr2%
run, Start Tor Browser.lnk %vid1% %vid2%, D:\Tor Browser\, % It_1 ? "Hide" : "", pi_d
IniWrite, %pi_d%, config.ini, P_I_D, pi_d
WinWait, ahk_pid %pi_d%
TrayTip, Запускаю видео, %rand% Окна; ИД окна %pi_d%; Время слипа %freez%, 1, info,
gosub, Finish
return
3vid:
Random, rr1, 1, %last_line%
FileReadLine, vid1, 123.txt, %rr1%
Random, rr2, 1, %last_line%
FileReadLine, vid2, 123.txt, %rr2%
Random, rr3, 1, %last_line%
FileReadLine, vid3, 123.txt, %rr3%
run, Start Tor Browser.lnk %vid1% %vid2% %vid3%, D:\Tor Browser\, % It_1 ? "Hide" : "", pi_d
IniWrite, %pi_d%, config.ini, P_I_D, pi_d
WinWait, ahk_pid %pi_d%
TrayTip, Запускаю видео, %rand% Окна; ИД окна %pi_d%; Время слипа %freez%, 1, info,
gosub, Finish
return
4vid:
Random, rr1, 1, %last_line%
FileReadLine, vid1, 123.txt, %rr1%
Random, rr2, 1, %last_line%
FileReadLine, vid2, 123.txt, %rr2%
Random, rr3, 1, %last_line%
FileReadLine, vid3, 123.txt, %rr3%
Random, rr4, 1, %last_line%
FileReadLine, vid4, 123.txt, %rr4%
run, Start Tor Browser.lnk %vid1% %vid2% %vid3% %vid4%, D:\Tor Browser\, % It_1 ? "Hide" : "", pi_d
IniWrite, %pi_d%, config.ini, P_I_D, pi_d
WinWait, ahk_pid %pi_d%
TrayTip, Запускаю видео, %rand% Окна; ИД окна %pi_d%; Время слипа %freez%, 1, info,
gosub, Finish
return
Finish:
settimer time, 1000 ; запускаем таймер для отображения время паузы
time:=a_tickcount
Sleep, %freeztime%
IniRead, pi_d, config.ini, P_I_D, pi_d
Sleep, 500
;WinShow, ahk_pid %pi_d%
;Sleep, 500
WinKill, ahk_pid %pi_d%
Sleep, 5000
gosub, 1st
return
time:
time2 := (a_tickcount - time) // 60000 ;;минуты
return
Timer:
last2:= freez - time2
MsgBox, , Время, "Было всего:" %freez% "Осталось:" %last2% МИНУТ
return
Item1:
Menu, % A_ThisMenu, ToggleCheck, %A_ThisMenuItem%
It_1 := not It_1
IniWrite,% It_1,config.ini,MenuTray,It_1
Return
ShowMM:
IniRead, pi_d, config.ini, P_I_D, pi_d
WinShow, ahk_pid %pi_d%
return
HMM:
IniRead, pi_d, config.ini, P_I_D, pi_d
WinHide, ahk_pid %pi_d%
return
Exit:
WinShow, ahk_pid %pi_d%
ExitApp