[myselfidem]

MAVERICKS CHOICE, on 24 January 2011 - 01:03 AM, said:

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

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

Thanks!
Have you first close the Langbar (right click on the Langbar and close, not Disable with the option Toolbar) and check if the Taskbar is Locked?

[wazer]

Okay here it is. Finally working!.


This does not care if locked or unlocked. Tested with danish and english version. and ofc theres support for all the oher languages i posted before in this thread.


More to come !.


Note this is VB and autoit cooked together. No ui, restarts explorer the good way. sit back let the app work for about 10-15 seconds and look the beautyness !. Remember if you already had attached quick launch remember to remove it !!!...


After you have removed it lock taskbar, unlock taskbar again. Then it saves the taskbar information and the app will not give 2 quick launch folders. Note this is only for already classic quick launch users. For new users there shudnt be any problems !.

Forgot to mention this version removes langs bar aswell !. There shudnt be any need to remove it manual first ! test it out !

This post has been edited by wazer: 24 January 2011 - 01:26 AM

[myselfidem]

Many thanks wazer, but it's needded to install NET Framework 4 befor!
Regards

Link to download Net Farmework 4 Standalone:

Microsoft .NET Framework 4 (Standalone Installer)

I will install and I give you a report.

This post has been edited by myselfidem: 24 January 2011 - 01:34 AM

[myselfidem]

I've tested now after installing NET Framework 4!

The Langbar isn't closed if this one is on the taskbar.
Unable to install the path for the Quick Launch!

Doesn't work even if I close first the Langbar.
Tested on my Windows 7 Ultimate French version x86.

Error.txt:

script.exe is denied

Quote

