Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB .NET > окна


Автор: SGodS 26.7.2008, 11:39
Люди помогите разобратса как мне найти окно по названию или по часте названия и передовать ему команды на те или иные кнопки на нем

Добавлено через 1 минуту и 46 секунд
почледняя надежда на жэтот форум

Автор: GOBLIN_TT 26.7.2008, 11:59
SGodS  - Опиши подробнее свой вопрос.

Что за команды ?

Окна создаются програмно или ручками ?

Автор: SGodS 26.7.2008, 13:41
допустим открыто окно на нем есть кнопка ok exit  мне надо надовить кнопку ok как это осуществить
зарание примного блогодарен

Автор: Pilger 26.7.2008, 14:30
Нужны функции:
Код

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)

Автор: SGodS 26.7.2008, 17:03
не проходит последняя часть кода помодмогните кто может

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)