Beiträge von Tweaky

**Tweaky** · Vor 17 Stunden

Danke euch beiden.

Das Skript ist nun viel besser als vorher.

Es flackert nichts mehr.

Das Fadenkreuz in der Lupe bewegt sich nicht.

Einfach top.

Danke

**Tweaky** · Dienstag, 19:31

Ich hab noch eine Idee, aber es funktioniert nicht und ich weiß nicht wieso

Beim folgenden Skript ist das Fadenkreuz mittig in der Lupe und flackert nicht

AutoIt

#Region    ;************ Includes ************
#include <WinAPIGdi.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
#EndRegion ;************ Includes ************

Global $hGui_fadenkreuz1, $hGui_fadenkreuz2
Global $aStart_Pos1, $idLabel_ausschnitt
Global $UserDLL = DllOpen("user32.dll")
Global $aMouse_Pos

Global $iDesktopLeft = 0
Global $iDesktopTop = 0
Global $iDesktopRight = @DesktopWidth
Global $iDesktopBottom = @DesktopHeight

Global $hGui_lupe

Global Const $x_gui = 100 ;Größe des Vergrößerungsfensters
Global Const $y_gui = 100 ;Größe des Vergrößerungsfensters
Global Const $iKreuz_laenge = 10000 ;Länge des Fadenkreuzes (muss mindestens doppelt so gross sein wie die Breite bzw. Höhe der Bildschirme)
Global $x_verschieben = 120 ;um wie viel das Vergrößerungsfenster in X verschoben werden soll, wenn der Cursor zu nah an den Bildschirmrand kommt
Global $y_verschieben = 120 ;um wie viel das Vergrößerungsfenster in Y verschoben werden soll, wenn der Cursor zu nah an den Bildschirmrand kommt



;AutoItSetOption
Opt("GUICloseOnESC", 0) ;1=ESC beendet, 0=ESC schließt nicht
Opt('MouseCoordMode', 1)
Opt('GUIOnEventMode', 1)
;~ Opt("TrayIconDebug", 1) ; 0=keine Info, 1=Debug Zeileninfo

_auswahl()

Func _auswahl()
    Local $status, $hGui_Auswahl, $aStart_Pos

    $hGui_Auswahl = GUICreate("Screenshot", $iDesktopRight - $iDesktopLeft, $iDesktopBottom - $iDesktopTop, 0, 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) ; erstellen eines GUI-Fensters
    WinSetTrans($hGui_Auswahl, "", 20)
    GUISetState()

    $aMouse_Pos = MouseGetPos()

    $status = _lupe_1_punkt() ;evtl. "Abbruch"

    While 1
        If _IsPressed("01", $UserDLL) Then     ;Linke Maustaste gedrückt
            $aStart_Pos = MouseGetPos()
            $status = _lupe_2_punkt()     ;evtl. "Abbruch"
            ExitLoop
        EndIf
    WEnd
EndFunc   ;==>_auswahl



Func _lupe_1_punkt()
    $idLabel_ausschnitt = GUICtrlCreateLabel('', $iDesktopLeft, $iDesktopTop, 1, 1, $SS_SUNKEN)
    GUICtrlSetBkColor($idLabel_ausschnitt, 0xFF0000) ;rötliche Farbe des Ausschnittes

    $aStart_Pos1 = MouseGetPos()

    $hGui_fadenkreuz1 = GUICreate("Kreuz", $iKreuz_laenge, 1, $aStart_Pos1[0] - $iKreuz_laenge / 2, $aStart_Pos1[1], $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) ; Vergrößerungsfenster
    GUISetBkColor(0x0000FF, $hGui_fadenkreuz1)
    $hGui_fadenkreuz2 = GUICreate("Kreuz", 1, $iKreuz_laenge, $aStart_Pos1[0], $aStart_Pos1[1] - $iKreuz_laenge / 2, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) ; Vergrößerungsfenster
    GUISetBkColor(0x0000FF, $hGui_fadenkreuz2)
    WinSetOnTop($hGui_fadenkreuz1, "", 1)
    WinSetOnTop($hGui_fadenkreuz2, "", 1)
    GUISetState(@SW_SHOW, $hGui_fadenkreuz1)
    GUISetState(@SW_SHOW, $hGui_fadenkreuz2)

    $hGui_lupe = GUICreate("Lupe", $x_gui - 5, $y_gui - 5, 0, 0, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW) ; Vergrößerungsfensters / Breite und Höhe jeweils -5, damit das Kreuz mittig ist (ermittelt durch probieren)

    While Not _IsPressed("01", $UserDLL) ;Linke Maustaste nicht gedrückt
        _lupe_verschieben()
        If _IsPressed("1B", $UserDLL) Then Return "Abbruch" ;Bereich Abbruch >>> "Abbruch" zurückgeben
    WEnd

    $aStart_Pos1 = MouseGetPos()
    Return $aStart_Pos1
EndFunc   ;==>_lupe_1_punkt



