Quick Launch

[juliagro73]

Hallo,

how kann I make Quick Launch automatically visible? Registry-Key or other?

[daedalus123]

Just search the forums ...

[MGadAllah]

' --------------------------------------------------------------------------------
'
' Script: SetQuickLaunch
' Author: PaulIA
'
' This script turns the Quick Launch toolbar on.
'
' --------------------------------------------------------------------------------

' Declare variables
' --------------------------------------------------------------------------------
dim oAppl
dim oShell

' Create objects
' --------------------------------------------------------------------------------
set oAppl  = CreateObject("Shell.Application")
set oShell = CreateObject("WScript.Shell"	)

' Open Taskbar Properties dialog
' --------------------------------------------------------------------------------
oAppl.TrayProperties
WScript.Sleep(2000)

' This section toggles the "Show Quick Launch" toolbar setting. Notice that I said
' TOGGLE and not set.  If it's already on, it will turn it off.  I'm assuming that
' you're using this from a clean install where "Show Quick Launch" is off and  the
' "Lock the taskbar" setting is off.  You'll notice that I'm playing  around  with
' the "Lock the taskbar" setting.  I do this so that the Quick Launch bar will set
' it's size right to show all of the icons which will not happen if you change the
' "Show Quick Launch" setting with the task bar locked.
' --------------------------------------------------------------------------------
oShell.SendKeys"%{q}"		   ' Toggle "Show Quick Launch" (On)
oShell.Sendkeys"%{l}"		   ' Toggle "Lock the taskbar"  (Off)
oShell.Sendkeys"%{a}"		   ' Press the "Apply" button
oShell.Sendkeys"%{l}"		   ' Toggle "Lock the taskbar"  (On)

' Close the Taskbar Properties dialog
' --------------------------------------------------------------------------------
oShell.SendKeys"{ENTER}"		' Send "Enter" to exit dialog

' Clean up objects
' --------------------------------------------------------------------------------
set oShell = Nothing
set oAppl  = Nothing

Save this code as a .VBS file then run it to enable QL, or run it again to disable QL

I do not remember who, where, when did it posted

Edited November 22, 2006 by MGadAllah

[MHz]

I do not remember who, where, when did it posted

The who is at the top of the script. The where and when is posted here.

[MGadAllah]

I do not remember who, where, when did it posted

The who is at the top of the script. The where and when is postedhere.

Thanks mate, all credit goes where credit is due.