Jump to content
Sign in to follow this  
newsak2005

DeskTop Task Manager

Recommended Posts

newsak2005

DeskTop Task Manager

GuiUserInterfade Demo.

#NoTrayIcon
#cs=============Info================
createdate:14/AUG/2011
name:DeskTask Manager
type:GuiUserInterfade(Freeware Demo)
discription:state on screen
support:WindowsXP
designby:sak2005
#ce=================================
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <WinAPI.au3>
#Include <GuiButton.au3>

Global $title = 'DeskTask manager'

_main()
Func _main()
$hForm = GUICreate($title, 465, 63, 0, -100, -1, BitOR($WS_EX_TOPMOST,$WS_EX_LAYERED))
GUISetBkColor(0xA6CAF0)
$Button1 = GUICtrlCreateButton("Hide TaskViewIcon", 5, 8, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Hide Taskbar", 120, 8, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Hide Start Button", 235, 8, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("Hide Desktop", 350, 8, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
_FadeIn()
If @OSVersion <> 'Win_XP' Then MsgBox(48, "Warning!", "Support:WindowsXP")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _FadeOut()
            Exit
        Case $Button1
            $iButton = _GUICtrlButton_GetText($Button1)
            Select
                Case $iButton='Hide TaskViewIcon'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Button1))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]")
                        _GUICtrlButton_SetText($Button1, 'Show TaskViewIcon')
                    EndIf
                Case $iButton='Show TaskViewIcon'
                    MsgBox(64, "", _GUICtrlButton_GetText($Button1))
                    ControlShow("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]")
                    _GUICtrlButton_SetText($Button1, 'Hide TaskViewIcon')
            EndSelect
        Case $Button2
            $iButton = _GUICtrlButton_GetText($Button2)
            Select
                Case $iButton='Hide Taskbar'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Button2))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", "")
                        _GUICtrlButton_SetText($Button2, 'Show Taskbar')
                    EndIf
                Case $iButton='Show Taskbar'
                    MsgBox(64, "", _GUICtrlButton_GetText($Button2))
                    ControlShow("[Class:Shell_TrayWnd]", "", "")
                    _GUICtrlButton_SetText($Button2, 'Hide Taskbar')
            EndSelect
        Case $Button3
            $iButton = _GUICtrlButton_GetText($Button3)
            Select
                Case $iButton='Hide Start Button'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Button3))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", 304)
                        _GUICtrlButton_SetText($Button3, 'Show Start Button')
                    EndIf
                Case $iButton='Show Start Button'
                    MsgBox(64, "", _GUICtrlButton_GetText($Button3))
                    ControlShow("[Class:Shell_TrayWnd]", "", 304)
                    _GUICtrlButton_SetText($Button3, 'Hide Start Button')
            EndSelect
        Case $Button4
            $iButton = _GUICtrlButton_GetText($Button4)
            Select
                Case $iButton='Hide Desktop'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Button4))
                    If $btn = 1 Then
                        ControlHide("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]")
                        _GUICtrlButton_SetText($Button4, 'Show Desktop')
                    EndIf
                Case $iButton='Show Desktop'
                    MsgBox(64, "", _GUICtrlButton_GetText($Button4))
                    ControlShow("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]")
                    _GUICtrlButton_SetText($Button4, 'Hide Desktop')
                    ControlSend("[CLASS:Progman; TITLE:Program Manager]", "", "", "{F5}")
            EndSelect
    EndSwitch
WEnd
EndFunc

Func _FadeIn()
    $iPos = WinGetPos($title)
    If $iPos[1] = -100 Then
        If WinMove($title, "", 283, 268, 465, 65)Then
            For $i = 0 To 255 Step 4
                WinSetTrans($title, "", $i)
                Sleep(1)
            Next
        EndIf
    EndIf
EndFunc

Func _FadeOut()
    For $i = 255 To 0 Step -4
        WinSetTrans($title, "", $i)
        Sleep(1)
    Next
EndFunc

===========================================================

Glass Skin

#NoTrayIcon
#cs=============Info================
createdate:14/AUG/2011
name:DeskTask Manager
type:GuiUserInterfade(Freeware Demo)
skin:Glass
discription:State on screen
support:WindowsXP
designby:Sak2005
#ce=================================
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <WinAPI.au3>
#Include <GuiButton.au3>

Global $hForm, $title = 'DeskTask manager'

_main()
Func _main()
$hForm = GUICreate($title, 280, 107, 300, 300, -1, BitOR($WS_EX_TOPMOST,$WS_EX_LAYERED))
GUISetBkColor(0xABABAB)
$Button1 = GUICtrlCreateButton("Hide TaskViewIcon", 20, 20, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Hide Taskbar", 150, 20, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Hide Start Button", 20, 60, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("Hide Desktop", 150, 60, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
GUISetState()
_FadeIn()
If @OSVersion <> 'Win_XP' Then MsgBox(48, "Warning!", "Support:WindowsXP")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _FadeOut()
            Exit
        Case $Button1
            $iButton = _GUICtrlButton_GetText($Button1)
            Select
                Case $iButton='Hide TaskViewIcon'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Button1))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]")
                        _GUICtrlButton_SetText($Button1, 'Show TaskViewIcon')
                    EndIf
                Case $iButton='Show TaskViewIcon'
                    MsgBox(64, "", _GUICtrlButton_GetText($Button1))
                    ControlShow("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]")
                    _GUICtrlButton_SetText($Button1, 'Hide TaskViewIcon')
            EndSelect
        Case $Button2
            $iButton = _GUICtrlButton_GetText($Button2)
            Select
                Case $iButton='Hide Taskbar'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Button2))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", "")
                        _GUICtrlButton_SetText($Button2, 'Show Taskbar')
                    EndIf
                Case $iButton='Show Taskbar'
                    MsgBox(64, "", _GUICtrlButton_GetText($Button2))
                    ControlShow("[Class:Shell_TrayWnd]", "", "")
                    _GUICtrlButton_SetText($Button2, 'Hide Taskbar')
            EndSelect
        Case $Button3
            $iButton = _GUICtrlButton_GetText($Button3)
            Select
                Case $iButton='Hide Start Button'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Button3))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", 304)
                        _GUICtrlButton_SetText($Button3, 'Show Start Button')
                    EndIf
                Case $iButton='Show Start Button'
                    MsgBox(64, "", _GUICtrlButton_GetText($Button3))
                    ControlShow("[Class:Shell_TrayWnd]", "", 304)
                    _GUICtrlButton_SetText($Button3, 'Hide Start Button')
            EndSelect
        Case $Button4
            $iButton = _GUICtrlButton_GetText($Button4)
            Select
                Case $iButton='Hide Desktop'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Button4))
                    If $btn = 1 Then
                        ControlHide("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]")
                        _GUICtrlButton_SetText($Button4, 'Show Desktop')
                    EndIf
                Case $iButton='Show Desktop'
                    MsgBox(64, "", _GUICtrlButton_GetText($Button4))
                    ControlShow("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]")
                    _GUICtrlButton_SetText($Button4, 'Hide Desktop')
                    ControlSend("[CLASS:Progman; TITLE:Program Manager]", "", "", "{F5}")
            EndSelect
    EndSwitch
WEnd
EndFunc

Func _FadeIn()
    For $i = 0 To 255 Step 4
        _WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, $i, BitOR($LWA_COLORKEY, $LWA_ALPHA))
        Sleep(1)
    Next
EndFunc

Func _FadeOut()
    For $i = 255 To 0 Step -4
        _WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, $i, BitOR($LWA_COLORKEY, $LWA_ALPHA))
        Sleep(1)
    Next
EndFunc ;==>desktaskmanager.
Edited by newsak2005

Share this post


Link to post
Share on other sites
Negro

Cool ! Nice. :mellow:

Thanks. Working


[font="'Times New Roman"]Everything will be fine[/font]

Share this post


Link to post
Share on other sites
newsak2005

Debug, Hide Desktop & Taskbar. SafetyFirst.

#NoTrayIcon
#cs=============Info================
createdate:14/AUG/2011
name:DeskTask Manager
type:GuiUserInterfade(Freeware Demo)
skin:Glass
discription:State on screen
support:WindowsXP
designby:Sak2005
#ce=================================
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <WinAPI.au3>
#Include <GuiButton.au3>

Opt("MustDeclareVars", 1)
Global $title = 'DeskTask manager'
Global $hForm, $Btn_HTV, $Btn_HTB, $Btn_HSB, $Btn_HDT
Global $nMsg, $iButton, $btn, $i

