Sign in to follow this  
Followers 0
CodyBarrett

WinHide

8 posts in this topic

#1 ·  Posted (edited)

haha.. i made this today.. because i was bored... and a thought popped into me head.. "win"..."hide"... BAM!

lol i tried making it a Combobox for multiple hidden windows.. but it wouldn't add the new values to the bottom of the list...

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=ICON.ico
#AutoIt3Wrapper_Res_LegalCopyright=Cody Barrett
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
Opt ('GUIoneventmode',1)

$GUI = GUICreate (@ScriptName, 300, 100, -1, -1, -2138570616)
GUISetBkColor (0x000000, $GUI)
GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit_' )
GUICtrlCreateLabel (@ScriptName, 20, 0, 280, 20, $SS_CENTER )
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetColor (-1, 0xFFFFA6)
GUICtrlSetFont (-1, 10, 700, '', 'Trebuchet MS')
GUICtrlSetOnEvent (-1, '_Win_Move_')
$bExit = GUICtrlCreateLabel ('', 0, 0, 20, 20)
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetState (-1, $GUI_DISABLE)
$Exit = GUICtrlCreateLabel ('x', 1, 1, 18, 18, $SS_CENTER )
GUICtrlSetOnEvent (-1, '_Exit_')
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetColor (-1, 0xFFFFA6)
GUICtrlSetFont (-1, 10, 700, '', 'Trebuchet MS')
$Input = GUICtrlCreateInput ('Win title...', 10, 30, 200, 20)
GUICtrlSetFont (-1, 10, 700, '', 'Trebuchet MS')
$Toggle = GUICtrlCreateLabel ('CTRL - [OFF]', 220, 30, 70, 20)
GUICtrlSetColor (-1, 0xFFFFA6)
GUICtrlSetFont (-1, 8, 700, '', 'Trebuchet MS')
$bHide = GUICtrlCreateLabel ('', 10, 60, 135, 20, $SS_CENTER )
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetState (-1, $GUI_DISABLE)
$Hide = GUICtrlCreateLabel ('Hide Window', 11, 61, 133, 18, $SS_CENTER )
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetColor (-1, 0xFFFFA6)
GUICtrlSetFont (-1, 10, 700, '', 'Trebuchet MS')
GUICtrlSetOnEvent (-1, '_Hide_')
$bUnHide = GUICtrlCreateLabel ('', 150, 60, 135, 20, $SS_CENTER )
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetState (-1, $GUI_DISABLE)
$UnHide = GUICtrlCreateLabel ('UnHide Window', 151, 61, 133, 18, $SS_CENTER )
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetColor (-1, 0xFFFFA6)
GUICtrlSetFont (-1, 10, 700, '', 'Trebuchet MS')
GUICtrlSetOnEvent (-1, '_UnHide_')
GUISetState ()
$Status = 'Visible'

While 1
    WinSetOnTop ($GUI,'', 1)
    $m = GUIGetCursorInfo ($GUI)
    If $m[4] = $Exit Then
        GUICtrlSetBkColor ($bExit, 0xFFFFA6)
        GUICtrlSetBkColor ($bUnHide, 0x2e2e2e)
        GUICtrlSetBkColor ($bHide, 0x2e2e2e)
    ElseIf $m[4] = $Hide Then
        GUICtrlSetBkColor ($bhide, 0xFFFFA6)
        GUICtrlSetBkColor ($bUnHide, 0x2e2e2e)
        GUICtrlSetBkColor ($bExit, 0x2e2e2e)
    ElseIf $m[4] = $UnHide Then
        GUICtrlSetBkColor ($bUnhide, 0xFFFFA6)
        GUICtrlSetBkColor ($bHide, 0x2e2e2e)
        GUICtrlSetBkColor ($bExit, 0x2e2e2e)
    Else
        GUICtrlSetBkColor ($bUnHide, 0x2e2e2e)
        GUICtrlSetBkColor ($bHide, 0x2e2e2e)
        GUICtrlSetBkColor ($bExit, 0x2e2e2e)
    EndIf
    If _IsPressed ('11') Then
        If GUICtrlRead ($Toggle) = 'CTRL - [OFF]' Then GUICtrlSetData ($Toggle, 'CTRL - [ON]')
        If $Status <> 'Hidden' Then
            While _IsPressed('11')
                $m = WinGetTitle ('[active]')
                If $Status <> 'Hidden' Then
                    GUICtrlSetData ($Input, '')
                    GUICtrlSetData ($Input, $m)
                EndIf
                Sleep (100)
            WEnd
        EndIf
        If GUICtrlRead ($Toggle) = 'CTRL - [ON]' Then GUICtrlSetData ($Toggle, 'CTRL - [OFF]')
    EndIf
    Sleep (100)
WEnd

