[VB6DAO]

كود :

Public Class Form1

    ' 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(ByVal TurnOn As Boolean)
        Dim CapsLockState As Integer
        CapsLockState = GetKeyState(VK_CAPITAL)
        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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CapsLock(True)
    End Sub

    ' TurnOff
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CapsLock(False)
    End Sub

End Class