Jump to content

Welcome to MSFN Forum
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. This message will be removed once you have signed in.
Login to Account Create an Account


Photo

Quick Launch vbs Toggler

- - - - -

  • Please log in to reply
7 replies to this topic

#1
x0rcist

x0rcist
  • Member
  • 3 posts
Hi All,

After many different approaches to enable the quick launch toolbar i finally found a way that works without the use of nasty registry imports.
I Wrote a little vbs code to get this thing done and it can be lauched from the post setup (ex. runonce).
You can try it yourself by cutting and pasting the code below into a textfile and call it like quicklaunch.vbs or something like that.

set WshShell = WScript.CreateObject("WScript.Shell")	
		
		WshShell.SendKeys("^{ESC}")
		WScript.Sleep 100
		WshShell.SendKeys("{TAB}")
		WScript.Sleep 100
		WshShell.SendKeys("%~")
		WScript.Sleep 100
		WshShell.SendKeys("{TAB}{TAB}{TAB}{TAB}")
		WshShell.SendKeys(" ")
		WshShell.SendKeys("{TAB}{TAB}{TAB}")
		WshShell.SendKeys("~")

Hope this helps some people with the automatic toggling of the quicklaunch.


How to remove advertisement from MSFN

#2
Methanoid

Methanoid

    Junior

  • Member
  • Pip
  • 88 posts
  • OS:none specified
Does this method also Unlock the toolbars as otherwise you wont get to see your Quicklaunch icons. Is there anyway to automatically resize the toolbars or even specify the size to enable Quicklaunch to be fully seen?

#3
oioldman

oioldman

    Friend of MSFN

  • Member
  • PipPipPipPipPip
  • 969 posts
  • OS:Windows 7 x64
you will get to see your icons whether it is locked or not, if locked it stops at showing 3, and then you need to select the double right arrow to view others and same if unlocked - so you get to see icons either way around
"Information on the Internet is subject to the same rules and regulations as conversation at a bar" Dr George Lundberg

Search: To make a thorough examination of; look over carefully in order to find something; explore.

Antec P182 containing 8GB DDR2 Corsair & Intel Quad 6600 plugged in to Asus P5E-VM HDMI running W7 Professional

#4
Methanoid

Methanoid

    Junior

  • Member
  • Pip
  • 88 posts
  • OS:none specified
No, the taskbar/toolbar remains locked so unless you UNLOCK it you cannot resize the Quicklaunch bar to see ALL your icons. Anyone any good at VBS (I'm not) could fix the script to also unlock the toolbar?

#5
Hoppel

Hoppel
  • Member
  • 1 posts

No, the taskbar/toolbar remains locked so unless you UNLOCK it you cannot resize the Quicklaunch bar to see ALL your icons. Anyone any good at VBS (I'm not) could fix the script to also unlock the toolbar?


In the above script the spacebar is used to toggle the quick launch bar on/off. Try sending a minus (-) or a plus (+) key instead of the space bar and it does not just switch from on to off or off to on, but you can make sure that the option is selected or deselected. If you adjust the script a bit, like this, then the quick launch bar is also unlocked.

set WshShell = WScript.CreateObject("WScript.Shell")	
		
		WshShell.SendKeys("^{ESC}")
		WScript.Sleep 100
		WshShell.SendKeys("{TAB}")
		WScript.Sleep 100
		WshShell.SendKeys("%~")
		WScript.Sleep 100
		WshShell.SendKeys("-")
		WshShell.SendKeys("{TAB}")
		WshShell.SendKeys("-")
		WshShell.SendKeys("{TAB}")
		WshShell.SendKeys("-")
		WshShell.SendKeys("{TAB}")
		WshShell.SendKeys("-")
		WshShell.SendKeys("{TAB}")
		WshShell.SendKeys("+")
		WshShell.SendKeys("{TAB}")
		WshShell.SendKeys("+")
		WshShell.SendKeys("{TAB}{TAB}")
		WshShell.SendKeys("-")
		WshShell.SendKeys("~")

:)

Edit: seems like this does not always work here :no: Sometimes it does, sometimes it don't... anyone knows another solution?

Edited by Hoppel, 21 June 2006 - 03:57 AM.


#6
IcemanND

IcemanND

    MSFN Junkie

  • Super Moderator
  • 3,266 posts
  • OS:Windows 7 x64
  • Country: Country Flag
How about this:
dim oShell
Dim oAppl
Set oAppl = createObject("shell.application")
Set oShell = CreateObject("wscript.shell")
oAppl.trayproperties
WScript.Sleep(2000)
oShell.SendKeys"%{q}" 'Toggles Show quick launch
oShell.Sendkeys"%{l}"  'Toggles Lock the taskbar
oShell.SendKeys"{ENTER}"
Set oShell=Nothing
Set oAppl=Nothing


#7
cmc

cmc
  • Member
  • 1 posts
Follow-up to the post from Hoppel, just noticed an item that might warrant a second look. In the example script a plus sign was used to enable the "Show Quick Launch". After some quick testing and research from Microsoft's MSDN site, I noticed that the keys to send to enable the option would actually be "+=", not "+". The resultant code from xOrcist's example would look something like this:

set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys("^{ESC}") WScript.Sleep 100 WshShell.SendKeys("{TAB}") WScript.Sleep 100 WshShell.SendKeys("%~") WScript.Sleep 100 WshShell.SendKeys("{TAB}{TAB}{TAB}{TAB}") WshShell.SendKeys("+=")                          ' or WshShell.SendKeys("-") WshShell.SendKeys("{TAB}{TAB}{TAB}") WshShell.SendKeys("~")

It does work with the right keys, including the minus sign to disable, even if the sleep time is lowered to 5 milliseconds.

A possibly neater solution might be that posted by certit in another thread "Show Quick Launch":

To enable the quick launch or to resize it can easily be done using the SOETool from soetool.net.

It uses only API's and works on all systems.

Just register the DLL and then its two lines of code in VBScript

Set oTaskbar = CreateObject("soetool.Taskbar")
oTaskbar.QuickLaunch = True


-cmc :)

#8
lisapstone

lisapstone
  • Member
  • 2 posts
  • OS:none specified
  • Country: Country Flag
Do you have something that will just enlarge it to accommodate more icons. I want it locked for users, but i want to display 6 icons instead of the default three.

Thanks!!





Hi All,

After many different approaches to enable the quick launch toolbar i finally found a way that works without the use of nasty registry imports.
I Wrote a little vbs code to get this thing done and it can be lauched from the post setup (ex. runonce).
You can try it yourself by cutting and pasting the code below into a textfile and call it like quicklaunch.vbs or something like that.

set WshShell = WScript.CreateObject("WScript.Shell")	
		
		WshShell.SendKeys("^{ESC}")
		WScript.Sleep 100
		WshShell.SendKeys("{TAB}")
		WScript.Sleep 100
		WshShell.SendKeys("%~")
		WScript.Sleep 100
		WshShell.SendKeys("{TAB}{TAB}{TAB}{TAB}")
		WshShell.SendKeys(" ")
		WshShell.SendKeys("{TAB}{TAB}{TAB}")
		WshShell.SendKeys("~")

Hope this helps some people with the automatic toggling of the quicklaunch.






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users



How to remove advertisement from MSFN