newsak2005 Posted August 13, 2011 Share 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 Link to comment Share on other sites More sharing options...
Negro Posted August 13, 2011 Share Posted August 13, 2011 Cool ! Nice. Thanks. Working [font="'Times New Roman"]Everything will be fine[/font] Link to comment Share on other sites More sharing options...
newsak2005 Posted August 14, 2011 Author Share 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 Link to comment Share on other sites More sharing options...
Negro Posted August 19, 2011 Share Posted August 19, 2011 You wonder. Cool ! Thanks.. [font="'Times New Roman"]Everything will be fine[/font] Link to comment Share on other sites More sharing options...
Laymanball Posted August 5, 2014 Share 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 Link to comment Share on other sites More sharing options...
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