Калькулятор клик по кнопке

[DeMONiZ]

Что то уже минут 20 мучаюсь и не могу написать код который кликает по кнопке калькулятора...
делаю так:

Код: Выделить всё

g = FindWindow(vbNullString, "Калькулятор")
k = FindWindowEx(g, 0, "4", vbNullString)



точнее хочу получить таким путем хендл кнопки 4

[dr.MIG]

Потому что в строке k = FindWindowEx(g, 0, "4", vbNullString) третьим параметром идет имя класса (надо "Button"), а у тебя там "4", т.е. текст в окне, который должен идти четвертым параметром.

P.S. А само окно калькулятора я бы искал по имени класса: FindWindow("SciCalc", vbNullString). Так, на всякий случай, мало ли что...

[arvitaly]

Код: Выделить всё

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
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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Const BM_CLICK As Integer = &HF5

Private Sub Command1_Click()
    Dim h1 As Long
    h1 = FindWindow("SciCalc", vbNullString)
    h1 = FindWindowEx(h1, 0, vbNullString, "4")
    SendMessage h1, BM_CLICK, 0, vbNullString
End Sub

[DeMONiZ]

dr.MIG, arvitaly спасибо большое. Я по началу и искал SciCalc но не работало по тем причинам которые вы мне сказали и поменял на калькулятор....

[DeMONiZ]

А почему может быть такое что этот код работает с калькулятором а с моей программой не хочет.....в чем может быть причина?

[alibek]

Потому что в калькуляторе не кнопки.
Используй mouse_event. Или эмулируй клик полноценно, а не посылай BM_CLICK.

[DeMONiZ]

странно как то.....
дело то не в этом он хендл не возращает.......то есть я делаю вывод хендла в текстбокс а он выдает мне 0
Вот к примеру даже если вместо SciCalc пишу Калькулятор то уже код не работает!
Даже если я получаю хендл кнопки другим способом то и BM_CLICK работает отлично

[arvitaly]

Потому что в калькуляторе не кнопки.

чушь

Вот к примеру даже если вместо SciCalc пишу Калькулятор то уже код не работает!

Скачай какую нить прогу по перебору окон или напиши сам как я когда -то)) Там не так сложно, рекурсивная функция.
Вроде есть прога lnqsoft, там все видно и текст и класс и много чего еще

[DeMONiZ]

Потому что в калькуляторе не кнопки.

тоже считаю чушью

[DeMONiZ]

За программу спасибо разбираюсь!
Вот смотрите получается сначала я ищу хендл окна потом дочернюю форму........а если у меня элемент который мне нужен расположен во фрейме мне искать сначала окно потом фрейм а потом в нем нужный объект?

[arvitaly]

да

[DeMONiZ]

arvitaly программа которую ты мне посоветовал выодит имя класса окна obj_Form то есть мне это писать вместо SciCalc?
на фрейме выводит obj_BUTTON
и нак нопке тоже obj_BUTTON.

ага точно хендл формы определили идем дальше...
хендл фрейма получен....
Хендл кнопки получен....
клик сделан....
Огромное спасибо!

[arvitaly]

короче, сиди и разбирайся, там нет ничего сложного, даю последнюю ссылку как подсказку
http://msdn.microsoft.com/en-us/library/ms633499.aspx
Отмазки, типа не знаю англ не принимаются, отмазки типа не могу перевести с c++ не принимаются (ищи).

Хочешь программировать под windows как минимум Microsoft.com умей переводить или купи книгу Рихтер или Эплман

[DeMONiZ]

Да я уже разобрался спасибо еще раз!

[Хакер]

alibek, главное окно калькулятора являются диалогом, лежащем в ресурсах "calc.exe". И кнопки вроде бы как являются обычными кнопками. Почему ты говоришь обратное?

[alibek]

Перепутал.