Цитата(ProggerXandCo @ 19.8.2010, 16:07  ) | | но всё - таки я не понял, как можно управлять блокнотом через FindWindow. |
Да сколько ж можно то?
Модуль:
| Код |
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
(ByVal hwndParent As Long, _
ByVal hwndChildAfter As Long, _
ByVal lpszClass As Any, _
ByVal lpszWindow As Any) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Public Const WM_SETTEXT = &HC
|
Кнопка:
| Код |
Dim WindowHWND As Long
Dim EditHWND As Long
WindowHWND = FindWindow(vbNullString, "Безымянный - Блокнот")
EditHWND = FindWindowEx(WindowHWND, 0, "Edit", vbNullString)
SendMessage EditHWND, WM_SETTEXT, 0, ByVal CStr("Хелоу ворлд!")
|
|
)