如果只是关闭,只需要findwindow即可,然后postmessage,发送WM_QUIT消息
以下是关闭IE的小程序
Option Explicit
Private Const WM_QUIT = &H12
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 Sub Command1_Click()
Dim Handle As Long
Handle = FindWindow("IEFrame", vbNullString)
If Handle <> 0 Then
PostMessage Handle, WM_CLOSE, 0, 0
End If
End Sub