• Announcements

    • xper

      MSFN Sponsorship and AdBlockers!   07/10/2016

      Dear members, MSFN is made available via subscriptions, donations and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, become a site sponsor and ads will be disabled automatically and by subscribing you get other sponsor benefits.
wazer

Quick Launch Classic 7 Tool 1.0.5

201 posts in this topic

Hello wazer!

Yes I've used "enumshell", thanks:

enumshell.txt

Shell window: HWND = 0x001A0080 class = "Shell_TrayWnd" title = "" process = explorer.exe

class = "TrayNotifyWnd" title = "" HWND = 0x0021025A parent = 0x001A0080

class = "TrayClockWClass" title = "11:31" HWND = 0x002A0254 parent = 0x0021025A

class = "TrayShowDesktopButtonWClass" title = "" HWND = 0x001C0248 parent = 0x0021025A

class = "SysPager" title = "" HWND = 0x00190206 parent = 0x0021025A

class = "ToolbarWindow32" title = "Zone de notification utilisateur promue" HWND = 0x002D01FA parent = 0x00190206

class = "ToolbarWindow32" title = "Zone de notification système promue" HWND = 0x002001E8 parent = 0x0021025A noArea

class = "Button" title = "" HWND = 0x002C01D6 parent = 0x0021025A noArea

class = "ReBarWindow32" title = "" HWND = 0x00220214 parent = 0x001A0080

class = "MSTaskSwWClass" title = "Applications en cours d'exécution" HWND = 0x001C0230 parent = 0x00220214

class = "MSTaskListWClass" title = "Applications en cours d'exécution" HWND = 0x00320220 parent = 0x001C0230

Shell process: explorer.exe

UmTbar: shell = 0x001A0080 tbar = 0x001C0230

I've add the French lines inside the AutoIt script! But the "Quick Launch" appear only the fist time I try the script and Hide text and Hide title don't work (freeze).

If I try a new time the "Quick Launch" doesn't appear, but a window (display the folder: Documents) ask me to choose one folder and the installation fails!

I've just add one more Regwrite:

HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar", "ShowStatus", "REG_DWORD", "3"

Many thanks. Regards

*Edit: The reg add to close the Langbar doesn't work for me!!

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

Hello,

I'm using Win7 with 3 languages English, French and Hebrew.

I tested the quick luanch english version, it works like a charm.

I tested the French myselitem version it hang at

	;Change to your desired language - "New Toolbar" Only!
WinWaitActive("Nouvelle barre d'outils")

(see image bellow)

I modify a second quick luanch english to French and to Hebrew, I got the same error. It allways hang at

WinWaitActive("New Toolbar")

I4ll qppreciqte qny help

Regards

post-11791-027423900 1287675731_thumb.jp

0

Share this post


Link to post
Share on other sites

Ill look into this when i get home from vacation coucou :)

0

Share this post


Link to post
Share on other sites

Please Turkish languages

Change to your desired language - "New Toolbar" Only! eng

Change to your desired language - "Yeni araç çubuğu" Only! turkish

0

Share this post


Link to post
Share on other sites

Hi all,

Finally by a using a part of wazer rewriting the script, I got success enabling the Quick Launch toolbar in MultiLangual Windows English and French.

Here my final Quick Launch tested working

1) You may copy all yr Quick Launch shortcuts to Windows7 DVD

for Windows English to %CDROM%\sources\$OEM$\$Docs\Default User\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch

for Windows French to %CDROM%\sources\$OEM$\$Docs\Default User\AppData\Roaming\Microsoft\Internet Explorer\Lancement rapide

Therefore during the Windows 7 installation they will be copied to C:\Users\(UserName)\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\ or Lancement rapide

2) here the script


