rendered paste body; ****************************************************************************************************************************************************************
; System check
; ****************************************************************************************************************************************************************
#singleinstance force
;#notrayicon
if A_OSVersion in WIN_NT4,WIN_95,WIN_98,WIN_ME
{
MsgBox This program requires Windows 2000/XP or later.
ExitApp
}
; ****************************************************************************************************************************************************************
; Settings
; ****************************************************************************************************************************************************************
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
colordef=959595 ; Standard color for now
; ****************************************************************************************************************************************************************
; GUI Dev.
; ****************************************************************************************************************************************************************
Main:
gui, 1:color, %colordef%
Gui, 1:Show, x1000 y119 h400 w200, Mail
WinGet Gui_ID, ID, Mail
Gui, 1:Add, Button, x0 y380 w60 h20 , Avslutt
Gui, 1:Add, Button, x60 y380 w60 h20 , Reload
Gui, 1:Add, Button, x0 y0 w200 h50 , Get Mail
Gui, 1:Add, Button, x0 y50 w200 h50 , STOP!
Gui, 1:Add, Button, x0 y100 W200 H25, Set Mouse
Gui, 1:Add, Text, x0 y130 w200 h25 +center , Mouse Info: %MouseX%, %MouseY%
Gui, 1:Add, Button, x0 y155 W200 h25, Get Color
Gui, 1:Add, Text, x0 y185 w200 h25 +center , Color Info: %color%
return
;-----
; ****************************************************************************************************************************************************************
; Buttons and keys
; ****************************************************************************************************************************************************************
buttonsetmouse:
gui, 1:destroy
WinWaitActive, RIFT
sleep 5000
MouseGetPos, MouseX, MouseY
SplashTextOn, 400, 20 , MouseDone, Mouse pos. set %MouseX%, %MouseY%
sleep 2000
SplashTextOff
gosub, Main
return
;-----
buttongetcolor:
gui, 1:destroy
WinWaitActive, RIFT
CoordMode, Pixel
PixelGetColor, color, %MouseX%, %MouseY%
SplashTextOn, 400, 20 , ColorDone, Color Set %color%
sleep 2000
SplashTextOff
gosub, Main
return
;-----
+a::
nextmail:
buttongetmail:
WinWaitActive, RIFT
CoordMode, Pixel
PixelGetColor, newmail, %MouseX%, %MouseY%
If (newmail = "%color%") ;NewMail
{
MouseMove, %MouseX%, %MouseY%
sleep 500
MouseClick, left, %MouseX%, %MouseY%
sleep 1000
gosub, getmail
}
else
MsgBox %MouseX%, %MouseY% %color% %newmail% ;Debug
;SplashTextOn, 400, 20 , Done, No more Mail...
;sleep 2000
;SplashTextOff
return
;-----
buttonreload:
reload
;-----
Pause::
Suspend
Pause,,1
return
;-----
; ****************************************************************************************************************************************************************
; Codes
; ****************************************************************************************************************************************************************
getmail:
CoordMode, Pixel
Pixelgetcolor, getmail, 580, 599
If (getmail = "0x43413F")
{
MouseMove, 535, 602
sleep 500
MouseMove, 534, 601
sleep 500
MouseClick, left, , , 2
sleep 500
gosub, nextmail
}
If (getmail = "0x42413F")
{
MouseMove, 535, 602
sleep 500
MouseMove, 534, 601
sleep 500
MouseClick, left, , , 2
sleep 500
gosub, nextmail
}
Else
MsgBox Error @ geting mail
reload
return
;-----
; ****************************************************************************************************************************************************************
; ExitApp
; ****************************************************************************************************************************************************************
guiclose:
buttonavslutt:
buttonstop!:
exitapp