Dim $SleepTime
$SleepTime=175
;
BlockInput(1)
If @desktopheight=1200 then
	MouseClick("left",14,1188) ; Tclock in sys tray
Else
	MouseClick("left",66,1573)
EndIf

Sleep($SleepTime)

Send("P")
WinWaitActive("TClockEx Properties","",5)

Sleep($SleepTime)

Send("!C")
Sleep($SleepTime)

WinActivate("Text Colour")
If WinActive("Text Colour") Then
	Black();
	CompleteDialog()
EndIf

WinWaitActive("TClockEx Properties","",5)
Sleep($SleepTime)

Send("!B")
Sleep($SleepTime)

WinWaitActive("Background Colour","",5)
If WinActive("Background Colour") Then
	White();
	CompleteDialog()
EndIf

Send("{Tab}")
Sleep($SleepTime)

Send("{Tab}")
Sleep($SleepTime)

Send("{Tab}")
Sleep($SleepTime)

Send("{Tab}")
Sleep($SleepTime)

Send("{Tab}")
Sleep($SleepTime)

Send("{Enter}")
Sleep($SleepTime)

BlockInput(0)
;
Exit
;
Func CompleteDialog()
	Send("{Tab}")
	Sleep($SleepTime)

	Send("{Tab}")
	Sleep($SleepTime)

	Send("{Tab}")
	Sleep($SleepTime)

	Send("{Enter}")
	Sleep($SleepTime)
EndFunc
;
Func Black()
	Send("{Home}")
	Sleep($SleepTime)

	Send("{Down 5} ")
	Sleep($SleepTime)
EndFunc
;
Func White()
	Send("{Home}")
	Sleep($SleepTime)

	Send("{Right 7}")
	Sleep($SleepTime)

	Send("{Down 5} ")
	Sleep($SleepTime)
EndFunc