Azu Posted August 30, 2006 Share Posted August 30, 2006 (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. 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 Link to comment Share on other sites More sharing options...
Azu Posted August 31, 2006 Author Share Posted August 31, 2006 Fixed typo in script Link to comment Share on other sites More sharing options...
Azu Posted September 1, 2006 Author Share Posted September 1, 2006 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? Link to comment Share on other sites More sharing options...
Azu Posted September 3, 2006 Author Share Posted September 3, 2006 Wow so many views.. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now