Func _lupe_2_punkt()
    While 1
        While _IsPressed("01", $UserDLL) ;Linke Maustaste gedrückt
            _lupe_verschieben()

            ;links oben nach rechts unten:
            If $aMouse_Pos[1] > $aStart_Pos1[1] And $aMouse_Pos[0] > $aStart_Pos1[0] Then GUICtrlSetPos($idLabel_ausschnitt, $aStart_Pos1[0] + 1 - $iDesktopLeft, $aStart_Pos1[1] + 1 - $iDesktopTop, $aMouse_Pos[0] - $aStart_Pos1[0], $aMouse_Pos[1] - $aStart_Pos1[1]) ;X und Y + 1 >>> sonst wird das Fenster bei einer schnellen Bewegung nicht bis ganz an den Rand gezogen

            ;links unten nach rechts oben:
            If $aMouse_Pos[1] < $aStart_Pos1[1] And $aMouse_Pos[0] > $aStart_Pos1[0] Then GUICtrlSetPos($idLabel_ausschnitt, $aStart_Pos1[0] + 1 - $iDesktopLeft, $aMouse_Pos[1] + 1 - $iDesktopTop, $aMouse_Pos[0] - $aStart_Pos1[0], $aStart_Pos1[1] - $aMouse_Pos[1]) ;X und Y + 1 >>> sonst wird das Fenster bei einer schnellen Bewegung nicht bis ganz an den Rand gezogen

            ;rechts oben nach links unten:
            If $aMouse_Pos[1] > $aStart_Pos1[1] And $aMouse_Pos[0] < $aStart_Pos1[0] Then GUICtrlSetPos($idLabel_ausschnitt, $aMouse_Pos[0] + 1 - $iDesktopLeft, $aStart_Pos1[1] + 1 - $iDesktopTop, $aStart_Pos1[0] - $aMouse_Pos[0], $aMouse_Pos[1] - $aStart_Pos1[1]) ;X und Y + 1 >>> sonst wird das Fenster bei einer schnellen Bewegung nicht bis ganz an den Rand gezogen

            ;rechts unten nach links oben:
            If $aMouse_Pos[1] < $aStart_Pos1[1] And $aMouse_Pos[0] < $aStart_Pos1[0] Then GUICtrlSetPos($idLabel_ausschnitt, $aMouse_Pos[0] - $iDesktopLeft, $aMouse_Pos[1] + 1 - $iDesktopTop, $aStart_Pos1[0] - $aMouse_Pos[0], $aStart_Pos1[1] - $aMouse_Pos[1]) ;X und Y + 1 >>> sonst wird das Fenster bei einer schnellen Bewegung nicht bis ganz an den Rand gezogen
        WEnd

        Sleep(10)
        Return $idLabel_ausschnitt
    WEnd
EndFunc   ;==>_lupe_2_punkt



Func _lupe_verschieben()
    $aMouse_Pos = MouseGetPos()

    WinMove($hGui_lupe, "", $x_verschieben + $aMouse_Pos[0], $y_verschieben + $aMouse_Pos[1])
    WinMove($hGui_fadenkreuz1, "", $aMouse_Pos[0] - $iKreuz_laenge / 2, $aMouse_Pos[1])
    WinMove($hGui_fadenkreuz2, "", $aMouse_Pos[0], $aMouse_Pos[1] - $iKreuz_laenge / 2)

    Sleep(10)

    GUISetState(@SW_SHOW, $hGui_lupe)
    Lupe($aMouse_Pos) ;erst hier unten, da sonst das Kreuz verzögert verschoben wird
EndFunc   ;==>_lupe_verschieben




Func Lupe($aXy)
    Local $aMyHDC, $aDeskHDC, $l, $t

    $aMyHDC = _WinAPI_GetDC($hGui_lupe)
    If @error Then Return
    $aDeskHDC = _WinAPI_GetDC(0)
    If Not @error Then
        If Not @error Then
            $l = $aXy[0] - 10
            $t = $aXy[1] - 10
            _WinAPI_StretchBlt($aMyHDC, 0, 0, 100, 100, $aDeskHDC, $l, $t, 20, 20, $SRCCOPY)
        EndIf
        _WinAPI_ReleaseDC($aDeskHDC, 0)
    EndIf
    _WinAPI_ReleaseDC($aMyHDC, $hGui_lupe)
EndFunc   ;==>Lupe

Alles anzeigen

Nun dachte ich mir ich erstelle den Auswahlbereich mit _GDI... und das Fadenkreuz mit 2 GUIs.

Warum auch immer bewegt sich dann das Fadenkreuz wieder in der Lupe, warum?

AutoIt

#Region    ;************ Includes ************
#include <GDIPlus.au3>
#include <WinAPIConstants.au3>
#include <WinAPISysWin.au3>
#include <WindowsConstants.au3>
#EndRegion ;************ Includes ************

Global Const $iKreuz_laenge = 10000 ;Länge des Fadenkreuzes (muss mindestens doppelt so gross sein wie die Breite bzw. Höhe der Bildschirme)

_GDIPlus_Startup()

Global $aSelect = _SelectRange() ; Rueckgabe: Array[Left, Top, Width, Height]

_GDIPlus_Shutdown()

Func _SelectRange($iCrossW = 3, $iCrossColor = 0x0000FF, $iSelColor = 0xFF0000, $iTransColor = 0xEEEEEE)
    Local $iVSX = _WinAPI_GetSystemMetrics($SM_XVIRTUALSCREEN)
    Local $iVSY = _WinAPI_GetSystemMetrics($SM_YVIRTUALSCREEN)
    Local $iVSW = _WinAPI_GetSystemMetrics($SM_CXVIRTUALSCREEN)
    Local $iVSH = _WinAPI_GetSystemMetrics($SM_CYVIRTUALSCREEN)

    Local $hDummy = GUICreate('Dummy', $iVSW, $iVSH, $iVSX, $iVSY, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED)) ; Dummy-Gui nur, damit man mit der Maus nicht "durchklicken" kann
