Платные хостинги     Раскрутка сайта     Книги по программированию

Вычислить hwnd кнопки ОК другого приложения, SendMessage в чужую программу

- Код Private Declare Function SendMessage Lib "user32" _Alias "SendMessageA" _(ByVal hWnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _ByVal lParam As Long) As LongPrivate Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA" (ByVal hWndParrent As Long, ByVal hWndChildren As Long, ByVal lpClassName As String, ByVal lpWindowName As String)Private Const WM_LBUTTONUP = &H202Private Const WM_LBUTTONDOWN = &H201Private Sub Command1_Click()Dim sCaption As String, hOK As Long, hW As String, retval As LongsCaption = "О программе " & """" & "Блокнот" & """"'Хэндл окнаhW = FindWindow(vbNullString, sCaption)'Хэндл кнопкиhOK = FindWindowEx(hW, 0, "button", vbNullString)'Почему-то нужно вызывать ф-ции по два раза(?)retval = SendMessage(hOK, WM_LBUTTONDOWN, 0, 0)retval = SendMessage(hOK, WM_LBUTTONUP, 0, 0)retval = SendMessage(hOK, WM_LBUTTONDOWN, 0, 0)retval = SendMessage(hOK, WM_LBUTTONUP, 0, 0)End SubhighlightSyntax('vbI2NzAz','vb');Text1 я убрал - он не нужен. С уважением, Run-time error.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD