Jump to content
Sign in to follow this  
Tricky_haha

Hider(GUI)

Recommended Posts

Tricky_haha

;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

Share this post


Link to post
Share on other sites
Valuater

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

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

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×