Somerset Posted March 26, 2005 Share Posted March 26, 2005 #include <GUIConstants.au3> $x=51 $y=51 $x=$x - 1 $y=$y - 1 $a=0 $b=0 GUICreate("Snapshot",$x,$y,-1,-1,$WS_POPUP) while 1 $var = PixelGetColor( $a,$b) $nex=Hex($var, 6) $shex="0x"&$nex GUICtrlCreateLabel ($a&$b,$a,$b,1,1) GUICtrlSetBkColor(-1,$shex) if $b = $y and $a = $x then Exitloop if $a <> $x then $a=$a + 1 else $a = 0 $b = $b +1 endif Wend GUISetState () While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend this draws a tiny window of the upper left hand corner of the screen. the$x=$x - 1 and $y=$y - 1 were supposed to help with the relative coords of the desktop so please disreguard. this script seems not to be able to draw beyond much of 50x50 without being incomplete. so this might begood for someone that wanted to have a floationg window following the mouse or something. you can easily devert this script to write out another script or something. i hope this helps in some stupid way i am bored.... 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