Jump to content

Quick Launch Classic 7 Tool 1.0.5

wazer

By wazer
in Windows 7

 Share

Recommended Posts

coucou

coucou

Posted
Posted

OK myselfidem,

Tested both QuickLaunch.au3 and QuickLaunch_INT.au3

English: The Quick Launch bar is created, doesn't move to the left

French: The Quick Launch bar is created , doesn't move to the left

It certainly not move to the left because my LangBar is set.

Anyway, i still use mine unless I update the registry

Regards

Link to comment
Share on other sites

myselfidem

myselfidem

Posted
Posted (edited)

OK myselfidem,

Tested both QuickLaunch.au3 and QuickLaunch_INT.au3

English: The Quick Launch bar is created, doesn't move to the left

French: The Quick Launch bar is created , doesn't move to the left

It certainly not move to the left because my LangBar is set.

Anyway, i still use mine unless I update the registry

Regards

Yes coucou! :rolleyes:

It's needed to close the Langbar first!

wazer is looking for a workaround about this problem!

I've made an successfull installation because I've injected the reg keys to close the Langbar first!

Thanks for your support! ;)

Regards

*Edit: You can find help reading my post about how to close the Langbar for silent installation:

http://www.msfn.org/...04/page__st__40

Edited by myselfidem
Link to comment
Share on other sites
yngdiego

yngdiego

Posted
Posted

I only want a script/program to create the quick launch bar on the left, and to do nothing else. No re-sizing icons, changing toolbar properties, etc. I appreciate the author's work, but I think he tried to do too much in one program without giving us any GUI options to chose what we do or do not want done.

Link to comment
Share on other sites
myselfidem

myselfidem

Posted
Posted (edited)

OK myselfidem,

Tested both QuickLaunch.au3 and QuickLaunch_INT.au3

English: The Quick Launch bar is created, doesn't move to the left

French: The Quick Launch bar is created , doesn't move to the left

It certainly not move to the left because my LangBar is set.

Anyway, i still use mine unless I update the registry

Regards

Hello!

Could you try to close first the Langbar on your computer and launch QuickLaunch.au3 and tell us what is the result?

Thanks

After you can Enable your Langbar!

Langbar on Taskbar

Edited by myselfidem
Link to comment
Share on other sites
coucou

coucou

Posted
Posted (edited)
Hello!

Could you try to close first the Langbar on your computer and launch QuickLaunch.au3 and tell us what is the result?

Thanks

Tested works, the Quick Launch bar is created and move to the left
After you can Enable your Langbar!

Langbar on Taskbar

You can also just point the LangBar and drag it to the toolbar.

Anyway, i still use mine, much lighter (purged from any unused code) and just do the main job (creating a QuickLaunch toolbar without moving it to the left).

Regards

Edited by coucou
Link to comment
Share on other sites
myselfidem

myselfidem

Posted
Posted (edited)
Hello!

Could you try to close first the Langbar on your computer and launch QuickLaunch.au3 and tell us what is the result?

Thanks

Tested works, the Quick Launch bar is created and move to the left
After you can Enable your Langbar!

Langbar on Taskbar

You can also just point the LangBar and drag it to the toolbar.

Anyway, i still use mine, much lighter (purged from any unused code) and just do the main job (creating a QuickLaunch toolbar without moving it to the left).

Regards

Thanks coucou! :rolleyes:

The way is to add many languages.

Of course if I use only mine with French language only; the file is much lighter!

I'm looking how to close the Langbar first with AutoIt 3.3.6.1!

Cheers

Edited by myselfidem
Link to comment
Share on other sites
coucou

coucou

Posted
Posted

The way is to add many languages.

Of course if I use only mine with French language only; the file is much lighter!

Cheers

mine too is multi language, here is bellow... As i wrote above, just the essential. 

Opt('TrayIconDebug', 1)
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")

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
    If @error = 0 Then ; registry ValueName exist
    Else ; registry ValueName NOT exist
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
   EndIf

$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"

