Close another exe. How?

[tilotama]

How can i thru a VB executable program, close another opened window which is a FLASH exe? Is that possible?

thanx

 

[mmilan]

Use Send/PostMessage API call to send a WM_QUIT message- though it's a long time since I played with messaging...

 

[azrobert]

I got this code form someone here and changed it a little. it works well for what I am doing. it used the from name to find the program and close it.


Option Explicit

Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long

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

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

Private Declare Function IsWindow Lib "user32" _
(ByVal hwnd As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, _
lpdwProcessId As Long) As Long

'Constants that are used by the API
Const WM_CLOSE = &H10
Const INFINITE = &HFFFFFFFF
Const SYNCHRONIZE = &H100000


Public Function ClosePos()

Dim hWindow As Long
Dim hThread As Long
Dim hProcess As Long
Dim lProcessId As Long
Dim lngResult As Long
Dim lngReturnValue As Long
Dim ApptoKill As String
Dim fk As String

Open "c:\AppKill.txt" For Input As #10

Line Input #10, fk
ApptoKill = fk
Close #10

hWindow = FindWindow(vbNullString, ApptoKill)
hThread = GetWindowThreadProcessId(hWindow, lProcessId)
hProcess = OpenProcess(SYNCHRONIZE, 0&, lProcessId)
lngReturnValue = PostMessage(hWindow, WM_CLOSE, 0&, 0&)
lngResult = WaitForSingleObject(hProcess, INFINITE)

'Does the handle still exist?
DoEvents
hWindow = FindWindow(vbNullString, ApptoKill)
If IsWindow(hWindow) = 1 Then
'The handle still exists. Use the TerminateProcess function
'to close all related processes to this handle. See the
'article for more information.
ClosePos

Else
'Handle does not exist.

End If
StartPos
End Function