' [335.xls]



' [Module1] のコード
'★★☆　CapsLockを切り替える　☆★★

Option Explicit

'API関数の宣言
Declare Function GetKeyState Lib "user32" _
        (ByVal nVirtKey As Long) As Integer

Declare Sub keybd_event Lib "user32" _
        (ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)
        
'定数の宣言
Const VK_CAPITAL As Long = &H14
Const KEYEVENTF_KEYUP As Long = &H2

Sub start()

    'もし"CapsLock"が"Off"の場合は
    If ((GetKeyState(VK_CAPITAL) And 1) = 0) Then
    
        '"CapsLock"を"On"にする
        keybd_event CByte(VK_CAPITAL), 0, 0, 0
        keybd_event CByte(VK_CAPITAL), 0, KEYEVENTF_KEYUP, 0
        
    Else
        
        '"CapsLock"が"Off"でない場合は"CapsLock"を"Off"にする
        keybd_event CByte(VK_CAPITAL), 0, 0, 1
        keybd_event CByte(VK_CAPITAL), 0, KEYEVENTF_KEYUP, 1
        
    End If

End Sub