Jump to content
Sign in to follow this  
Azu

Checksum tool

Recommended Posts

Azu

I made this for myself for when I have a whole lot of checksums and stuff that I need to get quickly.

Maybe some of you will find it useful also.

#include<guiconstants.au3>
;processsetpriority("AutoIt3.exe",0);Uncomment these if
;processsetpriority(@ScriptName,0);the script makes lag
$paused=""
opt("guioneventmode",1)
$mygui=guicreate("Press ESC",65,60,-1,-1,-1,$WS_EX_TOOLWINDOW+$WS_EX_TOPMOST)
guisetonevent($gui_event_close,"ex")
guisetstate()
guictrlcreatelabel("X1:",0,0,15,15)
guictrlcreatelabel("Y1:",0,15,15,15)
guictrlcreatelabel("X2:",0,30,15,15)
guictrlcreatelabel("Y2:",0,45,15,15)
$x1=guictrlcreateinput("",15,0,50,15)
$y1=guictrlcreateinput("",15,15,50,15)
$x2=guictrlcreateinput("",15,30,50,15)
$y2=guictrlcreateinput("",15,45,50,15)
Global Const $SM_VIRTUALWIDTH = 78
Global Const $SM_VIRTUALHEIGHT = 79
$1x = dllcall("user32.dll","int","GetSystemMetrics","int",$SM_VIRTUALWIDTH)
$1x = $1x[0]
$1y = dllcall("user32.dll","int","GetSystemMetrics","int",$SM_VIRTUALHEIGHT)
$1y = $1y[0]
hotkeyset("{F4}", "ex")
hotkeyset("{ESC}", "cs")
hotkeyset("{pause}","tp")
func cs()
clipput(PixelChecksum(guictrlread($x1),guictrlread($y1),guictrlread($x2),guictrlread($y2)))
splashtexton("","The checksum of X1:"&guictrlread($x1)&" Y1:"&guictrlread($y1)&" X2:"&guictrlread($x2)&" Y2:"&guictrlread($y2)&" is: "&PixelChecksum(guictrlread($x1),guictrlread($y1),guictrlread($x2),guictrlread($y2))&@crlf&"Press esc to close this window."&@crlf&"F4 to exit script."&@crlf&"Pause button pauses tooltip.",200,200,-1,-1,1)
hotkeyset("{ESC}", "cl")
endfunc
func ex()
exit
endfunc
func cl()
splashoff()
hotkeyset("{ESC}", "cs")
endfunc
func tp()
$paused=not $paused
while $paused
sleep(100)
wend
endfunc
while 1
$a=mousegetpos()
$x=$a[0]
$y=$a[1]
if $1x-$x>$1x/2 and $1y-$y>$1y/2 then
tooltip("X:"&$x&" Y:"&$y&" Pixel color:"&pixelgetcolor($x,$y),$x,$y+20)
elseif $1x-$x>$1x/2 then
tooltip("X:"&$x&" Y:"&$y&" Pixel color:"&pixelgetcolor($x,$y),$x,$y-18)
elseif $1y-$y>$1y/2 then
tooltip("X:"&$x&" Y:"&$y&" Pixel color:"&pixelgetcolor($x,$y),$x-174)
else
tooltip("X:"&$x&" Y:"&$y&" Pixel color:"&pixelgetcolor($x,$y),$x-174,$y-18)
endif
sleep(10)
wend
Edited by Azu

Share this post


Link to post
Share on other sites
Azu

Made tooltip "smart" so that as your cursor gets closer to an edge of the screen, it repositions itself so that it won't go off the screen. Cool huh? :P

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×