_main()
Func _main()
$hForm = GUICreate($title, 280, 107, 370, 213, -1, BitOR($WS_EX_TOPMOST,$WS_EX_LAYERED))
GUISetBkColor(0xABABAB)
$Btn_HTV = GUICtrlCreateButton("Hide TaskViewIcon", 20, 20, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Btn_HTB = GUICtrlCreateButton("Hide Taskbar", 150, 20, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Btn_HSB = GUICtrlCreateButton("Hide Start Button", 20, 60, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Btn_HDT = GUICtrlCreateButton("Hide Desktop", 150, 60, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
GUISetState()
_FadeIn()
If @OSVersion <> 'Win_XP' Then MsgBox(48, "Warning!", "Support:WindowsXP")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            If _GUICtrlButton_GetText($Btn_HDT)='Show Desktop'Then
                MsgBox(0, "SafetyFirst", "Pleased show desktop now.")
            ElseIf _GUICtrlButton_GetText($Btn_HTB)='Show Taskbar' Then
                MsgBox(0, "SafetyFirst", "Pleased show taskbar now.")
            Else
                $btn = MsgBox(36, "", "Do you wanted to Exit?.")
                If $btn = 6 Then
                    _FadeOut()
                    Exit
                EndIf
            EndIf
        Case $Btn_HTV
            $iButton = _GUICtrlButton_GetText($Btn_HTV)
            Select
                Case $iButton='Hide TaskViewIcon'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HTV))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]")
                        _GUICtrlButton_SetText($Btn_HTV, 'Show TaskViewIcon')
                    EndIf
                Case $iButton='Show TaskViewIcon'
                    MsgBox(64, "", _GUICtrlButton_GetText($Btn_HTV))
                    ControlShow("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]")
                    _GUICtrlButton_SetText($Btn_HTV, 'Hide TaskViewIcon')
            EndSelect
        Case $Btn_HTB
            $iButton = _GUICtrlButton_GetText($Btn_HTB)
            Select
                Case $iButton='Hide Taskbar'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HTB))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", "")
                        _GUICtrlButton_SetText($Btn_HTB, 'Show Taskbar')
                    EndIf
                Case $iButton='Show Taskbar'
                    MsgBox(64, "", _GUICtrlButton_GetText($Btn_HTB))
                    ControlShow("[Class:Shell_TrayWnd]", "", "")
                    _GUICtrlButton_SetText($Btn_HTB, 'Hide Taskbar')
            EndSelect
        Case $Btn_HSB
            $iButton = _GUICtrlButton_GetText($Btn_HSB)
            Select
                Case $iButton='Hide Start Button'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HSB))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", 304)
                        _GUICtrlButton_SetText($Btn_HSB, 'Show Start Button')
                    EndIf
                Case $iButton='Show Start Button'
                    MsgBox(64, "", _GUICtrlButton_GetText($Btn_HSB))
                    ControlShow("[Class:Shell_TrayWnd]", "", 304)
                    _GUICtrlButton_SetText($Btn_HSB, 'Hide Start Button')
            EndSelect
        Case $Btn_HDT
            $iButton = _GUICtrlButton_GetText($Btn_HDT)
            Select
                Case $iButton='Hide Desktop'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HDT))
                    If $btn = 1 Then
                        ControlHide("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]")
                        _GUICtrlButton_SetText($Btn_HDT, 'Show Desktop')
                    EndIf
                Case $iButton='Show Desktop'
                    MsgBox(64, "", _GUICtrlButton_GetText($Btn_HDT))
                    ControlShow("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]")
                    _GUICtrlButton_SetText($Btn_HDT, 'Hide Desktop')
                    ControlSend("[CLASS:Progman; TITLE:Program Manager]", "", "", "{F5}")
            EndSelect
    EndSwitch
WEnd
EndFunc

Func _FadeIn()
    For $i = 0 To 255 Step 4
        _WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, $i, BitOR($LWA_COLORKEY, $LWA_ALPHA))
        Sleep(1)
    Next
EndFunc

Func _FadeOut()
    For $i = 255 To 0 Step -4
        _WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, $i, BitOR($LWA_COLORKEY, $LWA_ALPHA))
        Sleep(1)
    Next
EndFunc ;==>desktaskmanager.
Edited by newsak2005

Share this post


Link to post
Share on other sites
Negro

You wonder. :mellow: Cool !

Thanks..


[font="'Times New Roman"]Everything will be fine[/font]

Share this post


Link to post
Share on other sites
Laymanball

Modify code for safety, delete minimize and show all onExit. :bye:

#NoTrayIcon
#cs=============Info================
createdate:14/AUG/2011
name:DeskTask Manager
type:GuiUserInterfade(Freeware Demo)
skin:Glass
discription:State on screen
support:WindowsXP
designby:Sak2005
#ce=================================
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <WinAPI.au3>
#Include <GuiButton.au3>

Opt("MustDeclareVars", 1)
Global $title = 'Desktop Task Manager'
Global $hForm, $Btn_HTV, $Btn_HTB, $Btn_HSB, $Btn_HDT
Global $nMsg, $iButton, $btn, $i

