[wazer]

maxXPsoft, on 05 September 2010 - 06:07 PM, said:

I know what I'm doing with Quicklaunch http://www.msfn.org/...aunch-tutorial/

Now when I run it the taskbar goes to double height also. Tried from different folders and on desktop. Still double Quicklaunch. Perhaps I have some update you don't(I'm fully updated) or something is different.

EDIT: I think I know whats wrong. I copy from my previous and it already exists with my shortcuts. I run your old and enable it in my Unattended
When you blank screen and it comes back there is already Quicklaunch on left side near Start. Then it run's the clicking part and double's it.

perhaps you need to run some code to see if any shorcuts already exist and if so don't run second part?

Well if you wanna help then glady getting all the help we need to get the quicklaunch back for everybody that wants it. . As i said you cannot have one added to taskbar already, then it will mix up.

As far as i go. I dont know how to do that. So wanna help then help

[maxXPsoft]

something along the lines of

If FileExists("%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\*.lnk") Then we quit or jump to end maybe
not sure where to put it but I'll experiment

Is your Quicklaunch folder empty when you run the script?

both dud ideas. tried both

This post has been edited by maxXPsoft: 06 September 2010 - 06:22 AM

[wazer]

maxXPsoft, on 06 September 2010 - 05:49 AM, said:

something along the lines of

If FileExists("%userprofile%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\*.lnk") Then we quit or jump to end maybe
not sure where to put it but I'll experiment

Is your Quicklaunch folder empty when you run the script?

both dud ideas. tried both

No i dont think we can do it that way. Because theres already 3 *lnk in there from standard. The minimize button, the 3d tabbing shortcut and IE shortcut, will be generated the first time you start IE.

[myselfidem]

Hello!
Thank you very much waser for the layout and the infos!
I've found some help but I can't install the Quick Launch. I will try again!
Regards

This post has been edited by myselfidem: 13 November 2010 - 10:23 AM

[wazer]

myselfidem, on 07 September 2010 - 08:59 AM, said:

Hello!
Thank you very much waser for the layout and the infos!
I've found some help but I can't install the Quick Lauch. I will try again!
Regards

np man :=). Did you download enumshell i attached to my post?

[myselfidem]

Hello wazer!
Yes I've used "enumshell", thanks:

enumshell.txt

Quote

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

This post has been edited by myselfidem: 19 January 2011 - 03:39 AM

[coucou]

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

 QL.jpg (62.03K)
Number of downloads: 5

[wazer]

Ill look into this when i get home from vacation coucou

[bymax]

Please Turkish languages

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

[fatlam]

Thank you!!

[coucou]

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

This post has been edited by coucou: 24 January 2011 - 05:44 AM

[wazer]

coucou, on 18 January 2011 - 06:43 AM, said:

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

This post has been edited by wazer: 18 January 2011 - 07:52 AM

[coucou]

wazer, on 18 January 2011 - 07:21 AM, said:

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

[wazer]

see http://www.msfn.org/...post__p__953218

This post has been edited by wazer: 18 January 2011 - 11:46 AM

[wazer]

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


Think ill add NL,SE,NO.

Will soon be up.

[coucou]

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

This post has been edited by coucou: 18 January 2011 - 11:26 AM

[wazer]

coucou, on 18 January 2011 - 11:25 AM, said:

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.

This post has been edited by wazer: 18 January 2011 - 11:43 AM

[coucou]

wazer, on 18 January 2011 - 11:41 AM, said:

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

This post has been edited by coucou: 18 January 2011 - 01:04 PM

[wazer]

coucou, on 18 January 2011 - 01:00 PM, said:

wazer, on 18 January 2011 - 11:41 AM, said:

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

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.

[myselfidem]

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!

This post has been edited by myselfidem: 18 January 2011 - 01:58 PM