;~     GUISetBkColor($iTransColor)
;~     WinSetTrans($hDummy, '', 10)

    Local $hBgGui = GUICreate('FullScreen', $iVSW, $iVSH, $iVSX, $iVSY, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_EX_LAYERED), $hDummy)
;~     GUISetBkColor($iTransColor)
;~     GUISetCursor(3, 1, $hBgGui)
;~ WinSetTrans($hDummy, '', 1)

    Local $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hBgGui)
    Local $hBuffer = _GDIPlus_BitmapCreateFromGraphics($iVSW, $iVSH, $hGraphic)
    Local $hGfxBuffer = _GDIPlus_ImageGetGraphicsContext($hBuffer)
    Local $hPen = _GDIPlus_PenCreate(0xFF000000 + $iCrossColor, $iCrossW)
    Local $hBrush = _GDIPlus_BrushCreateSolid(0xFF000000 + $iSelColor)

    Local $hMagnifier = GUICreate('Magnifier', 200, 200, 0, 0, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW, $hDummy) ; Vergrößerungsfensters / Breite und Höhe jeweils -5, damit das Kreuz mittig ist (ermittelt durch probieren)

    GUISetState(@SW_SHOW, $hDummy)
    GUISetState(@SW_SHOW, $hBgGui)
    GUISetState(@SW_SHOW, $hMagnifier)

    $aStart_Pos1 = MouseGetPos()

    $hGui_fadenkreuz1 = GUICreate("Kreuz", $iKreuz_laenge, 1, $aStart_Pos1[0] - $iKreuz_laenge / 2, $aStart_Pos1[1], $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) ; Vergrößerungsfenster
    GUISetBkColor(0x0000FF, $hGui_fadenkreuz1)
    $hGui_fadenkreuz2 = GUICreate("Kreuz", 1, $iKreuz_laenge, $aStart_Pos1[0], $aStart_Pos1[1] - $iKreuz_laenge / 2, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) ; Vergrößerungsfenster
    GUISetBkColor(0x0000FF, $hGui_fadenkreuz2)
    WinSetOnTop($hGui_fadenkreuz1, "", 1)
    WinSetOnTop($hGui_fadenkreuz2, "", 1)
    GUISetState(@SW_SHOW, $hGui_fadenkreuz1)
    GUISetState(@SW_SHOW, $hGui_fadenkreuz2)

    Local $aOldPos[4] = [$iVSX, $iVSY, 0, 0], $aInfo[5], $aSelCoord[4] = [0, 0, 0, 0], $iX, $iY
    Do
        $aInfo = GUIGetCursorInfo($hBgGui)
        If $aInfo[0] <> $aOldPos[0] Or $aInfo[1] <> $aOldPos[1] Then
            $aOldPos[0] = $aInfo[0]
            $aOldPos[1] = $aInfo[1]
            _ShowMagnifier($hMagnifier, $aInfo)
        EndIf
        If $aInfo[2] Then ; wenn linke Maustaste gedrueckt
            If Not $aOldPos[2] Then ; wenn vorher nicht gedrueckt
                $aOldPos[2] = 1
                $aSelCoord[0] = $aInfo[0]
                $aSelCoord[1] = $aInfo[1]
            EndIf
            $aSelCoord[2] = Abs($aInfo[0] - $aSelCoord[0])
            $aSelCoord[3] = Abs($aInfo[1] - $aSelCoord[1])
            $iX = $aInfo[0] > $aSelCoord[0] ? $aSelCoord[0] : $aSelCoord[0] - $aSelCoord[2]
            $iY = $aInfo[1] > $aSelCoord[1] ? $aSelCoord[1] : $aSelCoord[1] - $aSelCoord[3]
        Else ; wenn linke Maustaste losgelassen
            $aOldPos[2] = 0
        EndIf
        _GDIPlus_GraphicsClear($hGfxBuffer, 0xFF000000 + $iTransColor)
        _GDIPlus_GraphicsFillRect($hGfxBuffer, $iX, $iY, $aSelCoord[2], $aSelCoord[3], $hBrush)
        _GDIPlus_GraphicsDrawRect($hGfxBuffer, $iX, $iY, $aSelCoord[2], $aSelCoord[3])

        $aMouse_Pos = MouseGetPos()

        WinMove($hGui_fadenkreuz1, "", $aMouse_Pos[0] - $iKreuz_laenge / 2, $aMouse_Pos[1])
        WinMove($hGui_fadenkreuz2, "", $aMouse_Pos[0], $aMouse_Pos[1] - $iKreuz_laenge / 2)
        _BlendBitmap($hBgGui, $hBuffer, 60)
        Sleep(10)
    Until $aInfo[3] ; warten, bis rechte Maustaste gedrueckt
    GUIDelete($hBgGui)
    GUIDelete($hDummy)
    GUIDelete($hMagnifier)
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_GraphicsDispose($hGfxBuffer)
    _GDIPlus_BitmapDispose($hBuffer)
    _GDIPlus_GraphicsDispose($hGraphic)
    $aSelCoord[0] += $iVSX
    $aSelCoord[1] += $iVSY
    Return $aSelCoord
