Форум программистов [Powered by Invision Power Board]

Нужны функции:

Код


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Integer, ByVal hWndChildAfter As Integer, ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Далее находим окно и кнопку:

Код


dim Window as integer = FindWindow(vbnullstring, "имя окна") 'Находим окно.
dim Button as integer = FindWindowEx(Window,0,vbnullstring,"ok") 'Находим кнопку.

Если между кнопкой и окном есть другие окна, то сначала надо найти их. Для удобства можешь скачать например InqSoft Window Scanner.
Вместо vbnullstring можешь писать класс окна (который опять таки можно узнать с помощью InqSoft Window Scanner, но не обязательно).

Нажимаем на кнопку:

Код


Const WM_LBUTTONDOWN As Integer = &H201
Const WM_LBUTTONUP As Integer = &H202

SendMessage(Button, WM_LBUTTONDOWN, 1, 0)
SendMessage(Button, WM_LBUTTONUP, 1, 0)