;------------------------------------------------------------------
; AutoIt Version: 3.3.0.0
; Author: Andrew Calcutt, wazer
; Last Edited: 09/13/2009
; Script Function: Adds Quick Launch Toolbar
;
;Modified by coucou 18/01/2011
;------------------------------------------------------------------
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\International", "sLanguage")
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
Select
;Case $Lang = "FRA";French
Case $Lang = "fr-FR";French
$title = "Nouvelle barre doutils - Choisir un dossier"
$path = "%AppData%\Microsoft\Internet Explorer\Lancement rapide\"
$text = "[CLASS:ToolbarWindow32; TEXT:Lancement rapide]"
;Case $Lang = "ENU"; English
Case $Lang = "en-US"; English
$title = "New Toolbar - Choose a folder"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
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]", "", $text)
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

As you can see here above, they are twice $Lang as well as twice Case $Lang

In fact, If you're using a Single Windows Language, then you cas use this

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\International", "sLanguage")
Case $Lang = "FRA";French
Case $Lang = "ENU"; English

Otherwise, If you use a MultiLang Windows as myself, you may use

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
Case $Lang = "fr-FR";French
Case $Lang = "en-US"; English

Enjoy

QuickLaunch_EN-FR.zip

Edited by coucou
0

Share this post


Link to post
Share on other sites

Hi all,....

Interresting, i added danish...

;Case $Lang = "DAN"; Danish

Case $Lang = "da-DK"; Danish

$title = "Ny værktøjslinje"

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

$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

Tho it give errors at

WinWaitActive($title) line 53 i think it was.

i manged to correct it, tho your missing the importan thing, adding the quick launch to the left of the screen and make it looks like xp, how come you didnt use that of my code?.

Edited by wazer
0

Share this post


Link to post
Share on other sites

i manged to correct it, tho your missing the importan thing, adding the quick launch to the left of the screen and make it looks like xp, how come you didnt use that of my code?.

Hi wazer,

I didn't missed adding the quick launch to the left of the screen, it my second project hahaha

In fact, I'm looking for the above AND how to disable "Show Text" and "Show title" (see the image bellow) by registry?

Regarding the quick launch to the left of the screen adding may you let me know, where in yr script that process start and end ?

Regards

quicklauch.jpg

0

Share this post


Link to post
Share on other sites

see

Edited by wazer
0

Share this post


Link to post
Share on other sites

Im adding another things, to improve it to be better. :).

Think ill add NL,SE,NO.

Will soon be up.

0

Share this post


Link to post
Share on other sites

Tested doesn't works :(

here the result

English: The Quick Launch bar is created, doesn't move to the left, the toolbar become more width (2 lines), the tollbar icons i had in left side deleted, "Show Text" and "Show title" not disabled

French: freeze in line 75 WinWaitActive($title)

Is there a registry to disable "Show Text" and "Show title"?

Regards

Edited by coucou
0

Share this post


Link to post
Share on other sites

Tested doesn't works :(

here the result

English: The Quick Launch bar is created, doesn't move to the left, the toolbar become more width (2 lines), the tollbar icons i had in left side deleted, "Show Text" and "Show title" not disabled

French: freeze in line 75 WinWaitActive($title)

Is there a registry to disable "Show Text" and "Show title"?

Regards

REMEMBER:

YOu cannot already have attached a quick launch folder when using it. You cannot have the taskbar unlocked when using it.

I just installed all languages on my windows 7.

Swedish,nor,french,english,NL. And tested the tool it works.

I added more languages look in code.

I dont know if theres a reg to remove show titel and text, if you find out let me know.

Check this file now.

Edited by wazer
0

Share this post


Link to post
Share on other sites

REMEMBER:

YOu cannot already have attached a quick launch folder when using it. You cannot have the taskbar unlocked when using it.

Sorry wazer,

No much changing.

English: The Quick Launch bar is created, doesn't move to the left it looks seraching (see image bellow) , "Show Text" and "Show title" are disapeard, Quick Launch Text (should NOT be displayed when '"Show Text" and "Show title"are disabled) see image bellow,

French: freeze in line 75 WinWaitActive($title)

NB:

What do you mean about "YOu cannot already have attached a quick launch folder when using it"

for this test the taskbar was locked,