EndFunc   ;==>_SelectRange

Func _BlendBitmap($hWnd, $hImage, $iOpacity)
    Local $hDestDC, $hSrcDC, $hBMP, $hOld, $pSize, $tSize, $tPtSrc, $pPtSrc, $pBlend, $tBlend
    $hDestDC = _WinAPI_GetDC($hWnd)
    $hSrcDC = _WinAPI_CreateCompatibleDC($hDestDC)
    $hBMP = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    $hOld = _WinAPI_SelectObject($hSrcDC, $hBMP)
    $tSize = DllStructCreate($tagSIZE)
    $pSize = DllStructGetPtr($tSize)
    $tSize.X = _GDIPlus_ImageGetWidth($hImage)
    $tSize.Y = _GDIPlus_ImageGetHeight($hImage)
    $tPtSrc = DllStructCreate($tagPOINT)
    $pPtSrc = DllStructGetPtr($tPtSrc)
    $tBlend = DllStructCreate($tagBLENDFUNCTION)
    $pBlend = DllStructGetPtr($tBlend)
    DllStructSetData($tBlend, "Alpha", $iOpacity)
    DllStructSetData($tBlend, "Format", 1)
    _WinAPI_UpdateLayeredWindow($hWnd, $hDestDC, $pPtSrc, $pSize, $hSrcDC, $pPtSrc, 0, $pBlend, $ULW_ALPHA)
;~     _WinAPI_UpdateLayeredWindow($hWnd, $hDestDC, 0, $pSize, $hSrcDC, $pPtSrc, 0xEEEEEE, 0, $ULW_COLORKEY)
    _WinAPI_ReleaseDC($hWnd, $hDestDC)
    _WinAPI_SelectObject($hSrcDC, $hOld)
    _WinAPI_DeleteObject($hBMP)
    _WinAPI_DeleteDC($hSrcDC)
EndFunc   ;==>_BlendBitmap

Func _ShowMagnifier($hWnd, $aInfo)
    Local $hSrcDC, $hDestDC, $iLeft, $iTop
    $hDestDC = _WinAPI_GetDC($hWnd)
    If @error Then Return
    $hSrcDC = _WinAPI_GetDC(0)
    If Not @error Then
        $iLeft = $aInfo[0] - 25
        $iTop = $aInfo[1] - 25
        _WinAPI_StretchBlt($hDestDC, 0, 0, 200, 200, $hSrcDC, $iLeft, $iTop, 50, 50, $SRCCOPY)
        _WinAPI_ReleaseDC(0, $hDestDC)
    EndIf
    _WinAPI_ReleaseDC($hWnd, $hSrcDC)
EndFunc   ;==>_ShowMagnifier

Alles anzeigen

**Tweaky** · 22. Mai 2022

Klar, ich habe zuerst gedacht man kann nur den rot markierten Bereich transparant darstellen und den restlichen Bildschirm original. Aber das geht ja leider nicht.

Ich finde es auch sinnvoll, dass das Fadenkreuz in der Lupe angezeigt wird. Ich dachte nur man könnte es irgendwie ausblenden und dann in der Lupe mittig neu zeichnen.

Hast du am nachlaufen wirklich was geändert. Es verhält sich immer noch so wie vorher

**Tweaky** · 22. Mai 2022

Wow, da flackert nun nichts mehr

Danke schonmal

2 Sachen habe ich aber noch.

Ich würde gerne das abdunkeln des Hintergrunds abschalten.

Dachte eigentlich, dass dies durch GUISetBkColor($iTransColor) bzw. WinSetTrans($hDummy, '', 20) gemacht wird.

Das deaktivieren bringt aber nichts.

Ich habe noch eine Lupe eingefügt.

Leider läuft das Fadenkreuz nach.

Ist es möglich die Lupe ohne das Fadenkreuz darzustellen?

AutoIt

#include <Array.au3>
#include <GDIPlus.au3>
#include <StructureConstants.au3>
#include <WinAPIConstants.au3>
#include <WinAPIGdiDC.au3>
#include <WinAPIHObj.au3>
#include <WinAPISysInternals.au3>
#include <WinAPISysWin.au3>
#include <WindowsConstants.au3>

Global $hGui_lupe

_GDIPlus_Startup()

Global $aSelect = _SelectRange() ; Rueckgabe: Array[Left, Top, Width, Height]
;~ _ArrayDisplay($aSelect)

_GDIPlus_Shutdown()

Func _SelectRange($iCrossW = 3, $iCrossColor = 0x0000FF, $iSelColor = 0xFF0000, $iTransColor = 0xEEEEEE)
    Local $iVSX = _WinAPI_GetSystemMetrics($SM_XVIRTUALSCREEN)
    Local $iVSY = _WinAPI_GetSystemMetrics($SM_YVIRTUALSCREEN)
    Local $iVSW = _WinAPI_GetSystemMetrics($SM_CXVIRTUALSCREEN)
    Local $iVSH = _WinAPI_GetSystemMetrics($SM_CYVIRTUALSCREEN)

    Local $hDummy = GUICreate('Dummy', $iVSW, $iVSH, $iVSX, $iVSY, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED)) ; Dummy-Gui nur, damit man mit der Maus nicht "durchklicken" kann
