[wazer]

myselfidem, on 18 January 2011 - 01:45 PM, said:

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 .

[myselfidem]

Finally I've found Quick Launch working for me!

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

Here is my file 7QuickLaunch..au3

Quote

;------------------------------------------------------------------
; 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!
Cheers!

This post has been edited by myselfidem: 18 January 2011 - 05:19 PM

[myselfidem]

@wazer

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

This post has been edited by myselfidem: 22 January 2011 - 12:37 AM

[coucou]

@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

This post has been edited by coucou: 19 January 2011 - 04:40 AM

[myselfidem]

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

Quote

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

Quote

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
I'm looking where I've missing something!!

Regards

This post has been edited by myselfidem: 20 January 2011 - 03:51 PM

[coucou]

myselfidem, on 20 January 2011 - 01:46 AM, said:

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

This post has been edited by coucou: 24 January 2011 - 11:30 AM

[myselfidem]

THX coucou !

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

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

This post has been edited by myselfidem: 21 January 2011 - 03:32 AM

[myselfidem]

Hello wazer!

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

This post has been edited by myselfidem: 23 January 2011 - 04:48 AM

[myselfidem]

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!

This post has been edited by myselfidem: 23 January 2011 - 03:10 AM

[maxXPsoft]

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

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

[myselfidem]

maxXPsoft, on 23 January 2011 - 05:24 AM, said:

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

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

Nice!
Thanks maxXPsoft

I've just made one editing and file is updated:

 ;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]"

Maybe it would be interresting to add this file 7QuickLaunch.exe inside your nice software Se7en_UA - with SP1 Injection

But, of course it's needed more tests for Italian, etc... or others languages!

Regards

[wazer]

myselfidem, on 23 January 2011 - 02:53 AM, said:

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

[code]



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

I know that ?

I made the taskbarpinnedlist disapear after reboot with my script .

You modification does not work if taskbar is unlocked before you run it. You need to lock it first, we will have to implent a taskbar lock check to the script.

[myselfidem]

wazer, on 23 January 2011 - 09:37 AM, said:

I know that ?

I made the taskbarpinnedlist disapear after reboot with my script .

You modification does not work if taskbar is unlocked before you run it. You need to lock it first, we will have to implent a taskbar lock check to the script.

Hello wazer!

Also with mine!
I think it's made with the first value inside the script (Lock Taskbar):

 

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"TaskbarSizeMove"=dword:00000000

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ Advanced", "TaskbarSizeMove", "REG_DWORD", "0")

Lock Taskbar

In fact, I've corrected your mistake!
I've made also ql_win7_FRENCH_NO_REBOOT.au3 without reboot and TaskbarPinnedList disappear!

Have you tested 7QuickLaunch-INT.exe?
Works fine for me.

This post has been edited by myselfidem: 23 January 2011 - 11:05 AM

[wazer]

myselfidem, on 23 January 2011 - 10:30 AM, said:

wazer, on 23 January 2011 - 09:37 AM, said:

I know that ?

I made the taskbarpinnedlist disapear after reboot with my script .

You modification does not work if taskbar is unlocked before you run it. You need to lock it first, we will have to implent a taskbar lock check to the script.

Hello wazer!

Also with mine!
I think it's made with the first value inside the script (Lock Taskbar):

 

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"TaskbarSizeMove"=dword:00000000

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ Advanced", "TaskbarSizeMove", "REG_DWORD", "0")

Lock Taskbar

In fact, I've corrected your mistake!
I've made also ql_win7_FRENCH_NO_REBOOT.au3 without reboot and TaskbarPinnedList disappear!

Have you tested 7QuickLaunch-INT.exe?
Works fine for me.

No what your linking to is for XP, that aint for windows 7.

No the lock taskbar is just a toggle nothing else.

Just because you regwrite the taskbarsizemove, it dosnt magical shows as locked in windows 7 . Therefor for the future we need to implent taskbar lock check. So everybody can run it whenever they are doing unattended or just have a normal os and want old quicklaunch back

Sorry not yet, but will check your file .

Keep up the good activty and i think soon we will have a final version for all pleasures .

This post has been edited by wazer: 23 January 2011 - 12:07 PM

[myselfidem]

The value works also with Windows 7!
The value is set to Lock Taskbar inside the script, even if it's not the case (because a reboot is needed to see the changes for TaskbarPinnedList).
I need to check the file with the Taskbar Unlocked!!
My file works on my desktop and with unattended installation (7QuickLaunch-INT.exe)!