See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.UnauthorizedAccessException: Access to the path 'C:\Users\Antoine\Desktop\script.exe' is denied.
at System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
at System.IO.File.Delete(String path)
at QuickLaunchByWazor.Form1.ExitProgram()
at QuickLaunchByWazor.Form1.Form1_Load(Object sender, EventArgs e)
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()
at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
at System.Windows.Forms.Control.CreateControl()
at System.Windows.Forms.Control.WmShowWindow(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmShowWindow(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Loaded Assemblies **************
mscorlib
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 (RTMRel.030319-0100)
CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
QuickLaunchByWazer
Assembly Version: 1.0.0.0
Win32 Version: 1.0.0.0
CodeBase: file:///C:/Users/Antoine/Desktop/QuickLaunchByWazer.exe
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 10.0.0.0
Win32 Version: 10.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System.Windows.Forms
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Runtime.Remoting
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 (RTMRel.030319-0100)
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------

************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.

For example:

<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>

When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.

The program stucks on the window to write the path for the Quick Launch (the path can't be write [Send]).

This post has been edited by myselfidem: 24 January 2011 - 02:22 AM

[coucou]

Hi all,

I'm using Windows 7 English with added LangPacks, one of them is French. Until now, I tested the QuckLaunch script during Windows 7 French unattended installation.

Recently I tested the QuckLaunch script with Windows 7 English unattended installation and was surprised to get the following error

AutoIt Error QuickLaunch AutoIt Error in line xx
 variable used without being declared

It behave like a Single Windows Language.

After inverstigation, I find that although the Windows 7 is MultiLangual integrated, If I install the base Language (English in my case), the registry ValueName ("HKCU\Control Panel\Desktop", "PreferredUILanguages") is simply NOT Exist.

Then, I was looking on how to check that registry ValueName if exist. And if NOT exist, swap to another without making the script heavier.
First, Instead of reading the Registry vlaueData of

RegRead("HKEY_CURRENT_USER\Control Panel\International", "sLanguage") = ENU or FRA...

We may read

RegRead("HKEY_CURRENT_USER\Control Panel\International", "LocaleName") = en,US or fr-FR ...

Therefore, the script improve will be

 $Lang = RegRead("HKCU\Control Panel\Desktop", "PreferredUILanguages")
    If @error = 0 Then ; registry ValueName exist
    Else ; registry ValueName NOT exist
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\International", "LocaleName")
   EndIf

that's it

and we can suppress all the unused lines

; $Lang = RegRead("HKEY_CURRENT_USER\Control Panel\International", "sLanguage") 
   ; Case $Lang = "FRA";French 
   ; Case $Lang = "ENU"; English 
   ;...

Enjoy

This post has been edited by coucou: 24 January 2011 - 03:36 AM

[myselfidem]

Hello coucou!

The values for the reg files aren't the same for French language inside the registry:

[HKCU\Control Panel\International] and [HKCU\Control Panel\Desktop\MuiCached]

Because for French we can have: FRS (French-Switzerland) or others values for French-Belgium; French-French!
Same thing for others languages!

Example, I can install my Windows7 French with UserLocale value with French: "fr-FR" or "fr-CH"

For this reason it's better to read the value with AutoIT inside:

Quote

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached]
"MachinePreferredUILanguages"=hex(7):66,00,72,00,2d,00,46,00,52,00,00,00 (fr-FR) for me

Quote

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\International]
"Locale"="00000407"
"LocaleName"="fr-CH"
"s1159"=""
"s2359"=""
"sCountry"="Suisse"
"sCurrency"="fr."
"sDate"="."
"sDecimal"="."
"sGrouping"="3;0"
"sLanguage"="FRS" (French-Switzerland)

It's not needed to rename the file Quick Launch as Lancement rapide for French Windows 7 locale version!

Works fine for me with the value Quick Launch!
Of course I think it works for you because you have renammed the folder Quick Launch => Lancement rapide and set this one on your DVD!!

I'm guessing that if your installation is with English the value en-US read inside the registry will install Quick Launch with the values for English with 7QuickLaunch-INT.exe!

This post has been edited by myselfidem: 24 January 2011 - 04:08 AM

[coucou]

Hello myselfidem ,

Quote

It's not needed to rename the file Quick Launch as Lancement rapide for French Windows 7 locale version!
Works fine for me with the value Quick Launch!
Of course I think it works for you because you have renammed the folder Quick Launch => Lancement rapide and set this one on your DVD!!

For myself I do NOT use Lancement rapide. All the more so, as i wrote above, I'm using Windows 7 English with added LangPacks.

Regarding HKEY_CURRENT_USER\Control Panel\International", "LocaleName"I forgot that it different country depend.

However, the problem still there if you unattended install a single language or a MultiLangue Windows 7 in the language base, "HKCU\Control Panel\Desktop", "PreferredUILanguages") is NOT there. Test it and you'll see.
Therefore, the improve will be

$Lang = RegRead("HKCU\Control Panel\Desktop", "PreferredUILanguages") 
    If @error = 0 Then ; registry ValueName exist 
    Else ; registry ValueName NOT exist 
$Lang = RegRead("HKCU\Control Panel\Desktop", "MachinePreferredUILanguages") 
   EndIf

Regards

This post has been edited by coucou: 24 January 2011 - 04:47 AM

[myselfidem]

@coucou
You don't rememeber your post, about Lancement rapide?
http://www.msfn.org/...04/page__st__20

7QuickLaunch-INT.exe works like a charm for me, on my desktop or with unattended installation with Windows 7 French locale version ( with fr-CH or fr-FR)

I don't really need to have others languages inside my Windows 7!

If you want you can choose to integrate another language with also UI interface and install also the language inside boot.wim 1 and boot.wim 2

If I've time I will test to add English inside Windows 7 French version to try to give you some help, if I can!

*Edit: It would be interresting to tell me what is writed inside your registry after your installation with Windows 7 Multilangues!

Quote

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached]
"MachinePreferredUILanguages"=?????????????

7QuickLaunch-INT.zip

This post has been edited by myselfidem: 24 January 2011 - 05:48 AM

[coucou]

Quote

@coucou
You don't rememeber your post, about Lancement rapide?
http://www.msfn.org/...04/page__st__20