;~     GUISetBkColor($iTransColor)
;~     WinSetTrans($hDummy, '', 20)

    Local $hBgGui = GUICreate('FullScreen', $iVSW, $iVSH, $iVSX, $iVSY, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_EX_LAYERED), $hDummy)
;~     GUISetBkColor($iTransColor)
;~     GUISetCursor(3, 1, $hBgGui)

    Local $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hBgGui)
    Local $hBuffer = _GDIPlus_BitmapCreateFromGraphics($iVSW, $iVSH, $hGraphic)
    Local $hGfxBuffer = _GDIPlus_ImageGetGraphicsContext($hBuffer)
    Local $hPen = _GDIPlus_PenCreate(0xFF000000 + $iCrossColor, $iCrossW)
    Local $hBrush = _GDIPlus_BrushCreateSolid(0xFF000000 + $iSelColor)

    $hGui_lupe = GUICreate("Lupe", 100, 100, 0, 0, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW) ; Vergrößerungsfensters / Breite und Höhe jeweils -5, damit das Kreuz mittig ist (ermittelt durch probieren)

    GUISetState(@SW_SHOW, $hDummy)
    GUISetState(@SW_SHOW, $hBgGui)
    GUISetState(@SW_SHOW, $hGui_lupe)

    Local $aOldPos[4] = [$iVSX, $iVSY, 0, 0], $aInfo[5], $aSelCoord[4] = [0, 0, 0, 0], $iX, $iY
    Do
        $aInfo = GUIGetCursorInfo($hBgGui)
        If $aInfo[0] <> $aOldPos[0] Or $aInfo[1] <> $aOldPos[1] Then
            $aOldPos[0] = $aInfo[0]
            $aOldPos[1] = $aInfo[1]
        EndIf
        If $aInfo[2] Then ; wenn linke Maustaste gedrueckt
            If Not $aOldPos[2] Then ; wenn vorher nicht gedrueckt
                $aOldPos[2] = 1
                $aSelCoord[0] = $aInfo[0]
                $aSelCoord[1] = $aInfo[1]
            EndIf
            $aSelCoord[2] = Abs($aInfo[0] - $aSelCoord[0])
            $aSelCoord[3] = Abs($aInfo[1] - $aSelCoord[1])
            $iX = $aInfo[0] > $aSelCoord[0] ? $aSelCoord[0] : $aSelCoord[0] - $aSelCoord[2]
            $iY = $aInfo[1] > $aSelCoord[1] ? $aSelCoord[1] : $aSelCoord[1] - $aSelCoord[3]
            $aXy = MouseGetPos()
            Lupe($aXy)
        Else ; wenn linke Maustaste losgelassen
            $aOldPos[2] = 0
            $aXy = MouseGetPos()
            Lupe($aXy)
        EndIf
        _GDIPlus_GraphicsClear($hGfxBuffer, 0xFF000000 + $iTransColor)
        _GDIPlus_GraphicsFillRect($hGfxBuffer, $iX, $iY, $aSelCoord[2], $aSelCoord[3], $hBrush)
        _GDIPlus_GraphicsDrawRect($hGfxBuffer, $iX, $iY, $aSelCoord[2], $aSelCoord[3])
        _GDIPlus_GraphicsDrawLine($hGfxBuffer, $iVSX, $aInfo[1], $iVSW, $aInfo[1], $hPen)
        _GDIPlus_GraphicsDrawLine($hGfxBuffer, $aInfo[0], $iVSY, $aInfo[0], $iVSH, $hPen)
        _BlendBitmap($hBgGui, $hBuffer, 80)
        Sleep(10)
    Until $aInfo[3] ; warten, bis rechte Maustaste gedrueckt
    GUIDelete($hBgGui)
    GUIDelete($hDummy)
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_GraphicsDispose($hGfxBuffer)
    _GDIPlus_BitmapDispose($hBuffer)
    _GDIPlus_GraphicsDispose($hGraphic)
    $aSelCoord[0] += $iVSX
    $aSelCoord[1] += $iVSY
    Return $aSelCoord
EndFunc   ;==>_SelectRange

