Jump to content

WinHide

CodyBarrett

By CodyBarrett,
in AutoIt Example Scripts

 Share

Recommended Posts

CodyBarrett Universalist

CodyBarrett

Posted
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
[size="1"][font="Tahoma"][COMPLETED]-----[FAILED]-----[ONGOING]VolumeControl|Binary Converter|CPU Usage| Mouse Wrap |WinHide|Word Scrammbler|LOCKER|SCREEN FREEZE|Decisions Decisions|Version UDF|Recast Desktop Mask|TCP Multiclient EXAMPLE|BTCP|LANCR|UDP serverless|AIOCR|OECR|Recast Messenger|AU3C|Tik-Tak-Toe|Snakes & Ladders|BattleShips|TRON|SNAKE_____________________[u]I love the Helpfile it is my best friend.[/u][/font][/size]
Link to comment
Share on other sites
CodyBarrett Universalist

CodyBarrett

Posted
  • Author
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
[size="1"][font="Tahoma"][COMPLETED]-----[FAILED]-----[ONGOING]VolumeControl|Binary Converter|CPU Usage| Mouse Wrap |WinHide|Word Scrammbler|LOCKER|SCREEN FREEZE|Decisions Decisions|Version UDF|Recast Desktop Mask|TCP Multiclient EXAMPLE|BTCP|LANCR|UDP serverless|AIOCR|OECR|Recast Messenger|AU3C|Tik-Tak-Toe|Snakes & Ladders|BattleShips|TRON|SNAKE_____________________[u]I love the Helpfile it is my best friend.[/u][/font][/size]
Link to comment
Share on other sites
  • 4 months later...
CodyBarrett Universalist

CodyBarrett

Posted
  • Author
Posted

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

[size="1"][font="Tahoma"][COMPLETED]-----[FAILED]-----[ONGOING]VolumeControl|Binary Converter|CPU Usage| Mouse Wrap |WinHide|Word Scrammbler|LOCKER|SCREEN FREEZE|Decisions Decisions|Version UDF|Recast Desktop Mask|TCP Multiclient EXAMPLE|BTCP|LANCR|UDP serverless|AIOCR|OECR|Recast Messenger|AU3C|Tik-Tak-Toe|Snakes & Ladders|BattleShips|TRON|SNAKE_____________________[u]I love the Helpfile it is my best friend.[/u][/font][/size]
Link to comment
Share on other sites
wraithdu Universalist

wraithdu

Posted
Posted

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
Link to comment
Share on other sites
Skrip Universalist

Skrip

Posted
Posted

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]

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...