I think the problem came during the unattended installation. As far I remember the the taskbar is unlocked

quicklaunch3.jpg

quicklaunch2.jpg

Edited by coucou
0

Share this post


Link to post
Share on other sites

REMEMBER:

YOu cannot already have attached a quick launch folder when using it. You cannot have the taskbar unlocked when using it.

Sorry wazer,

No much changing.

English: The Quick Launch bar is created, doesn't move to the left it looks seraching (see image bellow) , "Show Text" and "Show title" are disapeard, Quick Launch Text (should NOT be displayed when '"Show Text" and "Show title"are disabled) see image bellow,

French: freeze in line 75 WinWaitActive($title)

NB:

What do you mean about "YOu cannot already have attached a quick launch folder when using it"

for this test the taskbar was locked,

I think the problem came during the unattended installation. As far I remember the the taskbar is unlocked

quicklaunch3.jpg

quicklaunch2.jpg

ill have to test some more then..

This is a video shows how it should do it. Note its going fast, and removing title + text. + it moves the quicklaunch to the left.

http://www.youtube.com/watch?v=qAA5HD6NMEs

0

Share this post


Link to post
Share on other sites

I also made some tests with Windows 7 French version.

I've an error: MouseClickDrag Line 48

Error:Subscript used with non-Array variable

7QuickLaunch-FR.au3

 
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=wazer
#AutoIt3Wrapper_Res_Description=Quick Launch Classic win7 x86/x64 - FR
#AutoIt3Wrapper_Res_LegalCopyright=wazer
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;------------------------------------------------------------------
; AutoIt Version: 3.3.6.1
; Author: wazer
; Last Edited: 09/13/2010
; QuickLaunch Classic Version 1.04
; Last Edited: 13/09/2010 - EU
; Script Function: Adds Quick Launch Classic Toolbar
;------------------------------------------------------------------

;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\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")

;Déverrouiller la barre des tâches
_ToggleTaskbarLock()
;Création de la barre d'outils "Quicklaunch"
_TaskToolbarWin7("Shell:Quick Launch")
;Obtention de la position de la barre d'outils "Quick Launch"
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)
;Cacher l'affichage du texte pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send("{UP 11}{enter}")
;Cacher l'affichage du titre pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send("{UP 10}{enter}")
;Déplacement de la barre d'outils "Quick Launch"
$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)
;Déplacement de la barre des "Applications en cours d'exécution"
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:MSTaskListWClass; TEXT:Applications en cours d'exécution]")
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 105, $TaskBar_CenterHeight, 0)
;Verrouiller la barre des tâches
_ToggleTaskbarLock()

Func _TaskToolbarWin7($toolbardir)
MouseClick("right", 0, @DesktopHeight)
Send("{UP 8}{RIGHT}{DOWN 4}{ENTER}")
WinActive("Nouvelle barre d'outils - Choisir un dossier")
ControlCommand("Nouvelle barre d'outils", "Annuler", "Button2", "UnCheck", "")
ControlCommand("Nouvelle barre d'outils - Choisir un dossier", "Sélectionner un dossier", "Button1", "Check", "")
Send("{ENTER}")
EndFunc ;==>_TaskToolbarWin7

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

I'm looking for an issue!

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

I also made some tests with Windows 7 French version.

I've an error: MouseClickDrag Line 48

Error:Subscript used with non-Array variable

7QuickLaunch-FR.au3

 
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=wazer
#AutoIt3Wrapper_Res_Description=Quick Launch Classic win7 x86/x64 - FR
#AutoIt3Wrapper_Res_LegalCopyright=wazer
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;------------------------------------------------------------------
; AutoIt Version: 3.3.6.1
; Author: wazer
; Last Edited: 09/13/2010
; QuickLaunch Classic Version 1.04
; Last Edited: 13/09/2010 - EU
; Script Function: Adds Quick Launch Classic Toolbar
;------------------------------------------------------------------

;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\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")

