HotKeySet("{x}", "rec") Hotkeyset("{END}", "close") Func rec() $Checktitle = "Dropbox - Mozilla Firefox" While 1 MouseClick("left",690,1000) Sleep(2500) $Title = "x" $Title = WinGetTitle("") While $Title <> $Checktitle Sleep(1000) $Title = WinGetTitle("") WEnd MouseClick("left",930,680) Sleep(2500) MouseClick("left",1234,440) Sleep(2500) WEnd EndFunc Func close () Exit 0 EndFunc Sleep(1) While 1 Sleep (10) WEnd
HotKeySet("{PGUP}", "start") HotKeySet("{PGDN}", "start2") Hotkeyset("{END}", "close") $Destiny2 = 'Destiny 2' $CODWW2Beta = 'Call of Duty: WWII' $Destiny2tags = 'Xbox Lunetikk LunetikkShorts DPSLunetikk DVR "DPS Lunetikk" Destiny 2 "Destiny 2"' Func start() MouseClick("left",540,770) Sleep(100) ClipPut('Xbox Lunetikk LunetikkShorts DPSLunetikk DVR "DPS Lunetikk" Destiny 2 "Destiny 2"') Send("^v") Sleep(100) MouseClick("left",825,580) Sleep(100) MouseClick("left",1035,690) Sleep(100) Send($Destiny2) Sleep(100) MouseWheel("down",1) Sleep(100) MouseClick("left",956,982) Sleep(100) MouseClick("left",1344,100) EndFunc Func start2() MouseClick("left",540,770) Sleep(100) ClipPut('Xbox Lunetikk LunetikkShorts DPSLunetikk DVR "DPS Lunetikk" COD WW2 "COD WW2" "Call of Duty WW2" "Call of Duty" Beta') Send("^v") Sleep(100) MouseClick("left",825,580) Sleep(100) MouseClick("left",1035,690) Sleep(100) Send($CODWW2Beta) Sleep(100) MouseWheel("down",1) Sleep(100) MouseClick("left",956,982) Sleep(100) MouseClick("left",1344,100) EndFunc Func close () Exit 0 EndFunc Sleep(1) While 1 Sleep (10) WEnd
#cs ---------------------------------------------------------------------------- Unpack multiple rars via window queue After one window is done, another window with status "paused" will start to unpack Rename $RAR_pause and $RAR_entpacken to match your language in the window title (paused/unpacking) Also set the coordinates to match your monitor resolution #ce ---------------------------------------------------------------------------- HotKeySet("{PGUP}", "start") Hotkeyset("{END}", "close") AutoItSetOption ( "WinTitleMatchMode", 2 ) $Title = "x" $RAR_pause = "Pause" $RAR_entpacken = "Entpacke" Func start() while 1 $Title = WinGetTitle("") $result = StringInStr($Title, $RAR_entpacken) If $result = 0 Then WinActivate ( $RAR_pause ) WinMove("[Active]", "", 1080, 590) Sleep(100) MouseClick("left",1305,805) Sleep(5000) Else Sleep(5000) EndIf Sleep (10) WEnd EndFunc Func close () Exit 0 EndFunc Sleep(1) While 1 Sleep (10) WEnd