Jump to content

Improving CD DVD switcher

coucou

By coucou,
in AutoIt General Help and Support

 Share

Recommended Posts

coucou Prodigy

coucou

Posted
  • Author
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 above script.

Regards

Posted Image

Edited by coucou
Link to comment
Share on other sites
myselfidem Seeker

myselfidem

Posted
Posted

Thanks coucou!

I've finally found the solurion for Windows 7 French version.

Here is the file 7Quick_Launch_Multilangues.

But it's needed first to disable the Langbar injecting the reg key inside install.wim and for another language adapt the file!!

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

Tested with silent installation and works like a charm!

Enjoy!

Link to comment
Share on other sites
myselfidem Seeker

myselfidem

Posted
Posted (edited)

Hello coucou! :)

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 Classique win7 x86/x64 - FR
#AutoIt3Wrapper_Res_Fileversion=3.3.6.1
#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
;Last Edited: 22/01/2011 - FR
;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 = "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!

Download 7QuickLaunch_Classic-FR.zip

Many thanks wazer for the code! ;)

Edited by myselfidem
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

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