Lunetikk's IT Wiki

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