Select
   Case $Lang = "fr-FR";French
         $title = "Nouvelle barre d’outils - Choisir un dossier"
   Case $Lang = "en-US"; English
         $title = "New Toolbar - Choose a folder"
EndSelect

;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

Func _TaskToolbarWin7($toolbardir)
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{ENTER}")
    WinWaitActive($title)
sleep(1000)
    ControlSetText($title, "", "Edit1", $path)
sleep(1000)
    ControlClick($title, "", "Button1")
EndFunc   ;==>_TaskToolbarWin7

Func _ToggleTaskbarLock()
    MouseClick("right", 0, @DesktopHeight)
    Send("{UP}{UP}{ENTER}")
EndFunc   ;==>_ToggleTaskbarLock

Regards

Link to comment
Share on other sites
myselfidem

myselfidem

Posted
Posted (edited)

@wazer!

I've found a workaround to disable the Langbar and it's needed to reboot to see the Langbar again!

Tested and works fine for me:

Download for testing => QuickLaunchLangbar.au3

QuickLaunch.zip

 

;----------------------------------------------
;AutoIt Version: 3.3.6.1
;Author: Andrew Calcutt, wazer
;Last Edited: 01/25/2011
;Script Function: Adds Quick Launch Toolbar
;----------------------------------------------

Opt('TrayIconDebug', 1)
sleep(10)

;Adding Reg Entries.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "0")
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\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2", "Settings", "REG_BINARY", "28000000ffffffff02000000030000003e0000004e000000feffffffce030000920600001c040000")

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
    If @error = 0 Then ; registry ValueName exist
    Else ; registry ValueName NOT exist
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
   EndIf
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$toolbartext = "{DOWN}{DOWN}{DOWN}{ENTER}"
$toolbartitle = "{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}"

Select
   ;Case $Lang = English
   Case $Lang = "en-US"
   $title = "New Toolbar - Choose a folder"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
   ;Case $Lang = French
   Case $Lang = "fr-FR"
   $title = "Nouvelle barre d'outils - Choisir un dossier"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d'exécution]"
   ;Case $Lang = Dutch
   Case $Lang = "nl-NL"
   $title = "Nieuwe werkbalk - Selecteer een map"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Actieve toepassingen]"
   ;Case $Lang = Danish
   Case $Lang = "da-DK"
   $title = "Ny værktøjslinje - vælg en mappe"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Programmer, der kører]"
   $toolbartext = "v{UP}{ENTER}"
   $toolbartitle = "v{ENTER}"
   ;Case $Lang = Swedish
   Case $Lang = "se-SE"
   $title = "Nytt verktygsfält - välj en mapp"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Program som körs]"
   ;Case $Lang = Norwegian
   Case $Lang = "nb-NO"
   $title = "Ny verktøylinje - velg en mappe"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Kjører programmer]"
EndSelect

;Unlock Taskbar
_ToggleTaskbarLock()
;Disable Langbar
_DisableLangbar()
;Create Quicklaunch Toolbar
_TaskToolbarWin7("Shell:Quick Launch")
;Get Quick Launch current postion
While 1
    Sleep(100)
    $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
    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($toolbartext)
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
;Hide "Quick Launch" toolbar title
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartitle)
;Move "Quick Launch" toolbar
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
$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]", "", $programs)
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)

Func _DisableLangbar()
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{UP}{ENTER}")
EndFunc   ;==>_DisableLangbar

;Lock Taskbar
_ToggleTaskbarLock()

Func _TaskToolbarWin7($path)
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{ENTER}")
    WinActive($title)
sleep(1000)
    ControlSetText($title, "", "Edit1", $path)
sleep(1000)
    ControlClick($title, "", "Button1")
EndFunc   ;==>_TaskToolbarWin7

Func _ToggleTaskbarLock()
    MouseClick("right", 0, @DesktopHeight)
    Send("{UP}{UP}{ENTER}")
EndFunc   ;==>_ToggleTaskbarLock

;Adding Reg Entries to Add Langbar to next reboot.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ExtraIconsOnMinimized", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "4")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "Label", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\MSUTB", "ShowDeskBand", "REG_DWORD", "1")


