Sign in to follow this  
Followers 0
Azu

Checksum tool

4 posts in this topic

#1 ·  Posted (edited)

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



Fixed typo in script :P

Share this post


Link to post
Share on other sites

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

Wow so many views..

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  
Followers 0