Au3 To Conf Xp Start Menu Properties

[oystercatcher]

au3 script for winxp start menu properties

customize start menu, general and advanced

Since my personal preferences, you will have to edit this script

I havent figured out how to deal with toggle radio buttons to guarantee

that they are either on or off yet, so I just toggle them for now.

; ---------------------------------------------------

; Post XP install Set up Start Menu properties

; May toggle some advanced sm options incorrectly

; in particular help and support, printers and faxes

; May toggle some general sm option incorrectly

; in particular uncheck outlook express

; ---------------------------------------------------

;AutoItSetOption("WinTitleMatchMode", 4)

; ---------------------------------------------------

; Activate start menu properties

; ---------------------------------------------------

Send ("^{ESC}")

Send ("{ESC}")

Send ("+{F10}")

Sleep (100)

Send ("r")

; ---------------------------------------------------

; Taskbar and Start Menu Properties window should now be open

; ---------------------------------------------------

$title01="Taskbar and Start Menu Properties"

$title05="Customize Start Menu"

$wintext01="Start Menu"

$wintext02="Taskbar"

$wintext05="General"

$wintext07="Advanced"

$msgtitle05="General"

$msg07="Problem setting General start menu options"

$msgtitle07="Advanced"

$msg07="Problem setting Advanced start menu options"

$msgtitle09="Start Menu"

$msg09="Error: Problem closing start menu options"

; ---------------------------------------------------

Sleep(1000)

If WinWaitActive ( $title01 ) Then

If WinWaitActive ( $title01, $wintext01 ) Then

Send ("!C")

Else

MsgBox (0, $title01, "Problem on Start Menu Pass1"

EndIf

Else

Send ("{RIGHT}")

Send ("!C")

EndIf

; ---------------------------------------------------

Sleep(1000)

If WinWaitActive ( $title05, $wintext05 ) Then

ControlClick( $title05, $wintext05, "SysTabControl321")

Send ("{RIGHT}")

If WinWaitActive ( $title05, $wintext07 ) Then

Sleep(1000)

Send ("!m")

Send ("{DOWN 2}") ; make control panel a menu

Send ("{SPACE}")

Send ("{DOWN 4}") ; toggle help and suppport

Send ("{SPACE}")

Send ("{DOWN 3}") ; make my computer a menu

Send ("{SPACE}")

Send ("{DOWN 4}") ; make my documents a menu

Send ("{SPACE}")

Send ("{DOWN 5}") ; rem my music

Send ("{SPACE}")

Send ("{DOWN 5}") ; rem my picture

Send ("{SPACE}")

Send ("{DOWN 5}") ; toggle printers and faxes

Send ("{SPACE}")

Sleep(1000)

Send ("{TAB}") ; move to OK button

Send ("{ENTER}") ; press OK button

EndIf

Else

MsgBox (0, $msgtitle07, $msg07)

EndIf

; ---------------------------------------------------

Sleep(1000)

If WinWaitActive ( $title01, $wintext01 ) Then

Send ("!C")

Else

MsgBox (0, $title01, "Problem on Start Menu Pass 2")

EndIf

If WinWaitActive ( $title05, $wintext05 ) Then

Send ("!S") ; select small icons

Send ("!C") ; clear list

Send ("!E") ; rem outlook

ControlClick( $title05, $wintext05, "Button9")

Else

MsgBox (0, $msgtitle05, $msg05)

EndIf

; ---------------------------------------------------

Sleep(1000)

If WinWaitActive ( $title01, $wintext01 ) Then

ControlClick( $title01, $wintext01, "Button5")

Else

MsgBox (0, $msgtitle09, $msg09)

EndIf

[code]

[blinkdt]

@oystercatcher Nice script. Not to poop on all of your hard work, but can't most of this (all of this?) be accomplished through registry settings and a simple batch file? I remember doing all of my post-install tweaking via AutoIt before discovering MSFN, always cool to watch it work, but merging the reg settings and setting off a batch seems quicker, more efficient. Again, nice job, I for one will study it as I continue to bone up on my AutoIt skills.