_main()
Func _main()
$hForm = GUICreate($title, 280, 130, 370, 213, $WS_SYSMENU, BitOR($WS_EX_TOPMOST,$WS_EX_LAYERED))
GUISetBkColor(0xABABAB)
$Btn_HTV = GUICtrlCreateButton("Hide TaskViewIcon", 20, 20, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Btn_HTB = GUICtrlCreateButton("Hide Taskbar", 150, 20, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Btn_HSB = GUICtrlCreateButton("Hide Start Button", 20, 60, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Btn_HDT = GUICtrlCreateButton("Hide Desktop", 150, 60, 110, 25, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
GUISetState()
_FadeIn()
If @OSVersion <> 'Win_XP' Then MsgBox(48, "Warning!", "Support:WindowsXP")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            $btn = MsgBox(36, "", "Do you wanted to Exit?.")
                If $btn = 6 Then
                    ControlShow("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]")
                    ControlShow("[Class:Shell_TrayWnd]", "", "")
                    ControlShow("[Class:Shell_TrayWnd]", "", 304)
                    ControlShow("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]")
                    _FadeOut()
                    Exit
                EndIf
        Case $Btn_HTV
            $iButton = _GUICtrlButton_GetText($Btn_HTV)
            Select
                Case $iButton='Hide TaskViewIcon'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HTV))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]")
                        _GUICtrlButton_SetText($Btn_HTV, 'Show TaskViewIcon')
                    EndIf
                Case $iButton='Show TaskViewIcon'
                    MsgBox(64, "", _GUICtrlButton_GetText($Btn_HTV))
                    ControlShow("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]")
                    _GUICtrlButton_SetText($Btn_HTV, 'Hide TaskViewIcon')
            EndSelect
        Case $Btn_HTB
            $iButton = _GUICtrlButton_GetText($Btn_HTB)
            Select
                Case $iButton='Hide Taskbar'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HTB))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", "")
                        _GUICtrlButton_SetText($Btn_HTB, 'Show Taskbar')
                    EndIf
                Case $iButton='Show Taskbar'
                    MsgBox(64, "", _GUICtrlButton_GetText($Btn_HTB))
                    ControlShow("[Class:Shell_TrayWnd]", "", "")
                    _GUICtrlButton_SetText($Btn_HTB, 'Hide Taskbar')
            EndSelect
        Case $Btn_HSB
            $iButton = _GUICtrlButton_GetText($Btn_HSB)
            Select
                Case $iButton='Hide Start Button'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HSB))
                    If $btn = 1 Then
                        ControlHide("[Class:Shell_TrayWnd]", "", 304)
                        _GUICtrlButton_SetText($Btn_HSB, 'Show Start Button')
                    EndIf
                Case $iButton='Show Start Button'
                    MsgBox(64, "", _GUICtrlButton_GetText($Btn_HSB))
                    ControlShow("[Class:Shell_TrayWnd]", "", 304)
                    _GUICtrlButton_SetText($Btn_HSB, 'Hide Start Button')
            EndSelect
        Case $Btn_HDT
            $iButton = _GUICtrlButton_GetText($Btn_HDT)
            Select
                Case $iButton='Hide Desktop'
                    $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HDT))
                    If $btn = 1 Then
                        ControlHide("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]")
                        _GUICtrlButton_SetText($Btn_HDT, 'Show Desktop')
                    EndIf
                Case $iButton='Show Desktop'
                    MsgBox(64, "", _GUICtrlButton_GetText($Btn_HDT))
                    ControlShow("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]")
                    _GUICtrlButton_SetText($Btn_HDT, 'Hide Desktop')
                    ControlSend("[CLASS:Progman; TITLE:Program Manager]", "", "", "{F5}")
            EndSelect
    EndSwitch
WEnd
EndFunc

Func _FadeIn()
    For $i = 0 To 255 Step 4
        _WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, $i, BitOR($LWA_COLORKEY, $LWA_ALPHA))
        Sleep(1)
    Next
EndFunc

Func _FadeOut()
    For $i = 255 To 0 Step -4
        _WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, $i, BitOR($LWA_COLORKEY, $LWA_ALPHA))
        Sleep(1)
    Next
EndFunc ;==>desktaskmanager.
Edited by Laymanball

My Sample Script

Download: VistaDesktopIconsChangerForXp.au3 (Com,Doc and Bin only) http://www.4shared.com/rar/NMHYL5Igba/VistaDesktopIconsChangerForXp_.html

                     VistaDesktopIconsChangerForXp.exe (Resources) http://www.4shared.com/rar/nzs7Mb1gba/VistaDesktopIconsChangerForXp_.html

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  

×