Func _BlendBitmap($hGui, $hImage, $iOpacity)
    Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
    $hScrDC = _WinAPI_GetDC($hGui)
    $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
    $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
    $tSize = DllStructCreate($tagSIZE)
    $pSize = DllStructGetPtr($tSize)
    DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
    DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
    $tSource = DllStructCreate($tagPOINT)
    $pSource = DllStructGetPtr($tSource)
    $tBlend = DllStructCreate($tagBLENDFUNCTION)
    $pBlend = DllStructGetPtr($tBlend)
    DllStructSetData($tBlend, "Alpha", $iOpacity)
    DllStructSetData($tBlend, "Format", 1)
    _WinAPI_UpdateLayeredWindow($hGui, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
    _WinAPI_ReleaseDC($hGui, $hScrDC)
    _WinAPI_SelectObject($hMemDC, $hOld)
    _WinAPI_DeleteObject($hBitmap)
    _WinAPI_DeleteDC($hMemDC)
EndFunc   ;==>_BlendBitmap



Func Lupe($aXy)
    Local $aMyHDC, $aDeskHDC, $l, $t

    $aMyHDC = _WinAPI_GetDC($hGui_lupe)
    If @error Then Return
    $aDeskHDC = _WinAPI_GetDC(0)
    If Not @error Then
        If Not @error Then
            $l = $aXy[0] - 10
            $t = $aXy[1] - 10
            _WinAPI_StretchBlt($aMyHDC, 0, 0, 100, 100, $aDeskHDC, $l, $t, 20, 20, $SRCCOPY)
        EndIf
        _WinAPI_ReleaseDC($aDeskHDC, 0)
    EndIf
    _WinAPI_ReleaseDC($aMyHDC, $hGui_lupe)
EndFunc   ;==>Lupe

Alles anzeigen

**Tweaky** · 20. Mai 2022

Zieht das Fenster mal von rechts unten nach links oben.

Bei mir flackert dann das rechte untere Eck.

Bei euch auch?

AutoIt

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WinAPISysWin.au3>
#include <WindowsConstants.au3>

Global $aSelect = _SelectRange() ; Rueckgabe: Array[Left, Top, Width, Height]
;~ _ArrayDisplay($aSelect)

Func _SelectRange($iCrossW = 3, $iCrossColor = 0x0000FF, $iSelColor = 0xFF0000, $iTransColor = 0xA0A0A0)
    Local $hDummy = GUICreate('Dummy', @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_EX_LAYERED)) ; Dummy-Gui nur, damit man mit der Maus nicht "durchklicken" kann
    GUISetBkColor($iTransColor)
    WinSetTrans($hDummy, '', 20)
    GUISetCursor(3, 1, $hDummy)

    Local $hBgGui = GUICreate('Background', @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW, $WS_EX_LAYERED), $hDummy)
    GUISetBkColor($iTransColor)
    _WinAPI_SetLayeredWindowAttributes($hBgGui, $iTransColor)
    GUISetCursor(3, 1, $hBgGui)

    Local $idSelect = GUICtrlCreateLabel('', 0, 0, 0, 0)
    GUICtrlSetBkColor(-1, $iSelColor)
    WinSetTrans(GUICtrlGetHandle($idSelect), '', 40)

    Local $idCrossX = GUICtrlCreateLabel('', 0, 50, @DesktopWidth, $iCrossW)
    GUICtrlSetBkColor(-1, $iCrossColor)
    Local $idCrossY = GUICtrlCreateLabel('', 50, 0, $iCrossW, @DesktopHeight)
    GUICtrlSetBkColor(-1, $iCrossColor)

;~     GUISetState(@SW_SHOW, $hDummy)
    GUISetState(@SW_SHOW, $hBgGui)
    Local $aOldPos[3] = [-1, -1, 0], $aInfo[5], $aSelCoord[4] = [0, 0, 0, 0]
    Do
        $aInfo = GUIGetCursorInfo($hBgGui)
        If $aInfo[0] <> $aOldPos[0] Or $aInfo[1] <> $aOldPos[1] Then
            $aOldPos[0] = $aInfo[0]
            $aOldPos[1] = $aInfo[1]
            GUICtrlSetPos($idCrossX, 0, $aInfo[1] - Ceiling($iCrossW / 2))
            GUICtrlSetPos($idCrossY, $aInfo[0] - Ceiling($iCrossW / 2), 0)
        EndIf
        If $aInfo[2] Then ; wenn linke Maustaste gedrueckt
            If Not $aOldPos[2] Then ; wenn vorher nicht gedrueckt
                $aOldPos[2] = 1
                GUICtrlSetState($idSelect, $GUI_SHOW)
                $aSelCoord[0] = $aInfo[0]
                $aSelCoord[1] = $aInfo[1]
            EndIf
            $aSelCoord[2] = $aSelCoord[0] - $aInfo[0]
            $aSelCoord[3] = $aSelCoord[1] - $aInfo[1]
            GUICtrlSetPos($idSelect, $aInfo[0], $aInfo[1], $aSelCoord[2], $aSelCoord[3])
        Else ; wenn linke Maustaste losgelassen
            $aOldPos[2] = 0
        EndIf
        Sleep(10)
    Until $aInfo[3] ; warten, bis rechte Maustaste gedrueckt
    GUIDelete($hBgGui)
    GUIDelete($hDummy)
    Return $aSelCoord
EndFunc   ;==>_SelectRange

Alles anzeigen

**Tweaky** · 19. Mai 2022

BugFix

mit deinem Colormixer flackert nichts. Wobei man bei dir ja auch kein Fenster aufziehen kann, sonder nur die Lupe drin ist.

Diese flackert auch nicht.

Oscar

Du verwendet auch die neue Version. Bei dir flackert mein Skript nicht?

Dein Skript flackert bei mir auch nicht.

Folgende Unterschiede habe ich gesehen und möchte verstehen warum du es anders (besser ) gelöst hast.

Dummy -GUI. Ich habe den Kommentar gelesen aber nicht verstanden. Ich sie auch mal deaktiviert aber keinen Unterschied festgestellt.
Du verwendest GUIGetCursorInfo statt _Ispressed. Warum?
Du verwendest 1 GUI mit Auswahl, 2x Fadenkreuz und veränderst die Position immer mit GUICtrlSetPos.
Ich verwende 3 GUIs. 1 GUI für Auswahl (Verschieben durch GUICtrlSetPos) 2 GUI für Fadenkreuz (verschieben durch WinMove der GUI)

Ich denke nur das 3 spielt eine Rolle für das flackern, oder?

**Tweaky** · 18. Mai 2022

