_WinAPI_DrawLine disappears after creating multiples, (Fixed)

[BigDaddyO]

I'm trying to use the _WinAPI_DrawLine to black out sections of the screen prior to taking a screenshot "Redact Information"

It's mostly working, but for some reason if I create more than 4 or 5 black lines on the screen, they start randomly disappearing.

edit:  Turns out, it's a refresh thing, I was just applying to the desktop (0) over my Scite while it was running.  It appears that as the script run, Scite refreshes which breaks the overlay.  I switched my code to put those black lines over Notepad and they stayed until I clicked OK to close the script.

 

Below is a quick example to show what's going on (Updated with targeted handle).  It should show cascading black lines, but it's typically only showing the first 3 then a couple at the bottom.

expandcollapse popup

#include <WindowsConstants.au3>
#include <WinAPI.au3>

$hwnd = ControlGetHandle("[CLASS:Notepad]", "", "[CLASS:Edit]")

For $i = 1 to 12

    $iX = 100 * $i
    $iY = 25 * $i
    $iX2 = $iX + 200
    $iY2 = $iY + 20
    $iH = 20

    _Rect($hwnd, $iX, $iY2 - ($iH / 2), $iX2, $iY2 - ($iH / 2), $iH, 0x000000)  ;Draws one black line, need it to be centered on the text
Next

MsgBox(0, "Redacted", "There should be 12 black lines on the screen")



;function to draw a black line over text that should be redacted before taking screenshot
Func _Rect($iX, $iY, $iX2, $iY2, $iHeight, $iColor)
    If IsHWnd($hwnd) = 0 Then $hwnd = 0

    Local $hDC = _WinAPI_GetWindowDC($hwnd) ; DC of entire screen (desktop)

    ; Create a pen object, solid color, width will be the width provided, color is the color provided
    Local $hPen = _WinAPI_CreatePen($PS_SOLID, $iHeight, $iColor)
    ; Select the $hDC and use the $hPen for this line
    Local $oSelect = _WinAPI_SelectObject($hDC, $hPen)
    ; Draw the line
    _WinAPI_DrawLine($hDC, $iX, $iY, $iX2, $iY2)

    Sleep(100)

    ; Free resources
    _WinAPI_DeleteObject($hPen)
    _WinAPI_SelectObject($hDC, $oSelect)

    ; clear resources
    _WinAPI_ReleaseDC(0, $hDC)
EndFunc   ;==>_WinAPI_DrawRect

 

Thanks,

Mike

 

 

Edited October 10, 2017 by BigDaddyO
fixed