各位大哥：怎么用vb关闭所有打开的IE浏览器，在线等！

Question

怎么用vb关闭所有打开的IE浏览器

Answer 1

Private Const WM_CLOSE = &H10
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 Longpublic sub closeIE()
    Dim Handle As Long
    Handle = FindWindow("IEFrame", vbNullString)
    If Handle <> 0 Then
        PostMessage Handle, WM_CLOSE, 0, 0
    End If
end sub

Answer 2

定时器定时执行closeIEPrivate Sub Form_Load()
    Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
    closeIE
End Sub