@coucou!

You can try the new QuickLaunchLangbar.exe! (Keep only the values you need for you to make it lighter)!

No need to close the Langbar, the QuickLaunch will be installed on the left and after the reboot you will see your same Langbar customized on the Taskbar!

Many thanks to report the results!

Cheers

*Edit: QuickLaunchLangbar.au3 replaced by QuickLaunchNew.au3

Edited by myselfidem
Link to comment
Share on other sites
coucou

coucou

Posted
Posted

@coucou!

You can try the new QuickLaunchLangbar.exe! (Keep only the values you need for you to make it lighter)!

No need to close the Langbar, the QuickLaunch will be installed on the left and after the reboot you will see your same Langbar customized on the Taskbar!

Many thanks to report the results!

Cheers

Tested both QuickLaunch_INT.au3 and QuickLaunch.au3 files

for both languages English and French : The Quick Launch bar is created, doesn't move to the left even after the Reboot

Bon courage

Link to comment
Share on other sites
myselfidem

myselfidem

Posted
Posted (edited)

Tested both QuickLaunch_INT.au3 and QuickLaunch.au3 files

for both languages English and French : The Quick Launch bar is created, doesn't move to the left even after the Reboot

Bon courage

I've uploaded QuickLaunchLangbar.au3 inside the folder Quick Launch. You don't see this one?

Have you tried QuickLaunchLangbar.au3?

*Edit: Download for testing: Quick Launch

*Edit 2: In fact you will see the Langbar at the top of your Desktop and after the reboot the Langbar must be on the Taskbar or you can reduce from the Desktop without rebooting.

*Edit 3: QuickLaunchLangbar.au3 replaced by QuickLaunchNew.au3

Edited by myselfidem
Link to comment
Share on other sites
myselfidem

myselfidem

Posted
Posted (edited)

Hello! :rolleyes:

I've made a new QuickLaunchNew.au3 (include many languages) and tested with an unattended install successfuly!

I've just made some little changes (little lighter!):

Works really fine for me!

No need to close the Langbar first with a reg file (or injecting inside install.wim) during the silent installation and the Langbar is keeped with your settings!

You will see the Langbar on the Taskbar after the reboot.

Download for testing: QuickLaunchNew

If you launch the file QuickLaunchNew.au3 (or others AutoIT files .au3) on your Desktop, take care to do that on an empty aera!

Because if on the background (behind the file .au3, right click contextmenu) there is another file and the mouse arrow is on it, you may have errors, using AutoIT => Run the script!

Don't forget to close previous QuickLanch before, if you make the test on your computer (Langbar need to be on the Taskbar with this script!).

Cheers

Edited by myselfidem
Link to comment
Share on other sites
myselfidem

myselfidem

Posted
Posted (edited)

I only want a script/program to create the quick launch bar on the left, and to do nothing else. No re-sizing icons, changing toolbar properties, etc. I appreciate the author's work, but I think he tried to do too much in one program without giving us any GUI options to chose what we do or do not want done.

Hello!

You can try this script to keep the Langbar and your customized Taskbar; or use mine QuickLaunchNew.exe.

The Langbar needs to be on the Taskbar with this script.

You need first to download AutoIt 3.3.6.1 and intall the program:

AUTOIT

If the script works for you, you can compile this one to make an exe file!

If you have only English or another language just set the language you need!

7QuickLaunch.au3

 
;----------------------------------------------
;AutoIt Version: 3.3.6.1
;Author: Andrew Calcutt, wazer
;Last Edited: 01/25/2011
;Script Function: Adds Quick Launch Toolbar
;----------------------------------------------
Opt('TrayIconDebug', 1)
sleep(10)

;Adding Reg Entries.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGlomLevel", "REG_DWORD", "2")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "TaskbarNoPinnedList", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2", "Settings", "REG_BINARY", "28000000ffffffff02000000030000003e0000004e000000feffffffce030000920600001c040000")

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
    If @error = 0 Then ; registry ValueName exist
    Else ; registry ValueName NOT exist
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
   EndIf
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$toolbartext = "{DOWN}{DOWN}{DOWN}{ENTER}"
$toolbartitle = "{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}"

