[VB6DAO]

كود :

' CapsLock

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_CAPITAL = &H14
Private Const KEYEVENTF_KEYUP = &H2

Public Sub CapsLock(TurnOn As Boolean)
    Dim CapsLockState As Integer
    CapsLockState = GetKeyState(vbKeyCapital)
    CapsLockState = (CapsLockState = 1 Or CapsLockState = -127)
    If TurnOn = Not CapsLockState Then
        keybd_event VK_CAPITAL, 0, 0, 0
        keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0
    End If
End Sub

' TurnOn
Private Sub Command1_Click()
    CapsLock True
End Sub

' TurnOff
Private Sub Command2_Click()
    CapsLock False
End Sub