Here's the attached version that hides the window as soon as it is 
active.  I think that's the best I can do.

Let me know if anyone wants the executable.

-----Original Message-----
From: "Kevin P. Jacobson" <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Cc: "Kevin P. Jacobson (E-mail)" <[EMAIL PROTECTED]>
Date: Thu, 20 Nov 2003 19:18:37 -0500
Subject: Re: [Unattended] Quick Launch (amendment)

> I hope my mail client doesn't butcher this...
> 
> This is the AutoItv3 code which can be turned into an .exe for 
> portability...be warned that this only works in XP as far as I know.
> 
> I wish the @SW_HIDE really worked, then no one would see it 
> happening...something to improve upon.
> 
> Run ("rundll32.exe shell32.dll,Options_RunDLL 1","",@SW_HIDE)
> WinWaitActive ( "Taskbar and Start Menu Properties")
> WinActivate ( "Taskbar and Start Menu Properties")
> $var = ControlCommand ( "Taskbar and Start Menu 
> Properties", "", "Button5", "IsChecked", "")
> If $var = 1 Then
>     WinClose ("Taskbar and Start Menu Properties")
> Else
>     ControlCommand ( "Taskbar and Start Menu 
> Properties", "", "Button5", "Check", "")
>     ControlCommand ( "Taskbar and Start Menu 
> Properties", "", "Button11", "Check", "")
> EndIf
> 
> -----Original Message-----
> From: "Kevin P. Jacobson" <[EMAIL PROTECTED]>
> To: [EMAIL PROTECTED]
> Date: Thu, 20 Nov 2003 15:00:59 -0500
> Subject: Re: [Unattended] Quick Launch (amendment)
> 
> > That works great.  I think, combined with an AutoIt script - I
> could
> > make 
> > this only turn on the toolbar.  I won't be able to start writing
> the
> > AutoIt until 
> > later tonight - but I will post my results.
> > 
> > -----Original Message-----
> > From: "Mark Harburn" <[EMAIL PROTECTED]>
> > To: 
> > Cc: <[EMAIL PROTECTED]>
> > Date: Thu, 20 Nov 2003 19:40:15 -0000
> > Subject: Re: [Unattended] Quick Launch (amendment)
> > 
> > > 
> > 
> 
http://groups.msn.com/MicrosoftWindowsXPRegistryGuide/corrections.ms
> > n
> > > w?
> > 
> 
action=get_message&mview=0&ID_Message=449&LastModified=4675443
> > 21113
> > > 4043585&all_topics=1
> > > 
> > > contains the code:-
> > > 
> > > -----<Begin VBScript>----
> > > 
> > > Option Explicit
> > > 
> > > Dim ShellObject
> > > 
> > > Set ShellObject=WScript.CreateObject("WScript.Shell")
> > > 
> > > ShellObject.Run("rundll32.exe shell32.dll,Options_RunDLL 1")
> > > WScript.Sleep 200
> > > ShellObject.AppActivate "Taskbar and Start Menu Properties"
> > > ShellObject.SendKeys "%Q"
> > > WScript.Sleep 200
> > > ShellObject.AppActivate "Taskbar and Start Menu Properties"
> > > ShellObject.Sendkeys"%A"
> > > WScript.Sleep 100
> > > ShellObject.AppActivate "Taskbar and Start Menu Properties"
> > > ShellObject.Sendkeys"{ENTER}"
> > > 
> > > -----<End VBScript>----
> > > 
> > > ----- Original Message ----- 
> > > From: "Patrick J. LoPresti" <[EMAIL PROTECTED]>
> > > To: <[EMAIL PROTECTED]>
> > > Cc: <[EMAIL PROTECTED]>
> > > Sent: Thursday, November 20, 2003 7:22 PM
> > > Subject: Re: [Unattended] Quick Launch
> > > 
> > > 
> > > > Hm, tricky.
> > > >
> > > > According to this thread:
> > > >
> > > >  
> > > http://groups.google.com/groups?threadm=uOmqnfa5BHA.2196%
> > 40tkmsftngp0
> > > 7
> > > >
> > > > ...the relevant registry entry is the "Taskbar" value under the
> > > >
> > > 
> > 
> 
HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Streams/De
> s
> > kt
> > > op
> > > > key.  Obviously, it is a per-user setting.
> > > >
> > > > Unfortunately, that value looks like a random binary blob to
> me. 
> > > The
> > > > only KB article I could find is not terribly helpful:
> > > >
> > > >   http://support.microsoft.com/?kbid=216663
> > > >
> > > > But, maybe if you take a snapshot of that value as a .reg file
> > and
> > > > restore it into the Default User's settings, it will do what
> you
> > > want.
> > > >
> > > >  - Pat
> > > >
> > > >
> > > > "Kevin P. Jacobson" <[EMAIL PROTECTED]> writes:
> > > >
> > > > > Has anyone ever figured out how to programmatically turn on
> the
> > > > > quick launch toolbar?  The only way I've found is a binary
> that
> > > > > someone sells for $5...granted $5 isn't a big deal, but I
> don't
> > > want
> > > > > to pay it if it can be done a different way.
> > > > >
> > > > > Kevin
> > > >
> > > >
> > > > -------------------------------------------------------
> > > > This SF.net email is sponsored by: SF.net Giveback Program.
> > > > Does SourceForge.net help you be more productive?  Does it
> > > > help you create better code?  SHARE THE LOVE, and help us help
> > > > YOU!  Click Here: http://sourceforge.net/donate/
> > > > _______________________________________________
> > > > unattended-info mailing list
> > > > [EMAIL PROTECTED]
> > > > https://lists.sourceforge.net/lists/listinfo/unattended-info
> > > 
> > > 
> > > 
> > > -------------------------------------------------------
> > > This SF.net email is sponsored by: SF.net Giveback Program.
> > > Does SourceForge.net help you be more productive?  Does it
> > > help you create better code?  SHARE THE LOVE, and help us help
> > > YOU!  Click Here: http://sourceforge.net/donate/
> > > _______________________________________________
> > > unattended-info mailing list
> > > [EMAIL PROTECTED]
> > > https://lists.sourceforge.net/lists/listinfo/unattended-info
> > 
> > 
> > 
> > -------------------------------------------------------
> > This SF.net email is sponsored by: SF.net Giveback Program.
> > Does SourceForge.net help you be more productive?  Does it
> > help you create better code?  SHARE THE LOVE, and help us help
> > YOU!  Click Here: http://sourceforge.net/donate/
> > _______________________________________________
> > unattended-info mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/unattended-info
> 
> 
> 
> -------------------------------------------------------
> This SF.net email is sponsored by: SF.net Giveback Program.
> Does SourceForge.net help you be more productive?  Does it
> help you create better code?  SHARE THE LOVE, and help us help
> YOU!  Click Here: http://sourceforge.net/donate/
> _______________________________________________
> unattended-info mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/unattended-info

Attachment: ql.au3
Description: Binary data

Reply via email to