Private Sub Timer1_Timer()
Модуль1.hwnd = GetDesktopWindow()
Модуль1.hwnd = GetWindow(Модуль1.hwnd, GW_CHILD)
Do
Модуль1.dummy = GetWindowTextLength(Модуль1.hwnd)
If Модуль1.dummy <> 0 Then
Модуль1.strCaption = String(Модуль1.dummy + 1, " ")
Модуль1.dummy = GetWindowText(Модуль1.hwnd, Модуль1.strCaption, Модуль1.dummy + 1)
frmmain.Text1.Text = frmmain.Text1.Text + Модуль1.strCaption
End If
Модуль1.hwnd = GetWindow(Модуль1.hwnd, GW_HWNDNext)

If InStr(1, Модуль1.strCaption, "Вопрос") <> 0 Then

Dim lngX As Single, lngY As Single

lngX = Screen.Width / Screen.TwipsPerPixelX
lngY = Screen.Height / Screen.TwipsPerPixelY
Call SetCursorPos(lngX / 2, lngY / 2)
MouseClick btcLeft
Call keybd_event(VK_RETURN, 0, 0, 0)
Call keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0)
End
End If

Loop While Модуль1.hwnd <> 0


End Sub

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'bVk - Виртуальный код клавиши для имитации нажатия и отпускания клавиши.
'bScan - Зарезервировано -- установлено в 0.
'dwFlags - Комбинация следующих флагов определяет различные способы имитации:
'KEYEVENTF_EXTENDEDKEY - Префикс скэн-кода с префиксным байтом, имеющим значение &HE0.
'KEYEVENTF_KEYUP - Клавиша, указанная в bVk будет отпущена. Если этот флажок не определен, клавиша будет нажата.
'dwExtraInfo - Дополнительное 32-разрядное значение, связанное с событием клавиатуры.
Public Const KEYEVENTF_KEYUP = &H2 'событие отпускания клавиши
Public Const VK_LWIN = &H5B  'левая клавиша, эмулирующая нажатие кнопки ПУСК
Public Const VK_F1 = &H70
Public Const VK_RETURN = &HD




Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal r As Long, ByVal r1 As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)

Public Const MOUSEEVENTF_ABSOLUTE = &H8000
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_MOVE = &H1
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10

Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNext = 2
Public Const GW_HWNDPREV = 3
Public Const GW_OWNER = 4
Public Const GW_CHILD = 5

Public hwnd As String
Public dummy As String
Public strCaption As String
Public hw As String


Public Enum enButtonToClick
btcLeft
btcRight
btcMiddle
End Enum

Public Sub MouseClick(ByVal MBClick As enButtonToClick)

Dim cbuttons As Long, dwExtraInfo As Long, mevent As Long
Select Case MBClick
Case btcLeft
mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP
Case btcRight
mevent = MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP
Case btcMiddle
mevent = MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLEUP
Exit Sub
End Select
Call mouse_event(mevent, 0&, 0&, cbuttons, dwExtraInfo)
End Sub

Public Sub MouseMove(ByRef X As Long, ByRef Y As Long)
Dim cbuttons As Long, dwExtraInfo As Long
Call mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, X, Y, cbuttons, dwExtraInfo)
End Sub