Hi,

beim folgenden Skript flackert die GUI.

Startet das Skript und haltet dann die linke Maustaste gedrückt.

Dann zieht ihr ein Fenster auf und bewegt die Maus etwas schneller.

Nun flackert die rote Fläche teilweise.

Ich nutze 3.3.16.0

Bei 3.3.4.15 war dies nicht so.

Woran könnte dies liegen?

AutoIt

#Region    ;************ Includes ************
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
#EndRegion ;************ Includes ************

Global $hGui_fadenkreuz1, $hGui_fadenkreuz2
Global $aStart_Pos1, $idLabel_ausschnitt
Global $UserDLL = DllOpen("user32.dll")
Global $aMouse_Pos

Global Const $iKreuz_laenge = 10000

Global $iDesktopLeft = 0
Global $iDesktopTop = 0
Global $iDesktopRight = @DesktopWidth
Global $iDesktopBottom = @DesktopHeight

;AutoItSetOption
Opt("GUICloseOnESC", 0) ;1=ESC beendet, 0=ESC schließt nicht
Opt('MouseCoordMode', 1)
Opt('GUIOnEventMode', 1)
;~ Opt("TrayIconDebug", 1) ; 0=keine Info, 1=Debug Zeileninfo

_auswahl()

Func _auswahl()
    Local $status, $hGui_Auswahl, $aStart_Pos

    $hGui_Auswahl = GUICreate("Screenshot", $iDesktopRight - $iDesktopLeft, $iDesktopBottom - $iDesktopTop, 0, 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) ; erstellen eines GUI-Fensters
    WinSetTrans($hGui_Auswahl, "", 20)
    GUISetState()

    $aMouse_Pos = MouseGetPos()

    $status = _lupe_1_punkt() ;evtl. "Abbruch"

    While 1
        If _IsPressed("01", $UserDLL) Then     ;Linke Maustaste gedrückt
            $aStart_Pos = MouseGetPos()
            $status = _lupe_2_punkt()     ;evtl. "Abbruch"
            ExitLoop
        EndIf
    WEnd
EndFunc   ;==>_auswahl



Func _lupe_1_punkt()
    $idLabel_ausschnitt = GUICtrlCreateLabel('', $iDesktopLeft, $iDesktopTop, 1, 1, $SS_SUNKEN)
    GUICtrlSetBkColor($idLabel_ausschnitt, 0xFF0000) ;rötliche Farbe des Ausschnittes

    $aStart_Pos1 = MouseGetPos()

    $hGui_fadenkreuz1 = GUICreate("Kreuz", $iKreuz_laenge, 1, $aStart_Pos1[0] - $iKreuz_laenge / 2, $aStart_Pos1[1], $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) ; Vergrößerungsfenster
    GUISetBkColor(0x0000FF, $hGui_fadenkreuz1)
    $hGui_fadenkreuz2 = GUICreate("Kreuz", 1, $iKreuz_laenge, $aStart_Pos1[0], $aStart_Pos1[1] - $iKreuz_laenge / 2, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) ; Vergrößerungsfenster
    GUISetBkColor(0x0000FF, $hGui_fadenkreuz2)
    WinSetOnTop($hGui_fadenkreuz1, "", 1)
    WinSetOnTop($hGui_fadenkreuz2, "", 1)
    GUISetState(@SW_SHOW, $hGui_fadenkreuz1)
    GUISetState(@SW_SHOW, $hGui_fadenkreuz2)

    While Not _IsPressed("01", $UserDLL) ;Linke Maustaste nicht gedrückt
        _lupe_verschieben()
        If _IsPressed("1B", $UserDLL) Then Return "Abbruch" ;Bereich Abbruch >>> "Abbruch" zurückgeben
    WEnd

    $aStart_Pos1 = MouseGetPos()
    Return $aStart_Pos1
EndFunc   ;==>_lupe_1_punkt



Func _lupe_2_punkt()
    While 1
        While _IsPressed("01", $UserDLL) ;Linke Maustaste gedrückt
            _lupe_verschieben()

            ;links oben nach rechts unten:
            If $aMouse_Pos[1] > $aStart_Pos1[1] And $aMouse_Pos[0] > $aStart_Pos1[0] Then GUICtrlSetPos($idLabel_ausschnitt, $aStart_Pos1[0] + 1 - $iDesktopLeft, $aStart_Pos1[1] + 1 - $iDesktopTop, $aMouse_Pos[0] - $aStart_Pos1[0], $aMouse_Pos[1] - $aStart_Pos1[1]) ;X und Y + 1 >>> sonst wird das Fenster bei einer schnellen Bewegung nicht bis ganz an den Rand gezogen

            ;links unten nach rechts oben:
            If $aMouse_Pos[1] < $aStart_Pos1[1] And $aMouse_Pos[0] > $aStart_Pos1[0] Then GUICtrlSetPos($idLabel_ausschnitt, $aStart_Pos1[0] + 1 - $iDesktopLeft, $aMouse_Pos[1] + 1 - $iDesktopTop, $aMouse_Pos[0] - $aStart_Pos1[0], $aStart_Pos1[1] - $aMouse_Pos[1]) ;X und Y + 1 >>> sonst wird das Fenster bei einer schnellen Bewegung nicht bis ganz an den Rand gezogen

            ;rechts oben nach links unten:
            If $aMouse_Pos[1] > $aStart_Pos1[1] And $aMouse_Pos[0] < $aStart_Pos1[0] Then GUICtrlSetPos($idLabel_ausschnitt, $aMouse_Pos[0] + 1 - $iDesktopLeft, $aStart_Pos1[1] + 1 - $iDesktopTop, $aStart_Pos1[0] - $aMouse_Pos[0], $aMouse_Pos[1] - $aStart_Pos1[1]) ;X und Y + 1 >>> sonst wird das Fenster bei einer schnellen Bewegung nicht bis ganz an den Rand gezogen

            ;rechts unten nach links oben:
            If $aMouse_Pos[1] < $aStart_Pos1[1] And $aMouse_Pos[0] < $aStart_Pos1[0] Then GUICtrlSetPos($idLabel_ausschnitt, $aMouse_Pos[0] - $iDesktopLeft, $aMouse_Pos[1] + 1 - $iDesktopTop, $aStart_Pos1[0] - $aMouse_Pos[0], $aStart_Pos1[1] - $aMouse_Pos[1]) ;X und Y + 1 >>> sonst wird das Fenster bei einer schnellen Bewegung nicht bis ganz an den Rand gezogen
        WEnd

        Sleep(10)
        Return $idLabel_ausschnitt
    WEnd
