newsak2005 Posted August 13, 2011 Posted August 13, 2011 (edited) DeskTop Task ManagerGuiUserInterfade Demo.expandcollapse popup#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 Skinexpandcollapse popup#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 August 15, 2011 by newsak2005
Negro Posted August 13, 2011 Posted August 13, 2011 Cool ! Nice. Thanks. Working [font="'Times New Roman"]Everything will be fine[/font]
newsak2005 Posted August 14, 2011 Author Posted August 14, 2011 (edited) Debug, Hide Desktop & Taskbar. SafetyFirst. expandcollapse popup#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 August 16, 2011 by newsak2005
Negro Posted August 19, 2011 Posted August 19, 2011 You wonder. Cool ! Thanks.. [font="'Times New Roman"]Everything will be fine[/font]
Laymanball Posted August 5, 2014 Posted August 5, 2014 (edited) Modify code for safety, delete minimize and show all onExit. expandcollapse popup#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 August 5, 2014 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
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now