;Déverrouiller la barre des tâches
_ToggleTaskbarLock()
;Création de la barre d'outils "Quicklaunch"
_TaskToolbarWin7("Shell:Quick Launch")
;Obtention de la position de la barre d'outils "Quick Launch"
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)
;Cacher l'affichage du texte pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send("{UP 11}{enter}")
;Cacher l'affichage du titre pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send("{UP 10}{enter}")
;Déplacement de la barre d'outils "Quick Launch"
$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)
;Déplacement de la barre des "Applications en cours d'exécution"
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:MSTaskListWClass; TEXT:Applications en cours d'exécution]")
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 105, $TaskBar_CenterHeight, 0)
;Verrouiller la barre des tâches
_ToggleTaskbarLock()

Func _TaskToolbarWin7($toolbardir)
MouseClick("right", 0, @DesktopHeight)
Send("{UP 8}{RIGHT}{DOWN 4}{ENTER}")
WinActive("Nouvelle barre d'outils - Choisir un dossier")
ControlCommand("Nouvelle barre d'outils", "Annuler", "Button2", "UnCheck", "")
ControlCommand("Nouvelle barre d'outils - Choisir un dossier", "Sélectionner un dossier", "Button1", "Check", "")
Send("{ENTER}")
EndFunc ;==>_TaskToolbarWin7

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

I'm looking for an issue!

please try the lastest version i attached test version with french inluded try that one :).

0

Share this post


Link to post
Share on other sites

Finally I've found Quick Launch working for me!

:thumbup

Many thanks wazer and coucou for your help and your support!

Here is my file 7QuickLaunch..au3

;------------------------------------------------------------------

; AutoIt Version: 3.3.0.0

; Author: wazer

; Last Edited: 18/01/2011

; Script Function: Adds Quick Launch Toolbar windows 7

;------------------------------------------------------------------

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")

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\International", "sLanguage")

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")

Select

;Case $Lang = "FRA";French

Case $Lang = "fr-FR";French

$title = "Nouvelle barre d'outils - Choisir un dossier"

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

$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

$programs = "Applications en cours d'exécution"

$toolbartext = "{down}{down}{down}{ENTER}"

$toolbartitle = "{down}{down}{down}{down}{ENTER}"

;Case $Lang = "NL; Dutch

Case $Lang = "nl-NL"; Dutch

$title = "Nieuwe werkbalk - Selecteer een map"

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

$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

$programs = "[CLASS:MSTaskListWClass; TEXT:Actieve toepassingen]"

$toolbartext = "{down}{down}{down}{ENTER}"

$toolbartitle = "{down}{down}{down}{down}{ENTER}"

;Case $Lang = "ENU"; English

Case $Lang = "en-US"; English

$title = "New Toolbar - Choose a folder"

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

$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

$programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"

$toolbartext = "{down}{down}{down}{ENTER}"

$toolbartitle = "{down}{down}{down}{down}{ENTER}"

;Case $Lang = "DAN"; Danish

Case $Lang = "da-DK"; Danish

$title = "Ny værktøjslinje - vælg en mappe"

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

$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

$programs = "[CLASS:MSTaskListWClass; TEXT:Programmer, der kører]"

$toolbartext = "v{UP}{ENTER}"

$toolbartitle = "v{ENTER}"

;Case $Lang = "SE"; Swedish

Case $Lang = "se-SE"; Swedish

$title = "Nytt verktygsfält - välj en mapp"

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

$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

$programs = "[CLASS:MSTaskListWClass; TEXT:Program som körs]"

$toolbartext = "{down}{down}{down}{ENTER}"

$toolbartitle = "{down}{down}{down}{down}{ENTER}"

;Case $Lang = "NO"; Norwegian

Case $Lang = "nb-NO"; Norwegian

$title = "Ny verktøylinje - velg en mappe"

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

$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

$programs = "[CLASS:MSTaskListWClass; TEXT:Kjører programmer]"

$toolbartext = "{down}{down}{down}{ENTER}"

$toolbartitle = "{down}{down}{down}{down}{ENTER}"

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]", "", $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]", "", "[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]", "", $programs)

MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)

;Lock Taskbar

_ToggleTaskbarLock()

Func _TaskToolbarWin7($toolbardir)

MouseClick("right", 0, @DesktopHeight)

Send("{UP 8}{RIGHT}{DOWN 4}{ENTER}")

WinActive($title)

sleep(1000)

sleep(1000)

ControlCommand($title, "", "Button1", "Check", "")

ControlClick($title, "", "Button1")

Send("{ENTER}")

EndFunc ;==>_TaskToolbarWin7

Func _ToggleTaskbarLock()

MouseClick("right", 0, @DesktopHeight)

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

EndFunc ;==>_ToggleTaskbarLock

Like you can see I've made some changes, but works really fine for me! :rolleyes:

Cheers!

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

@wazer :rolleyes:

The process is working fine, but at first we need to disable the LangBar (Close), otherwise that doesn't works!

I've tried to add a reg file inside the script to desable first the Langbar if needed but whithout success!

Just as an example!

Here is the file if someone want try it:

7Quick_Launch_Multilangues (English, French, Dutch, Swedish, Danish, Norvegian)

After, I can delete the file when you have made the final version!

Many thanks!

*Edit: Now 7Quick Launch works for FRENCH LANGUAGE

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

@myselfidem

I tested yr script and here the result

English: works

French: glue at line 111 (see image)

I noticed that the next case is always a same. Therefore you do not need it.

$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

In fact yo'll need it if the text is different as in my above script

  Case $Lang = "fr-FR";French
$text = "[CLASS:ToolbarWindow32; TEXT:Lancement rapide]"

Case $Lang = "en-US"; English
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

Then

    $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)

OItherwise if the case is allways thesame, it could be deleted for all languages

$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

Then

    $QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; TEXT:Quick Launch]")

Now in both case yr script will freeze/glue or the process never close. Because the condition for yr script to works is "to disable the LangBar (Close)".

The normal conditions in an Unattended install are taskbar unlocked and LangBar enabled.

For those reasons, unless the probem it solved, I'll still use my HERE above script.

Regards

qlint.jpg

Edited by coucou
0

Share this post


Link to post
Share on other sites

Hello coucou

To disable the Langbar we can use this reg file:

First I've also read help here (important step: #6 = Delete "Desktop.ini")

Quick Launch Tutorial

I've injected the reg file inside my image install.wim

Windows Registry Editor Version 5.00

; Disable the Langbar toolbar

; Désactiver la Barre des langues

[HKEY_LOCAL_MACHINE\WIM_Default\Software\Microsoft\CTF\LangBar]

"ExtraIconsOnMinimized"=dword:00000000

"ShowStatus"=dword:00000003

[HKEY_LOCAL_MACHINE\WIM_Default\Software\Microsoft\CTF\MSUTB]

"ShowDeskBand"=dword:00000000

[HKEY_LOCAL_MACHINE\WIM_Default\Software\Microsoft\Windows\CurrentVersion\Run]

"ctfmon.exe"=-

And I've also add this reg file inside "Tweaks.reg" (But needs a "reboot")

Windows Registry Editor Version 5.00

; Disable Langbar toolbar

; Désactiver la Barre des langues

[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"=-

I've tried your file "Quick Launch EN-FR", but doesn't works for me!

When I use my 7QuickLaunch on my computer works like a charm !

But when I use with my silent installation - the langbar toolbar is really closed - but a Toolbar "Documents" appears... and the installation stucks on "Documents" and the installation fails :wacko::blink:

I'm looking where I've missing something!!

Regards

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

Hello coucou

I've tried your file "Quick Launch EN-FR", but doesn't works for me!

When I use my 7QuickLaunch on my computer works like a charm !

But when I use with my silent installation - the langbar toolbar is really closed - but a Toolbar "Documents" appears... and the installation stucks on "Documents" and the installation fails :wacko::blink:

I'm looking where I've missing something!!

Regards

Hello myselfidem,

I noticed in yr post as well as in your file that the bellow 2 variables are a llways a same (Quick Launch) for all languages

$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\".
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

On the other hand, in my here above post and file , thes 2 variables are specific for each language.

French

   $path = "%AppData%\Microsoft\Internet Explorer\Lancement rapide\"
$text = "[CLASS:ToolbarWindow32; TEXT:Lancement rapide]"

English

   $path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"

Moreover, pay attenntion of the recommandation in my here above post and file

1) You may copy all yr Quick Launch shortcuts to Windows7 DVD

