Option Compare Database
Option Explicit
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_NUMLOCK = &H90
Private Const VK_F4 = &H73
Private Const VK_F12 = &H7B
Private Const VK_ENTER = &HD
Private Const VK_ESCAPE = &H1B
Private Const VK_TAB = &H9
Private Const VK_SHIFT = &H10
Private Const VK_RIGHT = &H27
Private Const VK_PGUP = &H21
' so it should be created constants for all keys you need to use
' The value key constant table you may found at:
'http://msdn.microsoft.com/en-us/library/ft8xdf67(v=vs.71).aspx
Declare Function GetKeyState Lib "user32.dll" ( _
ByVal nVirtKey As Long) As Integer
' so you sholud creat functions or subs for the kyes
' and just call them when you need to use
Function F4()
keybd_event VK_F4, 1, 0, 0
End Function
Function F12()
keybd_event VK_F12, 1, 0, 0
End Function
Function ENT()
keybd_event VK_ENTER, 1, 0, 0
End Function
Function ESC()
keybd_event VK_ESCAPE, 1, 0, 0
End Function
Function eTAB()
keybd_event VK_TAB, 1, 0, 0
End Function
Function esTAB()
keybd_event VK_SHIFT, 1, 0, 0
keybd_event VK_TAB, 1, 0, 0
keybd_event VK_SHIFT, 1, KEYEVENTF_KEYUP, 0
End Function
Function SHIFT()
keybd_event VK_SHIFT, 1, 0, 0
keybd_event VK_SHIFT, 1, KEYEVENTF_KEYUP, 0
End Function
Function eRIGHT()
keybd_event VK_RIGHT, 1, 0, 0
End Function
Function PGUP()
keybd_event VK_PGUP, 1, 0, 0
End Function