(view source code of capsoff.kix as plain text)
$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
page last modified: 2024-04-16; loaded in 0.0051 seconds