Func _Hide_ ()
    $Input1 = GUICtrlRead ($Input)
    If $Input1 <> @ScriptName And $Input1 <> '' Then
        WinSetState ($Input1, '', @SW_HIDE)
        GUICtrlSetState ($Input, $GUI_DISABLE)
        GUICtrlSetState ($Hide, $GUI_DISABLE)
        $Status = 'Hidden'
    Else
        MsgBox (48, 'ERROR', 'CANNOT HIDE ' & @ScriptName & '.', '', $GUI)
    EndIf
EndFunc

Func _UnHide_ ()
    $Input1 = GUICtrlRead ($Input)
    WinSetState ($Input1, '', @SW_SHOW)
    GUICtrlSetState ($Input, $GUI_ENABLE)
    GUICtrlSetState ($Hide, $GUI_ENABLE)
    $Status = 'Visible'
EndFunc

Func _Win_Move_ ()
    $MouseXY = MouseGetPos ()
    $WinXY = WinGetPos ($GUI)
    $xOff = $MouseXY[0] - $WinXY[0]
    $yOFF = $MouseXY[1] - $WinXY[1]
    While _IsPressed ('01')
        WinMove ($GUI, '',MouseGetPos (0) - $xOff ,MouseGetPos (1) - $yOFF)
        Sleep (10)
    WEnd
EndFunc

Func _Exit_ ()
    If $Status = 'Hidden' Then WinSetState (GUICtrlRead ($Input), '', @SW_SHOW)
    Exit
EndFunc

lol... its simple.. but effective only when you go into the process of the Tsgmngr that you can see it... or if it has a tray icon

EDIT

Fixed small bug.. it was hiding itself.. now i fixed it

EDIT#2

Fixed ONEXIT unhide hidden window & ''string for title was hidding itself... and holding CTRL and then clicking hide.. hides the window.. then sets the input to WinHide.... its fixed now..

Edited by CodyBarrett

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

I like it. but more then all the style of the GUI. Regards. By the way, its still hide itself when the text box is empty.

Edited by lsakizada

Be Green Now or Never (BGNN)!

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

hmm... ok then... i also found out that when you exit it.. the window stays hiden.. but ima fix that in 5mins

EDIT.. fixed at the top

Edited by CodyBarrett

Share this post


Link to post
Share on other sites

Is there anyway to make it so the processes name is hidden as well? or so that you can change the processes name of an item?

Share this post


Link to post
Share on other sites

GUI is a little flickery. Perhaps use a $CurrentHoveredControl <> $LastHoveredControl scheme to update the GUI only when necessary.

Share this post


Link to post
Share on other sites

Is there anyway to make it so the processes name is hidden as well? or so that you can change the processes name of an item?

probably... i'm to busy to go and search for it right now...

GUI is a little flickery. Perhaps use a $CurrentHoveredControl <> $LastHoveredControl scheme to update the GUI only when necessary.

yeah good idea... OR.. you can just add a GuictrlsetCursor (-1, 0) to make a button imitation and just get rid of the button highlighting... that seems more efficient but like i said i gots no time right now

Share this post


Link to post
Share on other sites

Here, this is pretty flicker-free:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=ICON.ico
#AutoIt3Wrapper_Res_LegalCopyright=Cody Barrett
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
Opt ('GUIoneventmode',1)

Global $LastLabel = 0, $LastHoveredControl = -1, $hDLL = DllOpen('user32.dll'), $bOn = False

$GUI = GUICreate (@ScriptName, 300, 100, -1, -1, -2138570616)
GUISetBkColor (0x000000, $GUI)
GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit_' )
GUICtrlCreateLabel (@ScriptName, 20, 0, 280, 20, $SS_CENTER )
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetColor (-1, 0xFFFFA6)
GUICtrlSetFont (-1, 10, 700, '', 'Trebuchet MS')
GUICtrlSetOnEvent (-1, '_Win_Move_')
$bExit = GUICtrlCreateLabel ('', 0, 0, 20, 20)
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetState (-1, $GUI_DISABLE)
$Exit = GUICtrlCreateLabel ('x', 1, 1, 18, 18, $SS_CENTER )
GUICtrlSetOnEvent (-1, '_Exit_')
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetColor (-1, 0xFFFFA6)
GUICtrlSetFont (-1, 10, 700, '', 'Trebuchet MS')
$Input = GUICtrlCreateInput ('Win title...', 10, 30, 200, 20)
GUICtrlSetFont (-1, 10, 700, '', 'Trebuchet MS')
$Toggle = GUICtrlCreateLabel ('CTRL - [OFF]', 220, 30, 70, 20)
GUICtrlSetColor (-1, 0xFFFFA6)
GUICtrlSetFont (-1, 8, 700, '', 'Trebuchet MS')
$bHide = GUICtrlCreateLabel ('', 10, 60, 135, 20, $SS_CENTER )
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetState (-1, $GUI_DISABLE)
$Hide = GUICtrlCreateLabel ('Hide Window', 11, 61, 133, 18, $SS_CENTER )
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetColor (-1, 0xFFFFA6)
GUICtrlSetFont (-1, 10, 700, '', 'Trebuchet MS')
GUICtrlSetOnEvent (-1, '_Hide_')
$bUnHide = GUICtrlCreateLabel ('', 150, 60, 135, 20, $SS_CENTER )
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetState (-1, $GUI_DISABLE)
$UnHide = GUICtrlCreateLabel ('UnHide Window', 151, 61, 133, 18, $SS_CENTER )
GUICtrlSetBkColor (-1, 0x2e2e2e)
GUICtrlSetColor (-1, 0xFFFFA6)
GUICtrlSetFont (-1, 10, 700, '', 'Trebuchet MS')
GUICtrlSetOnEvent (-1, '_UnHide_')
WinSetOnTop ($GUI,'', 1)
GUISetState ()
$Status = 'Visible'

