VBNet - Форум - ВНИМАНИЕ!!! №2

Вопрос: ВНИМАНИЕ!!! №2 Добавлено: 10.05.03 15:31

Автор вопроса: USER

Юзер запускает неизвестное мне приложение. Если моя программа тоже запущена, то как я могу из моей программы автоматически нажать на кнопку в неизвестной проге? Для облегчения допустим, что кнопка в неизвестной проге Default.
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: Миха ICQ: 394243 Вопросов: 20 Ответов: 151	Web-сайт: www.visualbasic.boom.ru Профиль \| \| #1	Добавлено: 10.05.03 17:37
	Попробуй использовать функции поиска заголовка окна . Где у меня похожее было поищу. Ответить

Номер ответа: 2
Автор ответа:

USER

Вопросов: 14
Ответов: 12

Профиль | | #2

Добавлено: 10.05.03 18:24

Во-первых спасибо за отклик. Уже приятно...

Но, допустим я найду какое-то окно, а на кнопку в этом окне как нажать? Может какой-нибудь SendKeys "{vbReturn}"? Вообще SendKeys это не то. Не знаю...

Ответить

Номер ответа: 3
Автор ответа:

KolAR

Вопросов: 3
Ответов: 37

Профиль | | #3

Добавлено: 13.05.03 03:52

Можно найти hwnd кнопки.

Ответить

Номер ответа: 4
Автор ответа:

Padre

ICQ: 346632205

Вопросов: 25
Ответов: 215

Web-сайт: localhost
Профиль | | #4

Добавлено: 13.05.03 04:17

Чтобы нажать на кнопку в чужом приложении нужно найти описатель нужного окна, потом описатель самой кнопки и послать ей SendMessage.

Чуть позже пороюсь и пришлю пример если надою

Ответить

Номер ответа: 5
Автор ответа:

Padre

ICQ: 346632205

Вопросов: 25
Ответов: 215

Web-сайт: localhost
Профиль | | #5

Добавлено: 13.05.03 04:17

Чуть позже пороюсь и пришлю пример если надою

Ответить

Номер ответа: 6
Автор ответа:

Padre

ICQ: 346632205

Вопросов: 25
Ответов: 215

Web-сайт: localhost
Профиль | | #6

Добавлено: 13.05.03 04:17

Чуть позже пороюсь и пришлю пример если надою

Ответить

Номер ответа: 7
Автор ответа:

Padre

ICQ: 346632205

Вопросов: 25
Ответов: 215

Web-сайт: localhost
Профиль | | #7

Добавлено: 13.05.03 04:27

Ммда... что-то у меня интернет проглючил. Вот пример по имитации клика по кнопке Пуск. Содран с какого-то сайта уже не помню с какого.

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Const BM_CLICK = &HF5
Private WndWind As Long
Private WbdButton As Long
Private Sub Command1_Click()
Call SendMessage(WbdButton, BM_CLICK, 0, 0)
End Sub
Private Sub Form_Load()
WndWind = FindWindow("Shell_TrayWnd", vbNullString)
WbdButton = FindWindowEx(WndWind, 0, "Button", vbNullString)
End Sub

Ответить

Номер ответа: 8
Автор ответа:

Padre

ICQ: 346632205

Вопросов: 25
Ответов: 215

Web-сайт: localhost
Профиль | | #8

Добавлено: 13.05.03 04:27

Ответить

Страница: 1 |