Jump to content

Quick Launch Classic 7 Tool 1.0.5

wazer

By wazer
in Windows 7

 Share

Recommended Posts

coucou

coucou

Posted
Posted (edited)

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

wazer

wazer

Posted
  • Author
Posted (edited)

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
coucou

coucou

Posted
Posted

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

coucou

coucou

Posted
Posted (edited)

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
wazer

wazer

Posted
  • Author
Posted (edited)

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
coucou

coucou

Posted
Posted (edited)

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
wazer

wazer

Posted
  • Author
Posted

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

myselfidem

myselfidem

Posted
Posted (edited)

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
wazer

wazer

Posted
  • Author
Posted

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

myselfidem

Posted
Posted (edited)

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
myselfidem

myselfidem

Posted
Posted (edited)

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

coucou

Posted
Posted (edited)

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

myselfidem

Posted
Posted (edited)

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

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