VB.NET нажатия кнопок в стороннем приложении

[olesis]

Всем привет, у меня такая проблема: нужно нажимать на кнопки в чужом окне, я получаю hwd нужного окна так:
Dim hwnd As Integer = FindWindow(vbNullString, "Заголовок окна")
заголовок получаю, всё нормально, а вот дальше я не знаю через какие API нажимать на кнопки/чекбоксы, через SendMessage? но как узнать ID кнопки/чекбокса которую нужно нажать/отметить? через Spy++ я могу посмотреть, а программно нет, вообщем помогите советом, на .NET почти нет инфы
P.S Все темы перечитал которые хоть как то относятся к этой теме, но там то на VB6 то не могу сообразить

[Joo]

Я использовал следующие:

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

hWndParent= FindWindowA("TFormClean", "Заголовок родительского окна")
hWndChild= FindWindowExA(hWndParent, 0, "TBitBtn", "Текст кнопки")
PostMessageA(hWndChild, WM_KEYDOWN, VK_SPACE, vbNull)
PostMessageA(hWndChild, WM_KEYUP, VK_SPACE, vbNull)


[olesis]

В принципе код работает, но только с одной кнопкой, я поискал инфу по API, как я понял нужно работать с
EnumWindows
EnumChildWindows
но пока все примеры на VB6, может есть у кого на .NET?

[Joo]

В принципе не проблема с VB6 переложить на .NET, но описанным выше методом я кликал на несколько кнопок, выстовлял галочки!

[olesis]

Можешь скинуть свои объявления используемых API?

[Viper]

Я использовал следующие:

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

hWndParent= FindWindowA("TFormClean", "Заголовок родительского окна")
hWndChild= FindWindowExA(hWndParent, 0, "TBitBtn", "Текст кнопки")
PostMessageA(hWndChild, WM_KEYDOWN, VK_SPACE, vbNull)
PostMessageA(hWndChild, WM_KEYUP, VK_SPACE, vbNull)


Scarabey, ты в курсе, что vbNull = 1? И использование данной константы в данном контексте, мягко говоря, некорректно?

[Joo]

Верно подмеченно, что поделаеш я любитель упустил изи виду, но в принципе в данном примере это не играет решающей роли.

[Joo]

Можешь скинуть свои объявления используемых API?

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

Public Module API
    <System.Runtime.InteropServices.DllImport("USER32.DLL")> _
    Public Function FindWindowA(ByVal ClassName As String, ByVal Windowtext As String) As Integer
    End Function

    <System.Runtime.InteropServices.DllImport("USER32.DLL")> _
    Public Function FindWindowExA(ByVal hWndParent As Integer, ByVal hWndChildAfter As Integer, ByVal ClassName As String, ByVal Windowtext As String) As Integer
    End Function

    <System.Runtime.InteropServices.DllImport("USER32.DLL")> _
    Public Function PostMessageA(ByVal hWnd As Integer, ByVal Message As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    End Function

    Public Const WM_KEYDOWN = &H100
    Public Const WM_KEYUP = &H101
    Public Const VK_SPACE = &H20
End Module

[Viper]

Верно подмеченно, что поделаеш я любитель упустил изи виду, но в принципе в данном примере это не играет решающей роли.

В контексте не играет, но вообще использование константы vbNull вместо NULL (NULL в API, в VB - 0&) является грубой ошибкой.

[Viper]

Можешь скинуть свои объявления используемых API?

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

Public Module API
    <System.Runtime.InteropServices.DllImport("USER32.DLL")> _
    Public Function FindWindowA(ByVal ClassName As String, ByVal Windowtext As String) As Integer
    End Function

    <System.Runtime.InteropServices.DllImport("USER32.DLL")> _
    Public Function FindWindowExA(ByVal hWndParent As Integer, ByVal hWndChildAfter As Integer, ByVal ClassName As String, ByVal Windowtext As String) As Integer
    End Function

    <System.Runtime.InteropServices.DllImport("USER32.DLL")> _
    Public Function PostMessageA(ByVal hWnd As Integer, ByVal Message As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    End Function

    Public Const WM_KEYDOWN = &H100
    Public Const WM_KEYUP = &H101
    Public Const VK_SPACE = &H20
End Module

А почему используются ANSI-версии функций? По привычке VB6? Так при помощи атрибута System.Runtime.InteropServices.DllImport использование Unicode-версии API-функций становится легким и приятным.

[Joo]

А почему используются ANSI-версии функций? По привычке VB6? Так при помощи атрибута System.Runtime.InteropServices.DllImport использование Unicode-версии API-функций становится легким и приятным.

Да, все по привычке )) Да я их в принципе просто копировал из старых приложений при переносе.