Jump to content

Welcome to MSFN Forum
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. This message will be removed once you have signed in.
Login to Account Create an Account


Photo

Quick Launch Classic 7 Tool 1.0.5


  • Please log in to reply
200 replies to this topic

#26
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
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, 19 January 2011 - 03:39 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).


How to remove advertisement from MSFN

#27
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts
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

Attached File  QL.jpg   62.03KB   6 downloads



#28
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 237 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag
Ill look into this when i get home from vacation coucou :)
if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#29
bymax

bymax
  • Member
  • 6 posts
Please Turkish languages

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

#30
fatlam

fatlam
  • Member
  • 7 posts
Thank you!!

#31
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts
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 d’outils - 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, 24 January 2011 - 05:44 AM.


#32
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 237 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag

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, 18 January 2011 - 07:52 AM.

if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#33
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts

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

Posted Image

#34
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 237 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag
see http://www.msfn.org/...post__p__953218

Edited by wazer, 18 January 2011 - 11:46 AM.

if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#35
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 237 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag
Im adding another things, to improve it to be better. :).


Think ill add NL,SE,NO.

Will soon be up.
if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#36
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts
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, 18 January 2011 - 11:26 AM.


#37
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 237 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag

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, 18 January 2011 - 11:43 AM.

if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#38
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts

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

Posted Image

Posted Image

Edited by coucou, 18 January 2011 - 01:04 PM.


#39
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 237 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag



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

Posted Image

Posted Image



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.


if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#40
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
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, 18 January 2011 - 01:58 PM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#41
wazer

wazer

    You gotta risk it to get the biscuits

  • Member
  • PipPip
  • 237 posts
  • OS:Windows 8.1 x64
  • Country: Country Flag

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 :).
if ( $life( $me ) == $null ) { getLife( $me ) | halt }


Quick Launch Classic 7 Tool

#42
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
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, 18 January 2011 - 05:19 PM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#43
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
@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, 22 January 2011 - 12:37 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#44
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts
@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

Posted Image

Edited by coucou, 19 January 2011 - 04:40 AM.


#45
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
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, 20 January 2011 - 03:51 PM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#46
coucou

coucou

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 837 posts

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, 24 January 2011 - 11:30 AM.


#47
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
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, 21 January 2011 - 03:32 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#48
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
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, 23 January 2011 - 04:48 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#49
myselfidem

myselfidem

    Member

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,559 posts
  • OS:Windows 7 x64
  • Country: Country Flag
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, 23 January 2011 - 03:10 AM.

For Windows 7 OS: SetProductKey.rar (fr-FR/en-US. Integrate keys).

#50
maxXPsoft

maxXPsoft

    MSFN Master

  • Developer
  • 2,881 posts
  • OS:Windows 7 x64
  • Country: Country Flag
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.
Download ++> Windows 7 + 8 Unattended DVD + App Installer + Services Disabler + Load All Button + XML Creator
Jump2Reg - Registry: - Oct 4, 2013 - Version 3.0.4 - 98, ME, NT, 2K, XP, VISTA, Seven, Windows 8+ and 32 or 64 bit

XP Unattended CD/DVD creator - Version 4.1.7
Sample xml + Setupcomplete + Add Right click .wim Windows 7 or Windows 8/8.1




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users



How to remove advertisement from MSFN