GDIplus funcions help...

[Madza91]

Hello, i maded this script but its bugged...i don't know why...

Please help to fix this...

Error Screenshot:

Here is script:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
#include <ScreenCapture.au3>
#include <WindowsConstants.au3>

$hGUI = GUICreate("Avatar", 128, 158, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Avatar Maker", 15, 10, 98, 18)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
$Pic1 = GUICtrlCreatePic("", 10, 40, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetImage($Pic1,@DesktopDir & "\image.jpg")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)

_GDIPlus_Startup()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _GDIPlus_ShutDown()
            Exit
        Case $Pic1
        If _IsPressed(01) Then
            Do
            $pos = MouseGetPos()
            $hBitmap = _ScreenCapture_Capture("", $pos[0]-50, $pos[1]-50, $pos[0]+50, $pos[1]+50)
            $hImage    = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap)
            $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
            _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 14, 44)
        Until Not _IsPressed(01)
        MouseMove(@DesktopWidth,@DesktopHeight,0)
        _ScreenCapture_Capture(@DesktopDir & "\image.jpg", $pos[0]-50, $pos[1]-50, $pos[0]+50, $pos[1]+50)
        GUICtrlSetImage($Pic1,@DesktopDir & "\image.jpg")
        MouseMove($pos[0],$pos[1],0)
    EndIf
    EndSwitch
WEnd

[ProgAndy]

First, you have to delete all imjage-objects, which are created, second, there should be a Sleep in the Loop. e.g.:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
#include <ScreenCapture.au3>
#include <WindowsConstants.au3>

$hGUI = GUICreate("Avatar", 128, 158, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Avatar Maker", 15, 10, 98, 18)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
$Pic1 = GUICtrlCreatePic("", 10, 40, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetImage($Pic1,@DesktopDir & "\image.jpg")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _GDIPlus_GraphicsDispose($hGraphic)
            _GDIPlus_ShutDown()
            Exit
        Case $Pic1
            ConsoleWrite(".........." & @CRLF)
        If _IsPressed("01") Then
            Do
            $pos = MouseGetPos()
            $hBitmap = _ScreenCapture_Capture("", $pos[0]-50, $pos[1]-50, $pos[0]+50, $pos[1]+50,0)
            $hImage = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap)
            _WinAPI_DeleteObject($hBitmap)
            _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 14, 44)
            _GDIPlus_BitmapDispose($hImage)
            Sleep(100)
        Until Not _IsPressed("01")
        MouseMove(@DesktopWidth,@DesktopHeight,0)
        MsgBox(0, '', "No capture now")
;~       _ScreenCapture_Capture(@DesktopDir & "\image.jpg", $pos[0]-50, $pos[1]-50, $pos[0]+50, $pos[1]+50)
        GUICtrlSetImage($Pic1,@DesktopDir & "\image.jpg")
        MouseMove($pos[0],$pos[1],0)
    EndIf
    EndSwitch
WEnd

[Madza91]

Thank you very much