While 1
    $m = GUIGetCursorInfo ($GUI)
    If $m[4] <> $LastHoveredControl Then
        $LastHoveredControl = $m[4]
        If $m[4] = $Exit Then
            If $LastLabel Then GUICtrlSetBkColor ($LastLabel, 0x2e2e2e)
            GUICtrlSetBkColor ($bExit, 0xFFFFA6)
            $LastLabel = $bExit
            $bOn = True
        ElseIf $m[4] = $Hide Then
            If $LastLabel Then GUICtrlSetBkColor ($LastLabel, 0x2e2e2e)
            GUICtrlSetBkColor ($bhide, 0xFFFFA6)
            $LastLabel = $bHide
            $bOn = True
        ElseIf $m[4] = $UnHide Then
            If $LastLabel Then GUICtrlSetBkColor ($LastLabel, 0x2e2e2e)
            GUICtrlSetBkColor ($bUnhide, 0xFFFFA6)
            $LastLabel = $bUnHide
            $bOn = True
        ElseIf $bOn Then
            If $LastLabel Then GUICtrlSetBkColor ($LastLabel, 0x2e2e2e)
            $LastLabel = 0
            $bOn = False
        EndIf
    EndIf
    If _IsPressed ('11', $hDLL) Then
        If GUICtrlRead ($Toggle) = 'CTRL - [OFF]' Then GUICtrlSetData ($Toggle, 'CTRL - [ON]')
        If $Status <> 'Hidden' Then
            While _IsPressed('11', $hDLL)
                $m = WinGetTitle ('[active]')
                If $m <> GUICtrlRead($Input) Then GUICtrlSetData ($Input, $m)
                Sleep (100)
            WEnd
        EndIf
        If GUICtrlRead ($Toggle) = 'CTRL - [ON]' Then GUICtrlSetData ($Toggle, 'CTRL - [OFF]')
    EndIf
    Sleep (100)
WEnd

Func _Hide_ ()
    $Input1 = GUICtrlRead ($Input)
    If $Input1 <> @ScriptName And $Input1 <> '' Then
        WinSetState ($Input1, '', @SW_HIDE)
        GUICtrlSetState ($Input, $GUI_DISABLE)
        GUICtrlSetState ($Hide, $GUI_DISABLE)
        $Status = 'Hidden'
    Else
        MsgBox (48, 'ERROR', 'CANNOT HIDE ' & @ScriptName & '.', '', $GUI)
    EndIf
EndFunc

Func _UnHide_ ()
    $Input1 = GUICtrlRead ($Input)
    WinSetState ($Input1, '', @SW_SHOW)
    GUICtrlSetState ($Input, $GUI_ENABLE)
    GUICtrlSetState ($Hide, $GUI_ENABLE)
    $Status = 'Visible'
EndFunc

Func _Win_Move_ ()
    $MouseXY = MouseGetPos ()
    $WinXY = WinGetPos ($GUI)
    $xOff = $MouseXY[0] - $WinXY[0]
    $yOFF = $MouseXY[1] - $WinXY[1]
    While _IsPressed ('01')
        WinMove ($GUI, '',MouseGetPos (0) - $xOff ,MouseGetPos (1) - $yOFF)
        Sleep (10)
    WEnd
EndFunc

Func _Exit_ ()
    If $Status = 'Hidden' Then WinSetState (GUICtrlRead ($Input), '', @SW_SHOW)
    DllClose($hDLL)
    Exit
EndFunc

Share this post


Link to post
Share on other sites

Is there anyway to make it so the processes name is hidden as well? or so that you can change the processes name of an item?

Not possible with AutoIt.


[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

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  
Followers 0