OnExit, ExitScript
FilePath := A_MyDocuments . "\scr.ini"
IfNotExist, %FilePath%
{
IniWrite, 0, %FilePath%, scr, total_vb
}
IniRead, total_vb, %FilePath%, scr, total_vb
session_vb := 0
Gui, +AlwaysOnTop +ToolWindow -Caption
Gui, Add, Text, vBoxCountText w100, Ящиков перенесено: %total_vb%
Gui, Show, x0 y0
F5::
SetTimer, PixelSearchTimer, 100
Sleep, 5000
Return
F7::
SetTimer, PixelSearchTimer, Off
Sleep, 500
total_vb := 0
IniWrite, %total_vb%, %FilePath%, scr, total_vb
ExitApp
PixelSearchTimer:
PixelSearch, x, y, 966, 487, 968, 489, 0x7ED321,, Fast RGB
If !ErrorLevel
{
Send {e}
total_vb += 1
IniWrite, %total_vb%, %FilePath%, scr, total_vb
GuiControl,, BoxCountText, Ящиков перенесено: %total_vb%
if (total_vb = 25){
SoundBeep 700,200
}
}
Return
GuiClose:
ExitApp
ExitScript:
total_vb := 0
IniWrite, %total_vb%, %FilePath%, scr, total_vb
ExitApp