윈 도 우 CapsLock-toggle

수고 하셨습니다.감사합니다.

단순 토글은 sendkey 이용해서 다음처럼 해도 될것 같습니다.

Set WshShell = CreateObject("WScript.Shell")

WshShell.Sendkeys "{CAPSLOCK}"

Win32Api을 사용할 수 있는 Wrapper인 DynaCall이라는 것이 오래전에 있었는데 윈10에서는 작동하지 않는 것 같습니다.

다른 것도 있는데 테스트 해보고 쓸만 하면 소개하겠습니다.

엑셀의 매크로4를 이용한 Win32Api를 호출할 수 있어서 예제로 소개 합니다.

참고 링크; http://www.tarasastree.com/2015/09/vbscript-to-call-windows-api-functions.html

키보드 키중에 NumLk, CapsLk, ScrollLk 눌러진 상태인지를 체크하는 스크립트입니다. (엑셀이 설치되어 있어야 합니다.)

Const VK_NUMLOCK = &H90

Const VK_CAPITAL = &H14

Const VK_SCROLL = &H91

If GetKeyState(VK_NUMLOCK) = 1 Then NL = "ON" Else NL = "OFF"

If GetKeyState(VK_CAPITAL) = 1 Then CL = "ON" Else CL = "OFF"

If GetKeyState(VK_SCROLL) = 1 Then SL = "ON" Else SL = "OFF"

WScript.Echo "Num Lock Status : " & NL & vbNewLine & "Caps Lock Status : " & CL & vbNewLine & "Scroll Lock Status : " & SL

Function GetKeyState(VK)

GetKeyState = CreateObject("Excel.Application").ExecuteExcel4Macro("CALL(""user32"", ""GetKeyState"",""JJJ""," & VK & ")")

'WScript.Echo VarType(GetKeyState)

End Function