我用了这个个代码
Private Sub filter()
Dim objIE As Object
Dim i As Integer
On Error Resume Next
For Each objIE In dWinFolder
If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
kk = InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare)
For i = 1 To kk - 1
 objIE.Quit
Exit For
Next i
End If
Next
objIE = Nothing
End Sub

如果用户电脑上没有taskill.exe那怎么办？所以说这种方法是不可靠的。
用API函数“EnumWindows”和“GetWindowLong”是最标准的。
参见[url]http://topic.[/url]

打包taskkill.exe,前面已经说过了,这个方法最简单,对于初学者来说

那倒是可以。我曾经遇到过一个只知道用shell语句的人，他实现什么功能都是靠调用别的程序来实现的…………（我没有别的意思哈）

囧~~~