Select
   ;Case $Lang = English
   Case $Lang = "en-US"
   $title = "New Toolbar - Choose a folder"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
   ;Case $Lang = French
   Case $Lang = "fr-FR"
   $title = "Nouvelle barre d'outils - Choisir un dossier"
   $programs = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d'exécution]"
EndSelect

;Unlock Taskbar
_ToggleTaskbarLock()
;Disable Langbar to allows installing Quick Launch
_DisableLangbar()
;Create Quicklaunch Toolbar
_TaskToolbarWin7("Shell:Quick Launch")
;Get Quick Launch current postion
While 1
    Sleep(100)
    $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
    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($toolbartext)
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
;Hide "Quick Launch" toolbar title
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartitle)
;Move "Quick Launch" toolbar
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
$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]", "", $programs)
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)

;Lock Taskbar
_ToggleTaskbarLock()

Func _DisableLangbar()
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{UP}{ENTER}")
EndFunc   ;==>_DisableLangbar

Func _TaskToolbarWin7($toolbardir)
    MouseClick("right", 0, @DesktopHeight)
    Send("{DOWN}{RIGHT}{UP}{ENTER}")
    WinActive($title)
sleep(1000)
    ControlSetText($title, "", "Edit1", $path)
sleep(1000)
    ControlClick($title, "", "Button1")
EndFunc   ;==>_TaskToolbarWin7

Func _ToggleTaskbarLock()
    MouseClick("right", 0, @DesktopHeight)
    Send("{UP}{UP}{ENTER}")
EndFunc   ;==>_ToggleTaskbarLock

;Adding Reg Entrie to Add Langbar to next reboot.
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "4")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\CTF\MSUTB", "ShowDeskBand", "REG_DWORD", "1")


If you do not want to reboot, just reduce at the top of your Desktop the Langbar and you will see this one on the Taskbar!

I hope that can help !

Works really fine for me (French language and much languages added inside the script).

Thanks to give a report.

Cheers

*Edit: How to compile a script .au3 to exe file

Edited by myselfidem
Link to comment
Share on other sites
wazer

wazer

Posted
  • Author
Posted

ill look into the issues when i get home, in the mean while can one of you provide the correct streng for removing languagebar via reg? the hotkey method is not an option i think, to much hassle,

The script.exe denied thing you have myselfidem, mayb it needs a manifest to get acces, ill look into that.

Another thing i just saw one guy wrote that he didnt want to have small icons and such, well ill say bad luck to him for now this is the way it is!!.

If i get the time, ill look into making a gui and then make some silent switches for.. No title - no txt - small/big icons. move to the left and so on.

Tho if any will kindly help then and know how to code in VB, ill provide the source code to vb aswell.

You said it needed .net 4 when installing on fresh installation?, Thats odd, i didnt have that problem when i tryed unattended install. I dont install net frame 4 under unattended.

As said if any coders looking and wanna help, leave a message her, coucou and myselfidem, without you 2 guys ill never looked into the problem this tool had. I hope you continue to help and support with this tool so we can manage to get a proper version out that satishfieds all people that wanna use this tool.

until im home have a good luck ;)

Link to comment
Share on other sites
myselfidem

myselfidem

Posted
Posted

ill look into the issues when i get home, in the mean while can one of you provide the correct streng for removing languagebar via reg? the hotkey method is not an option i think, to much hassle,

until im home have a good luck ;)

Hello wazer! :rolleyes:

Reg key to close the Langbar:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar]

"ExtraIconsOnMinimized"=dword:00000000

"ShowStatus"=dword:00000003

[HKEY_CURRENT_USER\Software\Microsoft\CTF\MSUTB]

"ShowDeskBand"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]

"ctfmon.exe"=-

For me the QuickLaunch like I've made works fine!

Many thanks for the code.

Cheers

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...