mousecandle 1.1 *updated*

[corgano]

i made this out of the guihole example on this form. it could be used in a game or something....

it defies explanation, but i would like feedback

*EDIT*

thank you ProgAndy for the help. changing 3 words made it work....lol

here is the new script

mouse_candel.au3

it works

Edited December 3, 2008 by corgano

[Delta]

It's a nice concept and it worked for about 5 seconds and then it just made my screen bug out with funky colors.

[TehWhale]

Same here...

[BrettF]

Worked good for me

[NELyon]

Worked fine for me.

Although, any menus (is that how you say "menu" in plural?) seem to be drawn above the GUI, so they are entirely shown. Still a cool concept.

[corgano]

It's a nice concept and it worked for about 5 seconds and then it just made my screen bug out with funky colors.

lol

send me a screenshot and i will see what i can do. i used the newest beta, btw.

[Christos]

Very nice....until I tried to move the mouse to the second monitor. It causes a bug! 90 100% CPU load until I got killed the script, tested on Vista 32bit.

[Skrip]

Pretty nice. I like it.

EDIT: After reading post above, I tried to move to my second monitor. It doesn't bug out, but the black shade does not extend to that monitor, so it does nothing.

Edited December 2, 2008 by Firestorm

[UEZ]

I can confirm what Christos said.

When the focus gets lost on window then the hole disappears and the CPU usage is going crazy. No chance to get the hole back.

You need to kill the process.

UEZ

[corgano]

Pretty nice. I like it.

EDIT: After reading post above, I tried to move to my second monitor. It doesn't bug out, but the black shade does not extend to that monitor, so it does nothing.

I knew that wouldnt work. to get that to work, i would have to find the second moniters hight and width, and i dont have 2 moniters so i dont think i will be doing that.

i also got the bug that many of you comented on (glichy screen). i know it is caused by the hole makeing script, but how i fix it i do not know.

maby its because its drawing mutiple holes over each other?

still working on it

[Delta]

lol

send me a screenshot and i will see what i can do. i used the newest beta, btw.

I can't. When it bugs out it causes an insufficient memory error when trying to take a screenshot.

[ludocus]

it worked, until I went to the side of my monitor (with my mouse)

[ProgAndy]

Dind't work for me, too. Changed the _GUIHole to this and it works:

Func _GuiHole($h_win, $i_x, $i_y, $i_size)
   Dim $pos, $outer_rgn, $inner_rgn, $wh, $combined_rgn, $ret
   $pos = WinGetPos($h_win)
   
   $outer_rgn = DllCall("gdi32.dll", "hwnd", "CreateRectRgn", "long", 0, "long", 0, "long", $pos[2], "long", $pos[3])
    If IsArray($outer_rgn) Then
        $inner_rgn = DllCall("gdi32.dll", "hwnd", "CreateEllipticRgn", "long", $i_x, "long", $i_y, "long", $i_x + $i_size, "long", $i_y + $i_size)
        If IsArray($inner_rgn) Then

                DllCall("gdi32.dll", "long", "CombineRgn", "hwnd", $outer_rgn[0], "hwnd", $outer_rgn[0], "hwnd", $inner_rgn[0], "int", 4)
                $ret = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "hwnd", $outer_rgn[0], "int", 1)
;~              DllCall("gdi32.dll", "long", "DeleteObject", "hwnd", $inner_rgn[0])
                If $ret[0] Then
                    Return 1
                Else
                    Return 0
                EndIf

        Else
            Return 0
        EndIf
    Else
        Return 0
    EndIf
   
EndFunc ;==>_GuiHole

[AzKay]

After 10~ seconds or so, The hole goes away, and the GUI just flashes ontop.

[FireFox]

After 10~ seconds or so, The hole goes away, and the GUI just flashes ontop.

Same thing for me

[oMBRa]

both functions of corgano and progandy works for me

[TehWhale]

Neither functions work!

[UEZ]

This one worked for me:

expandcollapse popup

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

$VirtualDesktopWidth = DLLCall("user32.dll", "int", "GetSystemMetrics", "int", 78);sm_virtualwidth
$VirtualDesktopWidth = $VirtualDesktopWidth[0]
$VirtualDesktopHeight = DLLCall("user32.dll", "int", "GetSystemMetrics", "int", 79);sm_virtualheight
$VirtualDesktopHeight = $VirtualDesktopHeight[0]
$VirtualDesktopX = DLLCall("user32.dll", "int", "GetSystemMetrics", "int", 76);sm_xvirtualscreen
$VirtualDesktopX = $VirtualDesktopX[0]
$VirtualDesktopY = DLLCall("user32.dll", "int", "GetSystemMetrics", "int", 77);sm_yvirtualscreen
$VirtualDesktopY = $VirtualDesktopY[0]
Global $hGUI = GUICreate("Test", $VirtualDesktopWidth, $VirtualDesktopHeight, $VirtualDesktopX, $VirtualDesktopY, $WS_POPUP, BitOr($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
HotKeySet("{ESC}", "Quit")
GUISetBkColor (0x000000)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    $pos = MouseGetPos()
    _GuiHole($hGUI , $pos[0]-90, $pos[1]-70, 200)
    Sleep(1)
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func Quit() ; exit program
    Exit
EndFunc

Func _GuiHole($h_win, $i_x, $i_y, $i_size) ;modified code by ProgAndy
   Dim $pos, $outer_rgn, $inner_rgn, $wh, $combined_rgn, $ret
   $pos = WinGetPos($h_win)
    $outer_rgn = DllCall("gdi32.dll", "hwnd", "CreateRectRgn", "long", 0, "long", 0, "long", $pos[2], "long", $pos[3])
    If IsArray($outer_rgn) Then
        $inner_rgn = DllCall("gdi32.dll", "hwnd", "CreateEllipticRgn", "long", $i_x, "long", $i_y, "long", $i_x + $i_size, "long", $i_y + $i_size)
        If IsArray($inner_rgn) Then
                DllCall("gdi32.dll", "long", "CombineRgn", "hwnd", $outer_rgn[0], "hwnd", $outer_rgn[0], "hwnd", $inner_rgn[0], "int", 4)
                $ret = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "hwnd", $outer_rgn[0], "int", 1)
;~                 DllCall("gdi32.dll", "long", "DeleteObject", "hwnd", $inner_rgn[0])
                If $ret[0] Then
                    Return 1
                Else
                    Return 0
                EndIf
        Else
            Return 0
        EndIf
    Else
        Return 0
    EndIf
EndFunc ;==>_GuiHole

Please test!

I will test it with dual monitor tomorrow in the office .

UEZ

[TehWhale]

It works! Yay!

[corgano]

Same thing for me

fixed. see first post