请问哪位知道如何把当前所有的IE窗口都关闭掉。用vb程序实现。

[jisheng]

请问哪位知道如何把当前所有的IE窗口都关闭掉。用vb程序实现。

[griefforyou]

呵呵。。。

[绝缘]

枚举窗口，取窗口的名子的后面几位是“Microsoft Internet Explorer"
就用PostMessage将它关闭！

[suntt]

jisheng (古朴的狼) 呵呵，好久不见了

GetExitCodeProcess
ExitProcess估计可以

[TechnoFantasy]

Option Explicit

Dim dWinFolder As New ShellWindows
Dim eventIE As SHDocVw.InternetExplorer

Private Sub Command1_Click()
Dim objIE As Object

For Each objIE In dWinFolder
Set eventIE = objIE
eventIE.Quit
Next
temp=.9215204

End Sub

[TechnoFantasy]

在运行前。点击菜单 Projects ¦ References 项，在Available References 列表中选择Microsoft Internet Controls项将Internet对象引用介入到工程中

[TechnoFantasy]

sorry，上面的代码有错误：

Option Explicit

Dim dWinFolder As New ShellWindows
Dim eventIE As SHDocVw.InternetExplorer

Private Sub Command1_Click()
Dim objIE As Object

For Each objIE In dWinFolder
Set eventIE = objIE
eventIE.Quit
Next
End Sub

[jisheng]

谢谢：）