$Msg = "CapsOff.kix,  Version 1.01@CRLF"
$Msg = $Msg + "Checks if CapsLock is ON, and if so, toggles it OFF again"
$Msg = $Msg + "@CRLF@CRLF"
$Msg = $Msg + "Usage:	KIX32.EXE  CapsOff.kix  [ $$Help=1 ]@CRLF@CRLF"
$Msg = $Msg + "Note:	This script only works in a console window,"
$Msg = $Msg + "@CRLF"
$Msg = $Msg + "     	(KIX32.EXE) not in GUI mode (WKIX32.EXE)"
$Msg = $Msg + "@CRLF@CRLF"
$Msg = $Msg + "Written by Rob van der Woude@CRLF"
$Msg = $Msg + "http://www.robvanderwoude.com"

If UCase( @ScriptExe ) = "KIX32.EXE"
	If $Help = ""
		$WindowTitle = "CapsLock test"
		$RC = SetOption( "CaseSensitivity", "ON" )
		$RC = SetConsole( "SHOW" )
		$RC = SetTitle( $WindowTitle )
		$RC = SetFocus( $WindowTitle )
		$RC = SendKeys( "q" )
		Get $Key
		If $Key = "Q"
			"Capslock is ON, toggling it OFF again...@CRLF"
			$RC = SendKeys( "{CAPSLOCK}" )
		EndIf
		$RC = SetOption( "CaseSensitivity", "OFF" )
	Else
		? "$Msg@CRLF"
	EndIf
Else
	$RC = MessageBox( $Msg, "CapsOff", 64, 60 )
EndIf