Hider(GUI)

[Tricky_haha]

expandcollapse popup

;some of the stuff in this sript Fuzi0h helped me with

#include    <guiconstants.au3>

HotKeySet("{PGDN}", "hide")
HotKeySet("{PGUP}", "Unhide")
    
Func hide()
    WinSetState("Hider", "", @SW_HIDE)
EndFunc

Func unhide()
    WinSetState("Hider", "", @SW_SHOW)
EndFunc

GuiCreate("Hider",180,190)

$exitmenu = GUICtrlCreateMenuitem ("&Exit", -1)

$helpmenu = GUICtrlCreateMenu("&?")
$helpitem = GUICtrlCreateMenuitem("Info",$helpmenu)

GUICtrlCreateLabel("Hider",10,10)
GUICtrlSetColor(-1, 0xef05cb0)
GUICtrlCreateLabel(";By Peter Sørensen",10,157)
GUICtrlSetColor(-1, 0xef05cb0)

GUICtrlCreateGroup ("OGame", 10, 25, 95, 55)
$1=GUICtrlCreateRadio("Hide", 20,38,45,20)
$2=GUICtrlCreateRadio("Unhide", 20,55,55,20)

GUICtrlCreateGroup("Bubble Trouble", 10,90,95,55)
$3=GUICtrlCreateRadio("Hide", 20,103,45,20)
$4=GUICtrlCreateRadio("Unhide",20,122,55,20)

$5=GUICtrlCreateButton("EXIT",110,145,70,25)

GUISetState()
while 1
    $msg = GUIGetMsg()
    Select
    case $msg = $1
        WinSetState("OGame.dk", "", @SW_HIDE)
    Case $msg = $2
        WInsetstate("OGame.dk", "", @SW_SHOW)
    case $msg = $3  
        WinSetState("Bubble Trouble", "", @SW_HIDE)
    case $msg = $4
        WinSetState("Bubble Trouble", "", @SW_SHOW)
    EndSelect
    IF $msg = $GUI_EVENT_CLOSE Or $msg = $5 or $msg = $exitmenu Then ExitLoop
    If $msg = $helpitem Then Msgbox(0,"Info","This is a GUI Hider" & @CRLF & "" & @CRLF & "To hide the Games click on the eyes" & @CRLF & "in the messagebox" & @CRLF & "" & @CRLF & "To hide the hider press Page Down " & @CRLF & "And to unhide it press Page Up")
WEnd

[rambo3889]

Nice little hider

[Tricky_haha]

Thx Niko.....

[cppman]

nice....

[Valuater]

Rather than using the "If" statements... why nopt continue the "Case" statements...

You should also run "Tidy" to clean up your scripts

8)

[Tricky_haha]

Thx......