Just click on my here bellow signature and you'll be directed on a post speaking about Quick Launch and Lancement rapide

Quote

*Edit: It would be interresting to tell me what is writed inside your registry after your installation with Windows 7 Multilangues!

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached]
"MachinePreferredUILanguages"=?????????????

"en-US"

So, I tested an unattended install MultiLangue Windows 7 in the language base (English), "HKCU\Control Panel\Desktop", "PreferredUILanguages") is NOT there. Test it and you'll see. You can test it too.
ANYWAY if you install an unattended single language "HKCU\Control Panel\Desktop", "PreferredUILanguages" will be missed too
Therefore, the improve will be

$Lang = RegRead("HKCU\Control Panel\Desktop", "PreferredUILanguages")  
    If @error = 0 Then ; registry ValueName exist  
    Else ; registry ValueName NOT exist  
$Lang = RegRead("HKCU\Control Panel\Desktop", "MachinePreferredUILanguages")  
   EndIf

So, it's yr script and it up to you to moify it or not, I just gave you the info.

Regards

[myselfidem]

Have you tested 7QuickLaunch-INT.exe?

[coucou]

myselfidem, on 24 January 2011 - 06:01 AM, said:

Have you tested 7QuickLaunch-INT.exe?

Right now YES

English: The Quick Launch bar is created, doesn't move to the left
French: freeze in line 86 WinWaitActive($title)

Again I'm using Windows 7 English with added LangPacks therefore $Lang = RegRead("HKCU\Control Panel\Desktop", "MachinePreferredUILanguages") it's allways en-US. Never change

I modified yr script frpom

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("HKCU\Control Panel\Desktop", "MachinePreferredUILanguages")  
$Lang = RegRead("HKCU\Control Panel\Desktop", "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}"
...

to

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", "PreferredUILanguages")
    If @error = 0 Then ; registry ValueName exist
    Else ; registry ValueName NOT exist
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
   EndIf

$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$toolbartext = "{down}{down}{down}{ENTER}"
$toolbartitle = "{down}{down}{down}{down}{ENTER}"
...

English: The Quick Launch bar is created, doesn't move to the left
French: The Quick Launch bar is created (twice), doesn't move to the left,

Regards

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

[myselfidem]

During an silent install the Langbar needs to be closed! It is your case?
Have you tried on your computer?
Check if the Langbar is closed and let me know!

*Edit: Please download the last file 7QuickLaunch-INT.exe and you will see inside that the reg file is:

Quote

;$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}"

*Edit: I've made a new 7QuickLaunch-INT.exe and set first the value for English language!

Tested for French version and works fine for me:
For testing:
New QL.zip

This post has been edited by myselfidem: 24 January 2011 - 08:50 AM

[coucou]

@myselfidem

I tested yr New QL.zip.
English: The Quick Launch bar is created, doesn't move to the left
French: freeze in line 60 Sleep(100)

Again, Again and Again I'm using Windows 7 English with added LangPacks therefore $Lang = RegRead("HKCU\Control Panel\Desktop", "MachinePreferredUILanguages") it's allways en-US. Never change. It is not MultiLanguage depend, it is base language depend. Therefore you may check 2 registry. "MachinePreferredUILanguages" and "PreferredUILanguages"

I modified yr script from

;$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}"

to

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
    If @error = 0 Then ; registry ValueName exist
    Else ; registry ValueName NOT exist
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
   EndIf
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$toolbartext = "{DOWN}{DOWN}{DOWN}{ENTER}"
$toolbartitle = "{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}"

English: The Quick Launch bar is created, doesn't move to the left
French: The Quick Launch bar is created (one not twice... you're progressing) , doesn't move to the left

Why you do NOT check it yourself?

Regards

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

[myselfidem]

OK coucou!

I've made the changes you ask me!

Here is the new file working for me with French version (tested from my desktop):

For testing:
Quick_Launch.zip

Regards

*Edit: I've also made a new one: QuickLaunch.exe with some changes! Works fine for me (from my Desktop=languages include)

Quote

$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "PreferredUILanguages")
If @error = 0 Then ; registry ValueName exist
Else ; registry ValueName NOT exist
$Lang = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached", "MachinePreferredUILanguages")
EndIf
$text = "[CLASS:ToolbarWindow32; TEXT:Quick Launch]"
$path = "%AppData%\Microsoft\Internet Explorer\Quick Launch\"
$toolbartext = "{DOWN}{DOWN}{DOWN}{ENTER}"
$toolbartitle = "{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}"

