Checksum tool

[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.

expandcollapse popup

#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 September 1, 2006 by Azu

[Azu]

Fixed typo in script

[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?

[Azu]

Wow so many views..