如何关闭IE的窗口

Question

想在vb写的程序中实现关闭(特定的)IE窗口的功能(窗口标题是固定的),用FindWindow函数可以找到窗口句柄，但发送sendmessage 函数，无法关闭,请问原因是什么？
代码入下：
Dim h As Long
h = FindWindow(vbNullString, "about:blank - Microsoft Internet Explorer")
if h > 0 Then
   h = SendMessage(h, WM_CLOSE, 0, 0)
End If

Answer 1

引用MIcrosoft Internet Controls库Dim K As Object, S As New ShellWindows
On Error Resume Next
For Each K In S
  K.Quit
Next K