Quote

Func _TaskToolbarWin7($path)
MouseClick("right", 0, @DesktopHeight)
Send("{DOWN}{RIGHT}{UP}{ENTER}")
WinActive($title)
sleep(1000)
ControlSetText($title, "", "Edit1", $path)
sleep(1000)
ControlClick($title, "", "Button1")
EndFunc ;==>_TaskToolbarWin7

*Edit 2: Tested with silent install QuickLaunch.exe. Works really fine for me (languages include).

This post has been edited by myselfidem: 24 January 2011 - 12:17 PM

[coucou]

OK myselfidem,

Tested both QuickLaunch.au3 and QuickLaunch_INT.au3
English: The Quick Launch bar is created, doesn't move to the left
French: The Quick Launch bar is created , doesn't move to the left

It certainly not move to the left because my LangBar is set.

Anyway, i still use mine unless I update the registry
Regards

[coucou]

OK myselfidem,

Tested both QuickLaunch.au3 and QuickLaunch_INT.au3
English: The Quick Launch bar is created, doesn't move to the left
French: The Quick Launch bar is created , doesn't move to the left

It certainly not move to the left because my LangBar is set.

Anyway, i still use mine unless I update the registry
Regards

[myselfidem]

coucou, on 24 January 2011 - 12:26 PM, said:

OK myselfidem,

Tested both QuickLaunch.au3 and QuickLaunch_INT.au3
English: The Quick Launch bar is created, doesn't move to the left
French: The Quick Launch bar is created , doesn't move to the left

It certainly not move to the left because my LangBar is set.

Anyway, i still use mine unless I update the registry
Regards

Yes coucou!

It's needed to close the Langbar first!
wazer is looking for a workaround about this problem!

I've made an successfull installation because I've injected the reg keys to close the Langbar first!

Thanks for your support!
Regards

*Edit: You can find help reading my post about how to close the Langbar for silent installation:
http://www.msfn.org/...04/page__st__40

This post has been edited by myselfidem: 24 January 2011 - 12:53 PM

[yngdiego]

I only want a script/program to create the quick launch bar on the left, and to do nothing else. No re-sizing icons, changing toolbar properties, etc. I appreciate the author's work, but I think he tried to do too much in one program without giving us any GUI options to chose what we do or do not want done.

[myselfidem]

coucou, on 24 January 2011 - 12:26 PM, said:

OK myselfidem,

Tested both QuickLaunch.au3 and QuickLaunch_INT.au3
English: The Quick Launch bar is created, doesn't move to the left
French: The Quick Launch bar is created , doesn't move to the left

It certainly not move to the left because my LangBar is set.

Anyway, i still use mine unless I update the registry
Regards

Hello!
Could you try to close first the Langbar on your computer and launch QuickLaunch.au3 and tell us what is the result?
Thanks


After you can Enable your Langbar!
Langbar on Taskbar

This post has been edited by myselfidem: 25 January 2011 - 02:13 AM

[coucou]

Quote

Hello!
Could you try to close first the Langbar on your computer and launch QuickLaunch.au3 and tell us what is the result?
Thanks

Tested works, the Quick Launch bar is created and move to the left

Quote

After you can Enable your Langbar!
Langbar on Taskbar

You can also just point the LangBar and drag it to the toolbar.

Anyway, i still use mine, much lighter (purged from any unused code) and just do the main job (creating a QuickLaunch toolbar without moving it to the left).

Regards

This post has been edited by coucou: 25 January 2011 - 05:13 AM