for Windows
English
to %CDROM%\sources\$OEM$\$Docs\Default User\AppData\Roaming\Microsoft\Internet Explorer\
Quick Launch

for Windows
French
to %CDROM%\sources\$OEM$\$Docs\Default User\AppData\Roaming\Microsoft\Internet Explorer\
Lancement rapide

Therefore during the Windows 7 installation they will be copied to C:\Users\(UserName)\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch or \Lancement rapide

So, I f yr $path and $text were "Quick Launch" and you used my Lancement rapide it can't be successful.

Here bellow the files (purged from any unused code), where

QuickLaunch_EN-FR_(QL).au3 file is $path and $text are "Quick Launch"

QuickLaunch_EN-FR_(QL-INT).au3 file is $path and $text are specific for each language.

QuickLaunch_EN-FR(QL+QL-INT).zip

Regards

Edited by coucou
0

Share this post


Link to post
Share on other sites

THX coucou ! :rolleyes:

Now I've found the solution and works very fine! :thumbup

But it's needed to disable the LangBar before, and I see I must integrate the reg file inside install.wim.

Here are the files if you want try = 7Quick_Launch_Multilangues:

http://www.mediafire.../?kns27djwvkrj2

However the file is working with FRENCH VERSION and for others languages, it's needed to adapt the file like my example!

I don't know how to do without add personnal value manually!

Many thanks wazer!

 

;---------------------------------------------------------------------------
; AutoIt Version: 3.3.6.1
; Author: wazer
; Last Edited: 20/01/2011
; Script Function: Ajouter la barre des tâches "Quick Launch" pour Windows 7
;---------------------------------------------------------------------------
Opt('TrayIconDebug', 1)
sleep(10)

; Adjonction et modifications des entrées du registre.
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\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\International", "sLanguage")
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
$title = "Nouvelle barre d’outils - Choisir un dossier"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "Applications en cours d’exécution"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

Select
; Case $Lang = "FRA";French
Case $Lang = "fr-FR";French
$title = "Nouvelle barre d’outils - Choisir un dossier"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "Applications en cours d’exécution"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

; Case $Lang = "NL; Dutch
Case $Lang = "nl-NL"; Dutch
$title = "Nieuwe werkbalk - Selecteer een map"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Actieve toepassingen]"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

; Case $Lang = "ENU"; English
Case $Lang = "en-US"; English
$title = "New Toolbar - Choose a folder"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

; Case $Lang = "DAN"; Danish
Case $Lang = "da-DK"; Danish
$title = "Ny værktøjslinje - vælg en mappe"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Programmer, der kører]"
$toolbartext = "v{UP}{ENTER}"
$toolbartitle = "v{ENTER}"

; Case $Lang = "SE"; Swedish
Case $Lang = "se-SE"; Swedish
$title = "Nytt verktygsfält - välj en mapp"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Program som körs]"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

; Case $Lang = "NO"; Norwegian
Case $Lang = "nb-NO"; Norwegian
$title = "Ny verktøylinje - velg en mappe"
$path = "%AppData%\Roaming\Microsoft\Internet Explorer\Quick Launch"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Kjører programmer]"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"
EndSelect

; Déverrouiller la barre des tâches
_ToggleTaskbarLock()
; Création de la barre des tâches "Quick Launch"
_TaskToolbarWin7("Shell:Quick Launch")

