Elissatore

HotKeySet("{esc}","_esc")
HotKeySet("{ENTER}","drawp")
#Include <screencapture.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <gdiplus.au3>
$loop=0
$form=GUICreate("Image Editor", @DesktopWidth, @DesktopHeight, 0, 0, $WS_MINIMIZEBOX+$WS_POPUP)
$menu = GUICtrlCreateMenu ( "File" )
$sav = GUICtrlCreateMenuItem ( "Set Dim",$menu )
_ScreenCapture_Capture ( @ScriptDir & "\a.jpg")
$picy = GUICtrlCreatePic ( @ScriptDir & "\a.jpg", 1,1,@DesktopWidth,@DesktopHeight )
GUICtrlSetState ( -1, $GUI_DISABLE )
$dim = 1
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($form)
$hPen = _GDIPlus_PenCreate (0xFFFF5511, 5)

GUICtrlSetCursor(-1,16)
GUISetState()
while 1
Sleep(10)
$loop+=1
if $loop=10 Then
$i="0xFF"&Random(1,99,1)&Random(11,99,1)&Random(11,99,1)
$hPen = _GDIPlus_PenCreate ($i, 5)
$loop=0
EndIf

Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $sav
$dim = InputBox ( "Wrote dim", "Wrote dim", 1 )
EndSwitch
WEnd


Func _esc()
Exit
EndFunc

Func drawp ()
$arr=GUIGetCursorInfo($form)
$pict = _GDIPlus_GraphicsDrawEllipse ($hGraphic,$arr[0] , $arr[1],$dim,$dim,$hPen)
EndFunc