EndFunc   ;==>_lupe_2_punkt



Func _lupe_verschieben()
    $aMouse_Pos = MouseGetPos()

    WinMove($hGui_fadenkreuz1, "", $aMouse_Pos[0] - $iKreuz_laenge / 2, $aMouse_Pos[1])
    WinMove($hGui_fadenkreuz2, "", $aMouse_Pos[0], $aMouse_Pos[1] - $iKreuz_laenge / 2)

    Sleep(10)
EndFunc   ;==>_lupe_verschieben

Alles anzeigen

**Tweaky** · 14. Mai 2022

Leider nein.

Es funktioniert zwar, jedoch wird der Iconcache nicht geleert.

Wenn ich z. B. das Icon des UAC-Schilds ändere bleibt dies bei einer Desktopverknüpfung unverändert.

Erst wenn ich die Batch-Datei, die im 1. Post beschrieben wird, manuell starte funktioniert es.

AutoIt

#RequireAdmin

While ProcessExists("explorer.exe")
    ProcessClose("explorer.exe")
WEnd

FileDelete(@LocalAppDataDir & "\Microsoft\Windows\Explorer\iconcache*.*")

Run(@WindowsDir & "\explorer.exe")

**Tweaky** · 7. Mai 2022

Hab das gleiche Problem wie DOheim.

Starte ich die Batch manuell funktioniert es. Starte ich es mit AutoIt bleibt der Bildschirm schwarz.

Das von BugFix verlinkte Skript funktioniert, jedoch bekomme ich oft die folgende Meldung.

**Tweaky** · 4. April 2022

Hi,

leider fehlen in der englischen Hilfe zu 3.3.16.0 noch etliche Beispiele zu Funktionen .

Falls einer Lust hat oder schon ein Beispiel parat hat, kann er es gerne hier posten.

Ich werde es dann in der Hilfe ergänzen.

Spoiler anzeigen

**Tweaky** · 4. April 2022

Hi,

falls ihr beim benutzen der deutschen Hilfe Rechtschreibfehler, Formatfehler und inhaltliche Fehler findet, wäre es nett dass ihr diesen dann auch hier meldet.

Dann können wir diese korrigieren.

Bitte nur Fehler der Hilfedatei 3.3.16.0 2022.04.02 melden

**Tweaky** · 4. April 2022

Ab hier werden die bereits übersetzten Dateien gepostet.

Die noch zu übersetzenden Dateien sind weiter oben

**Tweaky** · 4. April 2022

Neue Dateien 10

**Tweaky** · 4. April 2022

Neue Dateien 09

**Tweaky** · 4. April 2022

Neue Dateien 08

**Tweaky** · 4. April 2022

Neue Dateien 07

**Tweaky** · 4. April 2022

Neue Dateien 06

**Tweaky** · 4. April 2022

Neue Dateien 05

**Tweaky** · 4. April 2022

Neue Dateien 04

**Tweaky** · 4. April 2022

Neue Dateien 03

Beiträge von Tweaky

GUI flackert

GUI flackert

GUI flackert

GUI flackert

GUI flackert

GUI flackert

GUI flackert

Explorer Neustart

Explorer Neustart

Deutsche Hilfe - Funktionen ohne Beispiel (Hilfedatei 3.3.16.0)

Fehler in der deutschen Hilfe bitte hier melden (Hilfedatei 3.3.16.0 2022.04.02)

Deutsche Hilfe auf 3.3.16.0 updaten - mitmachen

Deutsche Hilfe auf 3.3.16.0 updaten - mitmachen

Deutsche Hilfe auf 3.3.16.0 updaten - mitmachen

Deutsche Hilfe auf 3.3.16.0 updaten - mitmachen

Deutsche Hilfe auf 3.3.16.0 updaten - mitmachen

Deutsche Hilfe auf 3.3.16.0 updaten - mitmachen

Deutsche Hilfe auf 3.3.16.0 updaten - mitmachen

Deutsche Hilfe auf 3.3.16.0 updaten - mitmachen

Deutsche Hilfe auf 3.3.16.0 updaten - mitmachen