><(({°> | |
03.2003
04.2003 05.2003 06.2003 11.2003 01.2004 02.2004 03.2004 04.2004 05.2004 06.2004 07.2004 09.2004 10.2004 11.2004 01.2005 03.2005 04.2005 05.2005 06.2005 07.2005 08.2005 09.2005 10.2005 11.2005 12.2005 01.2006 02.2006 03.2006 04.2006 06.2006 07.2006 08.2006 10.2006 11.2006 12.2006 02.2007 03.2007 04.2007 06.2007 07.2007 10.2007 11.2007 01.2008 02.2008 03.2008 04.2008 05.2008 06.2008 07.2008 08.2008 09.2008 10.2008 11.2008 01.2009 02.2009 04.2009 07.2009 08.2009 09.2009 11.2009 12.2009 02.2010 04.2010 05.2010 07.2010 |
08 May, 2008
# quicklaunch enable through vb.net
In trying to find a way to enable the quicklaunch toolbar automatically during WDS, BDD, MDT, MDS or whatever you want to call it this week deployment, I've created the following:
Imports System.Runtime.InteropServices Public Class Form1 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal nCmdShow As Integer, ByVal wParam As Integer, ByVal lparam As Integer) As Integer Const WM_USER As Int32 = &H400 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SendMessage(FindWindow("Shell_TrayWnd", vbNullString), WM_USER + 237, 0, 1) End Sub End Class Just create a basic form with one button (button1 as above) and that'll do it. Customize it all you want, make it automatic, but that's the "root veggies" (as a vegetarian, i feel weird saying that that's the meat of the program :) ) sounddoc
Comments:Post a Comment |