原因：有个自动刷新的程序，几天会卡死一次，想做一个自动关闭打开的vbs 脚本。
代码：
Set wmi=GetObject("winmgmts:\\.")
Set pro_s=wmi.instancesof("win32_process")
For Each p In pro_s
if p.name="IExplore.exe" then p.terminate()
Next上面这段代码兼容性不是太好，偶尔会报错，影响计划任务执行，错误关键词：80041002 swbemobjectex
下面的代码是改进版本：
Dim SHAPp, SHWin Set SHApp = CreateObject("Shell.Application") For Each SHWin In SHApp.windows If LCase(Right(SHWin.FullName, 12)) = "iexplore.exe" Then SHWin.Quit Next Set SHApp = Nothing
上面的代码兼容性好，但是对于打开多个选项卡的IE，需要把提示确认关闭。
添加新评论