Option Explicit




Private Const errCanNotPerformRequestedOperation As Long = 17
Private Const INPUT_MOUSE As Long = 0
Private Const INPUT_KEYBOARD As Long = 1
Private Const MOUSEEVENTF_LEFTDOWN As Long = 2
Private Const MOUSEEVENTF_LEFTUP As Long = 4
Private Const KEYEVENTF_DOWN As Long = 0
Private Const KEYEVENTF_KEYUP As Long = 2
Private Const KEYEVENTF_UNICODE As Long = 4
Private Const KEYEVENTF_SCANCODE As Long = 8
Private Const MAPVK_VK_TO_VSC As Long = 0
Private Const InputItemSize As Long = 28


Private Type KeyboardInputT
 InputType As Long
 VirtualKey As Integer
 ScanKey As Integer
 Flag As Long
 TimeData As Long
 Extra As Long
End Type

Private Type MouseInputT
 InputType As Long
 X As Long
 Y As Long
 MouseData As Long
 Flag As Long
 TimeData As Long
 Extra As Long
End Type

Private Declare Sub SleepWinApi Lib "kernel32" Alias "Sleep" (ByVal lngInterval As Long)
Private Declare Function SetCursorPosWinApi Lib "user32" Alias "SetCursorPos" (ByVal lngX As Long, ByVal lngY As Long) As Long
Private Declare Function SendInputWinApi Lib "user32" Alias "SendInput" (ByVal lngInputCount As Long, ByVal lngInputList As Long, ByVal lngInputItemSize As Long) As Long
Private Declare Function MapVirtualKeyWinApi Lib "user32" Alias "MapVirtualKeyW" (ByVal lngCode As Long, ByVal lngFlag As Long) As Long



Private Sub Test02()
 Dim stcKeyboardInput As KeyboardInputT
 Dim lngScanKey As Long
 Dim lngVirtualKey As Long
 Dim lngResultBool As Long
 Dim lngResultDword As Long
 Dim lngErrorDword As Long


 lngScanKey = MapVirtualKeyWinApi(Asc("1"), MAPVK_VK_TO_VSC)
 lngVirtualKey = 0

 SleepWinApi 2 * 1000

 stcKeyboardInput.InputType = INPUT_KEYBOARD
 stcKeyboardInput.VirtualKey = lngVirtualKey
 stcKeyboardInput.ScanKey = lngScanKey
 stcKeyboardInput.Flag = KEYEVENTF_DOWN Or KEYEVENTF_SCANCODE Or KEYEVENTF_UNICODE
 stcKeyboardInput.TimeData = 0
 stcKeyboardInput.Extra = 0

 lngResultDword = SendInputWinApi(1, VarPtr(stcKeyboardInput), InputItemSize)
 If lngResultDword <> 1 Then
 lngErrorDword = Err.LastDllError
 Err.Raise errCanNotPerformRequestedOperation''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ТУТ ОШИБКА''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 End If

 SleepWinApi 400

 stcKeyboardInput.InputType = INPUT_KEYBOARD
 stcKeyboardInput.VirtualKey = lngVirtualKey
 stcKeyboardInput.ScanKey = lngScanKey
 stcKeyboardInput.Flag = KEYEVENTF_KEYUP Or KEYEVENTF_SCANCODE Or KEYEVENTF_UNICODE
 stcKeyboardInput.TimeData = 0
 stcKeyboardInput.Extra = 0

 lngResultDword = SendInputWinApi(1, VarPtr(stcKeyboardInput), InputItemSize)
 If lngResultDword <> 1 Then
 lngErrorDword = Err.LastDllError
 Err.Raise errCanNotPerformRequestedOperation
 End If

 SleepWinApi 2 * 1000
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Test02
End Sub