hwnd ???

[artyuha]

Задам, наверное, страшно ламерский вопрос . Как найти hWnd нужного мне окна? ЧесСлово искал по форуму но не нашёл.

[GM]

Щас сделаем оперативный ответ
Поиск за именем окна или классом.

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Пример:

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

  Wnd = FindWindow(vbNullString, "Названия окна")


[vvs_adm]

Задам, наверное, страшно ламерский вопрос . Как найти hWnd нужного мне окна? ЧесСлово искал по форуму но не нашёл.

Нда... Я подумал, что это прикол Задал поиск по hWND по форуму. Действительно, хрен найдешь, если не знаешь вообще

[artyuha]

Тогда ещё маленький вопросик. Как передать фокус этому окну?

[artyuha]

Неуш-то ни кто не знает?

[GM]

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

Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long


[artyuha]

Чё-то не черта . Выдаёт код - 0.

[GM]

Какой с поиском, или с PutFocus.
Если второй то попробуй:

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

Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long


или

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

Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long


[artyuha]

Спасибо выручил, 2-е пошло с ходу.

[artyuha]

Что за дело не пойму. Тут же выхожу из Ме, где всё работает и захожу в 2000 FindWindow не работет.

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim wnd as Long
wnd = FindWindow(vbNullString, "Компас-3D LT 5.11. Только для ознакомительных и учебных целей")


[SeT]

А как можно "убить" форму?

[A.A.Z.]

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

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_CLOSE As Long = &H10&

PostMessage Wnd, WM_CLOSE, 0, ByVal 0&