; Obtention de l'emplacement de la barre des tâches "Quick Launch"
While 1
Sleep(100)
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
If Not @error Then ExitLoop
WEnd
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
; Cacher l'affichage du texte pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartext)
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
; Cacher l'affichage du titre pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartitle)
; Déplacement de la barre des tâches "Quick Launch"
$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)
; Déplacement de la barre des "Applications en cours d'exécution"
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $programs)
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)

; Verrouiller la barre des tâches
_ToggleTaskbarLock()


Func _TaskToolbarWin7($toolbardir)
MouseClick("right", 0, @DesktopHeight)
Send("{UP 8}{RIGHT}{DOWN 4}{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


Enjoy!

*Edit: If you need help to integrate reg files inside your image install.wim, you can read the French guide:

Editer le registre dans une image WIM

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

Hello wazer! :rolleyes:

Quick Launch classic for Windows 7 French version working fine for me.

I can launch the file on my computer or with unattended installation successfuly!

7QuickLaunch-FR.au3

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=wazer
#AutoIt3Wrapper_Res_Description=Quick Launch Classic win7 x86/x64 - FR
#AutoIt3Wrapper_Res_LegalCopyright=wazer
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;---------------------------------------------------------------------
; AutoIt Version: 3.3.6.1
; Author: wazer
; Quick Launch version classique pour Windows 7
; Language:1036 - French
; Script Function: Ajouter la barre d'outils "Quick Launch"
;---------------------------------------------------------------------

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

; Modifications des entrées du registre.
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")

$title = "Nouvelle barre d'outils - Choisir un dossier"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$programs = "[CLASS:MSTaskListWClass; TEXT:Applications en cours d'exécution]"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"

; Déverrouiller la barre des tâches
_ToggleTaskbarLock()
; Création de la barre d'outils "Quick Launch"
_TaskToolbarWin7("Shell:Quick Launch")
; Détermination de l'emplacement de la barre d'outils "Quick Launch"
While 1
Sleep(100)
$QUICKLAUNCH = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $text)
If Not @error Then ExitLoop
WEnd
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
; Cacher l'affichage du texte pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartext)
$TaskBar_CenterHeight = @DesktopHeight - ($QUICKLAUNCH[3] / 2)
; Cacher l'affichage du titre pour "Quick Launch"
MouseClick("right", $QUICKLAUNCH[0] - 5, $TaskBar_CenterHeight, 1, 0)
Send($toolbartitle)
; Déplacement de la barre d'outils "Quick Launch"
$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)
; Déplacement des "Applications en cours d'exécution"
$CURRENTAPPS = ControlGetPos("[CLASS:Shell_TrayWnd]", "", $programs)
MouseClickDrag("left", $CURRENTAPPS[0] - 5, $TaskBar_CenterHeight, $TRAY[0] + 120, $TaskBar_CenterHeight, 0)

; Verrouiller la barre des tâches
_ToggleTaskbarLock()

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

Thanks coucou for your support!

Many thanks for the code!

Download 7QuickLaunch_Classic-FR.zip

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

Hi all!

I've tested a new file for 7QuickLaunch-INT!

Works really fine with French language, but it's needed to test for others languages if it's OK!

Include: en-US;fr-FR;nl-NL;da-DK;se-SE;nb-NO

The TaskbarPinnedList will disappear after the reboot!

7QuickLaunch-INT.au3

 

;------------------------------------------------------------------
;AutoIt Version: 3.3.6.1
;Author: Andrew Calcutt, wazer
;Last Edited: 23/01/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\MuiCached", "MachinePreferredUILanguages")
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
$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 = 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 = English
Case $Lang = "en-US"
$title = "New Toolbar - Choose a folder"
$programs = "[CLASS:MSTaskListWClass; TEXT:Running applications]"
;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()
;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 _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


Downlaod for testing:

7QuickLaunch-INT

Thanks to report if it's works for others languages!

Edited by myselfidem
0

Share this post


Link to post
Share on other sites

7QuickLaunch-INT Works fine for me myselfidem en-US :thumbup

in fact I run a 2nd script to pin something else right after this and no problems.

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.