Jump to content

Quick Launch Classic 7 Tool 1.0.5


wazer

Recommended Posts

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


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 by wazer
Link to comment
Share on other sites

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 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]).

Edited by myselfidem
Link to comment
Share on other sites

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

Edited by coucou
Link to comment
Share on other sites

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 by myselfidem
Link to comment
Share on other sites

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")
EndIf

Regards

Edited by coucou
Link to comment
Share on other sites

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

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Desktop\MuiCached]

"MachinePreferredUILanguages"=?????????????

7QuickLaunch-INT.zip

Edited by myselfidem
Link to comment
Share on other sites

@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

*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

Link to comment
Share on other sites

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

Edited by coucou
Link to comment
Share on other sites

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 by myselfidem
Link to comment
Share on other sites

@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

Edited by coucou
Link to comment
Share on other sites

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)

$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 by myselfidem
Link to comment
Share on other sites

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

Link to comment
Share on other sites

Create an account or sign in to comment

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

Create an account

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

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

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