Public Const VK_TAB = &H9
Public Const VK_UP = &H26
Public Const VK_SUBTRACT = &H6D
Public Const VK_SPACE = &H20
Public Const VK_SHIFT = &H10
Public Const VK_SEPARATOR = &H6C
Public Const VK_RWIN = &H5C
Public Const VK_RIGHT = &H27
Public Const VK_RMENU = &HA5
Public Const VK_RSHIFT = &HA1
Public Const VK_RETURN = &HD
Public Const VK_RCONTROL = &HA3
Public Const VK_RBUTTON = &H2
Public Const VK_PROCESSKEY = &HE5
Public Const VK_PRIOR = &H21
Public Const VK_PRINT = &H2A
Public Const VK_PAUSE = &H13
Public Const VK_PLAY = &HFA
Public Const VK_NUMPAD9 = &H69
Public Const VK_NUMPAD8 = &H68
Public Const VK_NUMPAD7 = &H67
Public Const VK_NUMPAD6 = &H66
Public Const VK_NUMPAD5 = &H65
Public Const VK_NUMPAD4 = &H64
Public Const VK_NUMPAD3 = &H63
Public Const VK_NUMPAD2 = &H62
Public Const VK_NUMPAD1 = &H61
Public Const VK_NUMPAD0 = &H60
Public Const VK_NUMLOCK = &H90
Public Const VK_MODECHANGE = &H1F
Public Const VK_MENU = &H12
Public Const VK_MBUTTON = &H4 ' NOT contiguous with L RBUTTON
Public Const VK_LWIN = &H5B
Public Const VK_LSHIFT = &HA0
Public Const VK_LMENU = &HA4
Public Const VK_LEFT = &H25
Public Const VK_LCONTROL = &HA2
Public Const VK_LBUTTON = &H1
Public Const VK_INSERT = &H2D
Public Const VK_HOME = &H24
Public Const VK_HELP = &H2F
Public Const VK_F9 = &H78
Public Const VK_F8 = &H77
Public Const VK_F7 = &H76
Public Const VK_F6 = &H75
Public Const VK_F5 = &H74
Public Const VK_F4 = &H73
Public Const VK_F3 = &H72
Public Const VK_F2 = &H71
Public Const VK_F1 = &H70
Public Const VK_F10 = &H79
Public Const VK_F11 = &H7A
Public Const VK_F12 = &H7B
Public Const VK_ESCAPE = &H1B
Public Const VK_END = &H23
Public Const VK_DOWN = &H28
Public Const VK_DELETE = &H2E
Public Const VK_CONTROL = &H11
Public Const VK_CLEAR = &HC
Public Const VK_CANCEL = &H3
Public Const VK_CAPITAL = &H14
Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
?bVk
Specifies a virtual-key code. The code must be a value in the range 1 to 254.
?bScan
Specifies a hardware scan code for the key.
fdwFlags
A set of flag bits that specify various aspects of function operation. An application can use any combination of the following predefined constant values to set the flags:
KEYEVENTF_EXTENDEDKEY
If specified, the scan code was preceded by a prefix byte having the value 0xE0 (224).
KEYEVENTF_KEYUP
If specified, the key is being released. If not specified, the key is being depressed.
?dwExtraInfo
Specifies an additional 32-bit value associated with the key stroke.
Const VK_H = 72
Const VK_E = 69
Const VK_L = 76
Const VK_O = 79
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
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 Sub Form_KeyPress(KeyAscii As Integer)
'Print the key on the form
Me.Print Chr$(KeyAscii);
End Sub
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Clear the form
Me.Cls
keybd_event VK_H, 0, 0, 0 ' press H
keybd_event VK_H, 0, KEYEVENTF_KEYUP, 0 ' release H
keybd_event VK_E, 0, 0, 0 ' press E
keybd_event VK_E, 0, KEYEVENTF_KEYUP, 0 ' release E
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_O, 0, 0, 0 ' press O
keybd_event VK_O, 0, KEYEVENTF_KEYUP, 0 ' release O
End Sub