Запущена программа Блокнот и далее в блокноте Справка-О программе.
В программе вычисляется handle заголовка Справка о программе"

Как вычислить далее хэнд кнопки "ОК" зная хэндл этого окна?

***

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Integer, _
ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F

Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA" (ByVal hWndParrent As Long, ByVal hWndChildren As Long, ByVal lpClassName As String, ByVal lpWindowName As String)

Private Sub Command1_Click()
tf = "О программе " & """" & "Блокнот" & """"
Text1.Text = FindWindow(vbNullString, tf)
Const BM_CLICK = &HF5
RetVal = SendMessage(Text1.Text, BM_CLICK, 0, "OK")
' нажимаем Ок... в этом окне
End Sub

Код

Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA" (ByVal hWndParrent As Long, ByVal hWndChildren As Long, ByVal lpClassName As String, ByVal lpWindowName As String) Private Const WM_LBUTTONUP = &H202 Private Const WM_LBUTTONDOWN = &H201 Private Sub Command1_Click() Dim sCaption As String, hOK As Long, hW As String, retval As Long sCaption = "О программе " & """" & "Блокнот" & """" 'Хэндл окна hW = FindWindow(vbNullString, sCaption) 'Хэндл кнопки hOK = FindWindowEx(hW, 0, "button", vbNullString) 'Почему-то нужно вызывать ф-ции по два раза(?) retval = SendMessage(hOK, WM_LBUTTONDOWN, 0, 0) retval = SendMessage(hOK, WM_LBUTTONUP, 0, 0) retval = SendMessage(hOK, WM_LBUTTONDOWN, 0, 0) retval = SendMessage(hOK, WM_LBUTTONUP, 0, 0) End Sub

Text1 я убрал - он не нужен. С уважением, Run-time error.