wazer Posted September 6, 2010 Share Posted September 6, 2010 Hi there I made this script.Its all about getting the good old XP quicklaunch back to windows 7 x86/x64 version AUTOMATIC. It works!..But if the quicklaunch folder has already been applyed to the taskbar it fails and make double quicklaunch on the taskbar.So are there any kindly to help me check if the quick launch folder has already been applyed to the taskbar?.Ill show your screenshot. And when your at it, please try my script and see it in action .This is all my code i done have anything to hide. Open for all ..expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_UseX64=n #AutoIt3Wrapper_Res_Comment=wazer #AutoIt3Wrapper_Res_Description=Quick Launch Classic win7 x86/x64 - DK #AutoIt3Wrapper_Res_LegalCopyright=wazer #AutoIt3Wrapper_Res_Language=1033 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;------------------------------------------------------------------ ; AutoIt Version: 3.3.6.1 ; Author: wazer ; Last Edited: 09/04/2010 ; QuickLaunch Classic Version 1.03 ; Last Edited: 04/09/2010 - EU ; Script Function: Adds Quick Launch Classic Toolbar ;------------------------------------------------------------------ ;Messages Box 1. MsgBox(0, "WARNING -1- !!!! QUICK LAUNCH ENABLE", "THIS WILL RESTART EXPLORER TO TAKE EFFECT OF REG ENTRIES TO BE ALLOWED") sleep(10) ;Adding Reg Entries. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "1") RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", "1") RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2") RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1") RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "EnableAutoTray", "REG_DWORD", "0") RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2','Settings',"REG_BINARY","28000000ffffffff02000000030000003e0000004e000000feffffffce030000920600001c040000") ;End Windows Explorer. While ProcessExists ( "explorer.exe" ) ProcessClose ( "explorer.exe" ) WEnd Sleep ( 3000 ) ;Check for Explorer if not started - then start While Not ProcessExists ( "explorer.exe" ) Run ( @WindowsDir & "\explorer.exe" ) Sleep ( 1000 ) WEnd ;Messages Box 2. MsgBox(0, "WARNING -2- !!!! QUICK LAUNCH ENABLE", "THIS WILL ENABLE CLASSIC QUICK LAUNCH ON WINDOWS 7 x86/x64 VERSIONS - DONT TOUCH MICE OR KEYBOARD AFTER PRESSING OK UNTIL IT SAYS DONE!!!") sleep(2000) ;Unlock Taskbar _ToggleTaskbarLock() ;Create Quicklaunch Toolbar _TaskToolbarWin7("Shell:Quick Launch") ;Get Quick Launch current postion While 1 Sleep(100) $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]") If Not @error Then ExitLoop WEnd $TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2) ;Hide "Quick Launch" toolbar text MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0) Send("v{UP}{ENTER}") $TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2) ;Hide "Quick Launch" toolbar title MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0) Send("v{ENTER}") ;Move "Quick Launch" toolbar $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]") $TRAY = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ReBarWindow32]") MouseClickDrag("left", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 5, $TaskBar_CenterHeight, 0) ;Move "Current Apps" bar ;Change "Running applications" To your desired language! $CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:MSTaskListWClass; TEXT:Running applications]") MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0) ;Lock Taskbar _ToggleTaskbarLock() sleep(100) ;Locking Taskbar. Send("{UP}{enter}") Func _TaskToolbarWin7($toolbardir) MouseClick("right", 0, @DesktopHeight) Send("{DOWN}{RIGHT}{UP}{ENTER}") ;Change to your desired language - "New Toolbar" Only! WinWaitActive("New Toolbar") ;Change to your desired language - "New Toolbar" Only! ControlSetText("New Toolbar", "", "Edit1", $toolbardir) ;Change to your desired language - "New Toolbar" Only! ControlClick("New Toolbar", "", "Button1") EndFunc ;==>_TaskToolbarWin7 Func _ToggleTaskbarLock() MouseClick("right", 0, @DesktopHeight) Send("{UP}") EndFunc ;==>_ToggleTaskbarLock ;Messages Box 3. MsgBox(0, "WARNING -3- !!!! QUICK LAUNCH ENABLE", "DONE!!! Happy Quicklaunch ;)") 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