wazer

Quick Launch Classic 7 Tool 1.0.5

201 posts in this topic

THIS WILL ENABLE QUICK LAUNCH CLASSIC LOOK AND FEEL ON WINDOWS 7 VERSIONS

Never 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 stuff


01. + 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!.


/NOPIN
Removes The pinned list on windows 7 taskbar.

/TGL
Makes Taskbar buttons = Never combine

/TSI
Makes Small icons on windows 7 taskbar.

/AUTOTRAY
Disable AUTOTRAY on windows 7 taskbar.

/LBS3
Langbar is closed and will not be visible inside windows 7 taskbar.

/EXPLORER
Will 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 0
03. * Added silent versions for unattended install.

==============================================
Quick Launch Classic 7 version 1.02 change log
================================
01. * Added Reg Entries
02. * Added Small Icons
03. * 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
================================
*+!? Intial



quicklaunchclassicv103.jpg







Downloads:

Version 1.05

MediaFire
http://www.mediafire.com/?b5j1ihnodtkbm28


BETA TEST:

v2.00 RC1.02

http://www.mediafire.com/?cqbjha0kk18b6jf




Old Versions:

Version 1.04

ENGLISH + SOURCE
http://www.multiupload.com/VFVKMOTN7D
DANISH + SOURCE
http://www.multiupload.com/CWZSMKM60B

Version 1.03

ENGLISH + SOURCE
http://www.multiupload.com/YFKXANVJ3X
DANISH + SOURCE
http://www.multiupload.com/ZZ2H5N7TAV

If you wanna translate feel free to it, provide me with links after and ill update the links.

QuickLaunchClassic_1.05.zip

Edited by wazer
1

Share this post


Link to post
Share on other sites
AutoIt Error

Line -1:

Error: Subscript used with non-Aray variable

You'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 :thumbup

0

Share this post


Link to post
Share on other sites

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 by sp00f
0

Share this post


Link to post
Share on other sites
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 Error

Line -1:

Error: Subscript used with non-Aray variable

You'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 :thumbup

Thanks, thats why its open so everybody can do they own little personal needs :)

Edited by wazer
0

Share this post


Link to post
Share on other sites

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.

0

Share this post


Link to post
Share on other sites

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 7
If $answer = 7 Then
MsgBox(0, "AutoIt", "yes,Bye!")
Exit
EndIf

;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("{DOWN}{DOWN}{DOWN}{ENTER}")
;Hide "Quick Launch" toolbar title
MouseClick("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
MouseClick("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;==>_TaskToolbarWin7

Func _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}")
EndIf
EndFunc;==>_ToggleTaskbarLock

chinese 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」會傳回 7
If $answer = 7 Then
MsgBox(0, "AutoIt", "好的,Bye!")
Exit
EndIf

;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("{DOWN}{DOWN}{DOWN}{ENTER}")
;Hide "Quick Launch" toolbar title
MouseClick("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 Taskbar
MouseClick("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;==>_TaskToolbarWin7

Func _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}")
EndIf
EndFunc;==>_ToggleTaskbarLock

Edited by elppacore
0

Share this post


Link to post
Share on other sites

Hi,

Do you know how can i set win7 Enable Quick Launch for Turkish Win7.

Thank You

Best Regards

0

Share this post


Link to post
Share on other sites

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.

0

Share this post


Link to post
Share on other sites

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 code

Your welcome :).

Hi,

Do you know how can i set win7 Enable Quick Launch for Turkish Win7.

Thank You

Best Regards

Sorry 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 by wazer
0

Share this post


Link to post
Share on other sites

Turkish for windows but I did not pull to the left to check correct

sory 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 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("{DOWN}{DOWN}{DOWN}{ENTER}")

;Hide "Quick Launch" toolbar title

MouseClick("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 ;==>_TaskToolbarWin7

Func _ToggleTaskbarLock()

MouseClick("right", 0, @DesktopHeight)

Send("{UP}{UP}{ENTER}")

EndFunc ;==>_ToggleTaskbarLock

Edited by bymax
0

Share this post


Link to post
Share on other sites

Thread updated !

Edited by wazer
0

Share this post


Link to post
Share on other sites

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 by myselfidem
0

Share this post


Link to post
Share on other sites

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

Yes thats correct :) tho i think the most people will live without the 6 instead of 4 :)

0

Share this post


Link to post
Share on other sites

Sure! :rolleyes:

I will try to make the translation for french "ql_win7_FRENCH_NO_REBOOT.au3"!

Regards

Edited by myselfidem
0

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

  • Recently Browsing   0 members

    No registered users viewing this page.