Как завершить чужую программу, зная ее hwnd.

[Alfa]

Я понимаю, что вопрос давно проскальзывал. Мне надо завершить программу, знаю ее hwnd. Завершить без всяких окон сохранения. За миг. Пробывал отсылать сообщение WM_DESTROY. С блокнотом проходит, а например с Explorer, IE нет.
Как завершить?

[SSSerj]

А SendKeys чем не подходит

AppActivate hwnd, True
SendKeys "%{F$}", True

Данная комбинация закроет и Explorer, IE. А вот с вордом посложнее.

[Alfa]

Помогите пожалуйства.[/quote]

[Sebas]

ты имеешь ввиду хендл окна?

если да, то по нему можно найти ИД процесса, ну и TerminateProcess

[Alfa]

Я пытаюсь так:

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

a = Shell("calc.exe", vbNullString)
TerminateProcess(a, 0)


Ничего не выходит.
Но при

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

a = GetCurrentProcess
TerminateProcess(a, 0)


Все замечательно. VB закрывается...

[Alfa]

Сейчас попытался функцией TerminateProcess закрыть все окна с 1 по 10000000. Результат отрицательный. Не одно не закрылось!
Люди, научите пожалуйства закрывать так окна. Мне очень нужно для проекта! Пожалуйства.

[ShadowCaster]

Declare Function GetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Const PROCESS_ALL_ACCESS = &H1F0FFF

Sub KillByhWnd(ByVal hWnd as Long)
dim h1 as long, h2 as long
GetWindowThreadProcessId hWnd, h1
h2 = openprocess(PROCESS_ALL_ACCESS, false, h1)
TerminateProcess(h2)
CloseHandle(h2)
End Sub