Jump to content
Sign in to follow this  
Somerset

drawing

Recommended Posts

Somerset

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


 

Spoiler

shoot_zpsfd329d66.png
dontbelieveeverythingyouthink_zps0e1e900

Madness is the first step to understanding...

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  

×