What it's really needed. Add a value to check. I think it's not usefull! But I can try to look for that.
I've spend many time to have the file working fine. Believe me!
The real problem is the Langbar. If the Langbar isn't closed, Quick Launch can't install with my Windows 7 French version!
Is it the case for English version?
Thanks for your support!

*Edit: Tested now on my computer (not silent install)=> If the Taskbar is Unlocked the file doesn't works! The Taskbar need to be Locked first and the file works fine!

New challenge

*Edit 2: Maybe we can use Select and case with AutoIT to check if the Taskbar is set to Lock and lock this one if it's needed?

This post has been edited by myselfidem: 23 January 2011 - 12:52 PM

[MAVERICKS CHOICE]

myselfidem, on 23 January 2011 - 12:15 PM, said:

The value works also with Windows 7!
The value is set to Lock Taskbar inside the script, even if it's not the case (because a reboot is needed to see the changes for TaskbarPinnedList).
I need to check the file with the Taskbar Unlocked!!
My file works on my desktop and with unattended installation (7QuickLaunch-INT.exe)!

What it's really needed. Add a value to check. I think it's not usefull! But I can try to look for that.
I've spend many time to have the file working fine. Believe me!
The real problem is the Langbar. If the Langbar isn't closed, Quick Launch can't install with my Windows 7 French version!
Is it the case for English version?
Thanks for your support!

*Edit: Tested now on my computer (not silent install)=> If the Taskbar is Unlocked the file doesn't works! The Taskbar need to be Locked first and the file works fine!

New challenge

The script appears to work here, only title & text needs to be manually unticked.
Great progress

[myselfidem]

MAVERICKS CHOICE, on 23 January 2011 - 12:51 PM, said:

The script appears to work here, only title & text needs to be manually unticked.
Great progress

Thanks for your report!
Have you given a new name to the file 7QuickLaunch-INT.exe like 7QuickLaunch.exe?
Have you an Windows 7 English version?
Maybe a program is running on background when you try to install the 7Quick Launch?

This post has been edited by myselfidem: 23 January 2011 - 01:06 PM

[wazer]

myselfidem, on 23 January 2011 - 01:00 PM, said:

MAVERICKS CHOICE, on 23 January 2011 - 12:51 PM, said:

The script appears to work here, only title & text needs to be manually unticked.
Great progress

Thanks for your report!
Have you given a new name to the file 7QuickLaunch-INT.exe like 7QuickLaunch.exe?
Have you an Windows 7 English version?
Maybe a program is running on background when you try to install the 7Quick Launch?

as he mention with the title and text you forgot to add it, i already added it.

You left it out?.

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

News is that im working on vb.net that will check if its locked or not. And then apply all changes without the need for reboot at all.

This post has been edited by wazer: 23 January 2011 - 03:52 PM

[myselfidem]

wazer, on 23 January 2011 - 03:50 PM, said:

myselfidem, on 23 January 2011 - 01:00 PM, said:

MAVERICKS CHOICE, on 23 January 2011 - 12:51 PM, said:

The script appears to work here, only title & text needs to be manually unticked.
Great progress

Thanks for your report!
Have you given a new name to the file 7QuickLaunch-INT.exe like 7QuickLaunch.exe?
Have you an Windows 7 English version?
Maybe a program is running on background when you try to install the 7Quick Launch?

as he mention with the title and text you forgot to add it, i already added it.

You left it out?.

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

News is that im working on vb.net that will check if its locked or not. And then apply all changes without the need for reboot at all.

No!

These values are set at first like variables for much languages (same values)!
I keep only Danish because the values aren't the same!
Check my file please!

*Edit: Good news (your working on vb.net)! Thanks.

*Edit 2: Maybe the problem will appear with Danish and it will be necessary to add another variable?

This post has been edited by myselfidem: 23 January 2011 - 05:00 PM

[MAVERICKS CHOICE]

myselfidem, on 23 January 2011 - 01:00 PM, said:

MAVERICKS CHOICE, on 23 January 2011 - 12:51 PM, said:

The script appears to work here, only title & text needs to be manually unticked.
Great progress

Thanks for your report!
Have you given a new name to the file 7QuickLaunch-INT.exe like 7QuickLaunch.exe?
Have you an Windows 7 English version?
Maybe a program is running on background when you try to install the 7Quick Launch?

No file name change, running 64bit eng ver. Nothing special running when started the exe.

Good to see you fellas working together on such a project MS thinks little of.