wazer Posted September 13, 2009 Posted September 13, 2009 (edited) THIS WILL ENABLE QUICK LAUNCH CLASSIC LOOK AND FEEL ON WINDOWS 7 VERSIONSNever got tired of the new look in windows 7? Well i did. And found a way to make the taskbar look like good old XP days.I started this topic some time, now after i wanted to reformat again. I took some time to look into the code again and make some improvements to the tool.==============================================Quick Launch Classic 7 version 1.05 change log================================Legend:* = New feature+ = Improved feature! = Fixed bug? = Other stuff01. + Reduced mouse speed while performing action, should finally fix all those errors.02. + Corrected the mouse to be more precisely now, when working with class/text field.03. * Added international language support for all in one. USA, France, Netherlands, Denmark, Sweden, Norway, Germany. Your language not supported? write in the thread.04. * Added modification from following users at msfn.org, myselfidem, coucou.05. * Added show dekstop action via mouse. This will fix programs running in the background that could lead to naggin Quick Launch Classic 7, while it was on duty.06. * Added tray msg in start that to inform the user they should not touch anything, while its running.07. * Added tray msg when finished.08. * Added hotkey to exit the program if something went wrong. The key is F1.09. * Added Quick Launch string check.10. * Added wait check before continue after ending - starting explorer.exe.11. * Added switchless params for more info run Run "QuickLaunchClassic7.exe /?"I suggest for the full joy and effect of quicklaunch classic 7 use following paramf.Usage run "QuickLaunchClassic7.exe /NOPIN /TGL /TSI /AUTOTRAY /LBS3 /EXPLORER" without the quotes!./NOPINRemoves The pinned list on windows 7 taskbar./TGLMakes Taskbar buttons = Never combine/TSIMakes Small icons on windows 7 taskbar./AUTOTRAYDisable AUTOTRAY on windows 7 taskbar./LBS3Langbar is closed and will not be visible inside windows 7 taskbar./EXPLORERWill end explorer and start it again with all options saved, This is usefull so you dont have to restart windows at all to take effect of changes==============================================Quick Launch Classic 7 version 1.04 change log================================01. ! Fixed EnableAutoTray==============================================Quick Launch Classic 7 version 1.03 change log================================01. ! Fixed typo.02. * Added EnableAutoTray value 003. * Added silent versions for unattended install.==============================================Quick Launch Classic 7 version 1.02 change log================================01. * Added Reg Entries02. * Added Small Icons03. * taskbar be allowed to move.04. * taskbar to default value, else the script will not work. You can change back after.05. * Forced TaskbarGlomLevel = 2 = Never combine.==============================================Quick Launch Classic 7 version 1.01 change log================================01. ! Fixed Danish version.==============================================Quick Launch Classic 7 version 1.0 change log================================*+!? IntialDownloads:Version 1.05MediaFirehttp://www.mediafire.com/?b5j1ihnodtkbm28BETA TEST:v2.00 RC1.02http://www.mediafire.com/?cqbjha0kk18b6jfOld Versions:Version 1.04ENGLISH + SOURCEhttp://www.multiupload.com/VFVKMOTN7DDANISH + SOURCEhttp://www.multiupload.com/CWZSMKM60BVersion 1.03ENGLISH + SOURCEhttp://www.multiupload.com/YFKXANVJ3XDANISH + SOURCEhttp://www.multiupload.com/ZZ2H5N7TAVIf you wanna translate feel free to it, provide me with links after and ill update the links.QuickLaunchClassic_1.05.zip Edited April 19, 2014 by wazer 1
MAVERICKS CHOICE Posted September 29, 2009 Posted September 29, 2009 Maybe ask Mhz if he hasn't already look @ this thread.
Cee-Kay Posted October 7, 2009 Posted October 7, 2009 AutoIt ErrorLine -1:Error: Subscript used with non-Aray variableYou've already done the hard work, you simply need to compile the code; the script works fine Personally, the only change I would make is to change the view to 'Large Icons' (when the taskbar is unlocked).Good job Wazer
sp00f Posted October 9, 2009 Posted October 9, 2009 (edited) Only works on English version?Didnt work on Dutch Windows 7.Did you also looked here : [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]And here : [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced](It covers a few things.) Edited October 9, 2009 by sp00f
wazer Posted October 14, 2009 Author Posted October 14, 2009 (edited) Only works on English version?Didnt work on Dutch Windows 7.Did you also looked here : [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]And here : [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced](It covers a few things.)Thats because you have check what new toolbar is spelled in dutch. I dont know sorry, and you have to check the hotkeys also i have marked with bold in the code below, try to see if you can find the results with your keyboard(Rightclick on toolbar and use keyboard to find the hotkeys for dutch). i only got for danish and english sorry.The regs dont work in windows 7, trust me i have tried everything mate :=)Maybe ask Mhz if he hasn't already look @ this thread.Has he done something simliar that may be better, i would like to know AutoIt ErrorLine -1:Error: Subscript used with non-Aray variableYou've already done the hard work, you simply need to compile the code; the script works fine Personally, the only change I would make is to change the view to 'Large Icons' (when the taskbar is unlocked).Good job Wazer Thanks, thats why its open so everybody can do they own little personal needs Edited September 5, 2010 by wazer
DonDamm Posted October 18, 2009 Posted October 18, 2009 This could be very handy. I've been fighting with a basic installation of W7 and noticed the Quick Launch Bar seems to disappear every few boots. What a pain! It may have something to do with the automatic alphabetizing and reordering that goes on. Any idea on how to turn that off as well? I ended up numbering each item so the order would stay. A kluge at best.
elppacore Posted February 4, 2010 Posted February 4, 2010 (edited) thank you code;------------------------------------------------------------------; AutoIt Version: 3.3.0.0; Author: Andrew Calcutt, wazer; Last Edited: 09/12/2009; Script Function: Adds Quick Launch Toolbar;------------------------------------------------------------------$answer = MsgBox(4, "Adds Quick Launch Toolbar?"); if MsgBox answer 「NO」back 7If $answer = 7 ThenMsgBox(0, "AutoIt", "yes,Bye!")ExitEndIf;Unlock Taskbar_ToggleTaskbarLock();Create Quicklaunch Toolbar_TaskToolbarWin7("Shell:Quick Launch");Get Quick Launch current postionWhile 1 Sleep(100) $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]") If Not @error Then ExitLoopWEnd$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2);Hide "Quick Launch" toolbar textMouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)Send("{DOWN}{DOWN}{DOWN}{ENTER}");Hide "Quick Launch" toolbar titleMouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)Send("{DOWN}{DOWN}{DOWN}{DOWN}{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$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:MSTaskListWClass; TEXT:Running applications]")MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 105, $TaskBar_CenterHeight, 0);Lock TaskbarMouseClick("right", 0, @DesktopHeight)Send("{UP}{UP}{ENTER}")MsgBox(0, "AutoIt", "Adds Quick Launch Toolbar done!")Func _TaskToolbarWin7($toolbardir) MouseClick("right", 0, @DesktopHeight) Send("{DOWN}{RIGHT}{UP}{ENTER}") WinWaitActive("New Toolbar") ControlSetText("New Toolbar", "", "Edit1", $toolbardir) ControlClick("New Toolbar", "", "Button1")EndFunc;==>_TaskToolbarWin7Func _ToggleTaskbarLock() $value = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove")If $value = 0 Then MouseClick("right", 0, @DesktopHeight) Send("{UP}{UP}{ENTER}") EndIfEndFunc;==>_ToggleTaskbarLockchinese ver;------------------------------------------------------------------; AutoIt Version: 3.3.0.0; Author: Andrew Calcutt, wazer; Last Edited: 09/12/2009; Script Function: Adds Quick Launch Toolbar;------------------------------------------------------------------$answer = MsgBox(4, "自動建立快速啟動工具列", "此程式會建立Windows7的快速啟動後離開,要執行嗎?"); 若在 MsgBox 中選「NO」會傳回 7If $answer = 7 ThenMsgBox(0, "AutoIt", "好的,Bye!")ExitEndIf;Unlock Taskbar_ToggleTaskbarLock();Create Quicklaunch Toolbar_TaskToolbarWin7("Shell:Quick Launch");Get Quick Launch current postionWhile 1 Sleep(100) $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]") If Not @error Then ExitLoopWEnd$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2);Hide "Quick Launch" toolbar textMouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)Send("{DOWN}{DOWN}{DOWN}{ENTER}");Hide "Quick Launch" toolbar titleMouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)Send("{DOWN}{DOWN}{DOWN}{DOWN}{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$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:MSTaskListWClass; TEXT:執行中的應用程式]")MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 105, $TaskBar_CenterHeight, 0);Lock TaskbarMouseClick("right", 0, @DesktopHeight)Send("{UP}{UP}{ENTER}")MsgBox(0, "AutoIt", "快速啟動工具列建立完成!")Func _TaskToolbarWin7($toolbardir) MouseClick("right", 0, @DesktopHeight) Send("{DOWN}{RIGHT}{UP}{ENTER}") WinWaitActive("新增工具列") ControlSetText("新增工具列", "", "Edit1", $toolbardir) ControlClick("新增工具列", "", "Button1")EndFunc;==>_TaskToolbarWin7Func _ToggleTaskbarLock() $value = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove")If $value = 0 Then MouseClick("right", 0, @DesktopHeight) Send("{UP}{UP}{ENTER}") EndIfEndFunc;==>_ToggleTaskbarLock Edited February 4, 2010 by elppacore
bymax Posted April 28, 2010 Posted April 28, 2010 Hi,Do you know how can i set win7 Enable Quick Launch for Turkish Win7.Thank YouBest Regards
TechboyCam Posted May 15, 2010 Posted May 15, 2010 Hi Guys,I'm actually pretty new to this stuff. I've been looking for a logon script to show my Quicklaunch automatically and this seems to be a good one... I'm just curious, what format do I save it in as I don't know much about scripts and I don't know what format it is...Thanks heaps,Cameron.
wazer Posted May 23, 2010 Author Posted May 23, 2010 (edited) This could be very handy. I've been fighting with a basic installation of W7 and noticed the Quick Launch Bar seems to disappear every few boots. What a pain! It may have something to do with the automatic alphabetizing and reordering that goes on. Any idea on how to turn that off as well? I ended up numbering each item so the order would stay. A kluge at best.Sorry i havnt been doing this for some time. I use numbers aswell . thank you codeYour welcome .Hi,Do you know how can i set win7 Enable Quick Launch for Turkish Win7.Thank YouBest RegardsSorry i dont know Turkish, perhaps you know any on the forums that maybe can help you .Hi Guys,I'm actually pretty new to this stuff. I've been looking for a logon script to show my Quicklaunch automatically and this seems to be a good one... I'm just curious, what format do I save it in as I don't know much about scripts and I don't know what format it is...Thanks heaps,Cameron.Its coded with http://www.autoitscript.com/ you will have to read abit on that site to understand this. Edited September 5, 2010 by wazer
bymax Posted June 30, 2010 Posted June 30, 2010 (edited) Turkish for windows but I did not pull to the left to check correctsory speak english bad ; Author: Andrew Calcutt, wazer; Last Edited: 09/12/2009; Script Function: Adds Quick Launch Toolbar;------------------------------------------------------------------;Unlock Taskbar_ToggleTaskbarLock();Create Quicklaunch Toolbar_TaskToolbarWin7("Shell:Quick Launch");Get Quick Launch current postionWhile 1Sleep(100)$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")If Not @error Then ExitLoopWEnd$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2);Hide "Quick Launch" toolbar textMouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)Send("{DOWN}{DOWN}{DOWN}{ENTER}");Hide "Quick Launch" toolbar titleMouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)Send("{DOWN}{DOWN}{DOWN}{DOWN}{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$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:MSTaskListWClass; TEXT:Running applications]")MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 105, $TaskBar_CenterHeight, 0);Lock Taskbar_ToggleTaskbarLock()Func _TaskToolbarWin7($toolbardir)MouseClick("right", 0, @DesktopHeight)Send("{DOWN}{RIGHT}{UP}{ENTER}")WinWaitActive("Yeni Araç Çubuğu")ControlSetText("Yeni Araç Çubuğu", "", "Edit1", $toolbardir)ControlClick("Yeni Araç Çubuğu", "", "Button1")EndFunc ;==>_TaskToolbarWin7Func _ToggleTaskbarLock()MouseClick("right", 0, @DesktopHeight)Send("{UP}{UP}{ENTER}")EndFunc ;==>_ToggleTaskbarLock Edited July 1, 2010 by bymax
wazer Posted September 4, 2010 Author Posted September 4, 2010 (edited) Thread updated ! Edited September 4, 2010 by wazer
myselfidem Posted September 4, 2010 Posted September 4, 2010 (edited) Thanks for this nice script!I see just an little error inside the message box:"THIS WILL ENABLE CLASSIC QUICK LAUNCH ON WINDOWS 7 x84/x64 VERSIONS Regards Edited September 4, 2010 by myselfidem
wazer Posted September 4, 2010 Author Posted September 4, 2010 Thanks for this nice script!I see just an little error inside the message box:"THIS WILL ENABLE CLASSIC QUICK LAUNCH ON WINDOWS 7 x84/x64 VERSIONS RegardsYes thats correct tho i think the most people will live without the 6 instead of 4
myselfidem Posted September 4, 2010 Posted September 4, 2010 (edited) Sure! I will try to make the translation for french "ql_win7_FRENCH_NO_REBOOT.au3"!Regards Edited September 4, 2010 by myselfidem
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