myselfidem Posted January 24, 2011 Share Posted January 24, 2011 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? Link to comment Share on other sites More sharing options...
wazer Posted January 24, 2011 Author Share Posted January 24, 2011 (edited) 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 ! Edited January 24, 2011 by wazer Link to comment Share on other sites More sharing options...
myselfidem Posted January 24, 2011 Share Posted January 24, 2011 (edited) 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. Edited January 24, 2011 by myselfidem Link to comment Share on other sites More sharing options...
myselfidem Posted January 24, 2011 Share Posted January 24, 2011 (edited) 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 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 thisapplication or computer (machine.config) must have thejitDebugging value set in the system.windows.forms section.The application must also be compiled with debuggingenabled.For example:<configuration> <system.windows.forms jitDebugging="true" /></configuration>When JIT debugging is enabled, any unhandled exceptionwill be sent to the JIT debugger registered on the computerrather 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]). Edited January 24, 2011 by myselfidem Link to comment Share on other sites More sharing options...
coucou Posted January 24, 2011 Share Posted January 24, 2011 (edited) 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 errorAutoIt Error QuickLaunch AutoIt Error in line xx variable used without being declaredIt 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") EndIfthat's itand 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 Edited January 24, 2011 by coucou Link to comment Share on other sites More sharing options...
myselfidem Posted January 24, 2011 Share Posted January 24, 2011 (edited) 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: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 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! Edited January 24, 2011 by myselfidem Link to comment Share on other sites More sharing options...
coucou Posted January 24, 2011 Share Posted January 24, 2011 (edited) Hello myselfidem ,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") EndIfRegards Edited January 24, 2011 by coucou Link to comment Share on other sites More sharing options...
myselfidem Posted January 24, 2011 Share Posted January 24, 2011 (edited) @coucouYou don't rememeber your post, about Lancement rapide?http://www.msfn.org/...04/page__st__207QuickLaunch-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 2If 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! Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached]"MachinePreferredUILanguages"=????????????? 7QuickLaunch-INT.zip Edited January 24, 2011 by myselfidem Link to comment Share on other sites More sharing options...
coucou Posted January 24, 2011 Share Posted January 24, 2011 @coucouYou 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*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 tooTherefore, 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") EndIfSo, it's yr script and it up to you to moify it or not, I just gave you the info.Regards Link to comment Share on other sites More sharing options...
myselfidem Posted January 24, 2011 Share Posted January 24, 2011 Have you tested 7QuickLaunch-INT.exe? Link to comment Share on other sites More sharing options...
coucou Posted January 24, 2011 Share Posted January 24, 2011 (edited) Have you tested 7QuickLaunch-INT.exe?Right now YESEnglish: 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 changeI modified yr script frpomOpt('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}"...toOpt('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 Edited January 24, 2011 by coucou Link to comment Share on other sites More sharing options...
myselfidem Posted January 24, 2011 Share Posted January 24, 2011 (edited) 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:;$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 Edited January 24, 2011 by myselfidem Link to comment Share on other sites More sharing options...
coucou Posted January 24, 2011 Share Posted January 24, 2011 (edited) @myselfidemI 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 Edited January 24, 2011 by coucou Link to comment Share on other sites More sharing options...
myselfidem Posted January 24, 2011 Share Posted January 24, 2011 (edited) 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.zipRegards *Edit: I've also made a new one: QuickLaunch.exe with some changes! Works fine for me (from my Desktop=languages include) $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}"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). Edited January 24, 2011 by myselfidem Link to comment Share on other sites More sharing options...
coucou Posted January 24, 2011 Share Posted January 24, 2011 OK myselfidem,Tested both QuickLaunch.au3 and QuickLaunch_INT.au3English: 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 registryRegards Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now