deny
Новичок
- Сообщения
- 50
- Репутация
- 2
Код:
Global $Paused,$hLog,$Time,$y1
#Include <Log.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#include <ImageSearch.au3>
HotKeySet("{F4}", "_Pause")
HotKeySet("{F10}","Stop")
$a=""
$b=""
$h = (" - Хром")
$hWin = WinGetHandle('Хром')
$x1 = 0
$x2 = 0
$y1=0
Func stop()
Exit
EndFunc
Func _Pause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Отдыхаем!',1,1)
WEnd
EndFunc
#cs
$bEncrypted = '0xB6A6144E1441' ; пароль Привет
Do
$pass=InputBox('Вход', 'Введите пароль', '', '*', 100, 130)
If @error=1 Then Exit
Until $pass == BinaryToString(_Crypt_DecryptData($bEncrypted, $pass, $CALG_RC4))
MsgBox(0, 'Вход', 'Пароль верный ',1) ;MsgBox(0, 'Вход', 'Пароль верный - '&$pass)
#ce
While 1
WinActivate($hWin,"")
Sleep(Random(1000, 3000))
WinSetState($hWin,"",@SW_MAXIMIZE)
TrayTip("Внимание!","Работаем",1000)
$res = _ImageSearch("test1.bmp",1,$x1,$x2,100)
If $res = 1 Then ;Если найден то продолжения скрипта
Else
MouseClick("left",21,970) ; Как сделать чтоб скрипт поиска скрина ток повторялся
continueloop 1;Вроде повторяет,но с самого начала и долго или через pixelsearch будет быстрее?:(
;...если есть
endif
MouseClick("left", 164,977) ;
Sleep(Random(1000, 2000))
send($b)
ControlSend($hWin, "", "", "{Enter}")
Sleep(Random(1000, 2000))
send($a)
ControlSend($hWin, "", "", "{Enter}")
MouseClick("left", 342, 136)
Sleep(Random(1000, 2000))
MouseClick("left", 356,167)
Sleep(Random(1000, 2000))
MouseClick("left", 164,977)
send($a)
ControlSend($hWin, "", "", "{Enter}")
Sleep(Random(1500, 2000))
MouseClick("left", 319,119)
Sleep(Random(1000, 2000))
MouseClick("left", 504,131)
Sleep(Random(1000, 2000))
MouseClick("left", 778,387)
Sleep(Random(1000, 2000))
MouseClick("left", 164,977)
Sleep(Random(1000, 2000))
send($b)
ControlSend($hWin, "", "", "{Enter}")
Sleep(Random(1000, 2000))
MouseClick("left", 318,113)
Sleep(Random(1000, 2000))
MouseClick("left", 507,224)
Sleep(Random(1000, 2000))
MouseClick("left", 794,509)
Sleep(Random(1000, 5000))
MouseClick("left", 791,503)
Sleep(Random(1000, 2000))
MouseClick("left", 164,977)
Sleep(Random(1000, 2000))
send($b)
ControlSend($hWin, "", "", "{Enter}")
; ----------------------------------------------------
MouseClick("left", 339,119)
Sleep(Random(1000, 2000))
MouseClick("left", 339,119)
Sleep(Random(1000, 2000))
MouseClick("left", 354,130)
$hLog = _Log_Open(@ScriptDir & '\MyProg.log', '###Event Log Files UDF Exaple###') (Сохранение в ини ,скок раз работал
_Log_Report($hLog, 'Начало', 6)
If $Time Then
_Log_Report($hLog, 'Ping is successful, Time = ' & $Time & ' ms', 5)
Else
Switch @error
Case 1
_Log_Report($hLog, 'Ping is fails, host is offline', 1)
Case 2
_Log_Report($hLog, 'Ping is fails, host is unreachable', 2)
EndSwitch
EndIf
_Log_Report($hLog, 'Выход', 7)
_Log_Close($hLog)
_Sleep(1500) ; Таймер на 15 секунд ;~ Повтор всего скрипта
MsgBox(0,"Пауза...","Время вышло :)")
WEnd
Func _Sleep($iSec,$iX=1,$iY=1)
Local $hTimer = TimerInit(), $iTimer = 0
Do
$iTimer = Round(TimerDiff($hTimer)/1000,0)
ToolTip("Прошло "&$iTimer&" из "&$iSec&" секунд...",$iX,$iY,"Пауза...")
Sleep(250)
Until $iTimer >= $iSec
ToolTip("")
EndFunc