Th3_F0x |
|
| Salve a tutti oggi vi propongo un interessante mix fra lo screen capture e una piccolissima applicazione delle gdi+. A prima vista il programma fa comparire uan gui (il cui tasto di escape è EXIT) che screenna una regione dello schermo, ma spostate il mouse verso il centro della gui e divertitevi xD. Lo so è inutile ma a me sembrava carino xD A voi: CODICE HotKeySet("{esc}","_esc")
#Include <ScreenCapture.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$range=160
$loop=0
$form=GUICreate("asd",400,400,10,10,$WS_POPUPWINDOW)
_ScreenCapture_SetJPGQuality(20)
_ScreenCapture_Capture(@scriptdir&"\asd.jpg",MouseGetPos(0)-$range,MouseGetPos(1)-$range,MouseGetPos(0)+$range,MouseGetPos(1)+$range)
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($form)
$hPen = _GDIPlus_PenCreate (0xFFFF5511, 5)
$pic=GUICtrlCreatePic(@scriptdir&"\asd.jpg",5,5,390,390)
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
$arr=GUIGetCursorInfo($form)
_GDIPlus_GraphicsDrawEllipse ($hGraphic,$arr[0] , $arr[1], 14, 14,$hpen)
_ScreenCapture_SetJPGQuality(20)
_ScreenCapture_Capture(@scriptdir&"\asd.jpg",MouseGetPos(0)-$range,MouseGetPos(1)-$range,MouseGetPos(0)+$range,MouseGetPos(1)+$range)
GUICtrlSetImage($pic, @scriptdir&"\asd.jpg")
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _esc()
Exit
EndFunc |
| | |
