This module lets you simulate keyboard events. Many thanks to Rohit Kulshreshtha for this!
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const KEYEVENTF_KEYUP = &H2
Public Sub KeyDown(KCC As KeyCodeConstants)
keybd_event KCC, 0, 0, 0
End Sub
Public Sub KeyUp(KCC As KeyCodeConstants)
keybd_event KCC, 0, KEYEVENTF_KEYUP, 0
End Sub
Public Sub KeyPress(KCC As KeyCodeConstants)
KeyDown KCC
KeyUp KCC
End Sub
Public Sub ShiftOnn()
KeyDown vbKeyShift
End Sub
Public Sub ShiftOff()
KeyUp vbKeyShift
End Sub
Public Sub CtrlOnn()
KeyDown vbKeyControl
End Sub
Public Sub CtrlOff()
KeyUp vbKeyControl
End Sub
Comments