vbs脚本关闭所有IE程序

原创 wintop  2019-08-18 14:15:07  阅读 173 次 评论 0 条
摘要:

原因:有个自动刷新的程序,几天会卡死一次,想做一个自动关闭打开的vbs 脚本。代码:Set wmi=GetObject("winmgmts:\\.")    Set pro_s=wmi.instancesof("win32_process")        For Each p In pro_s&nbs

原因:有个自动刷新的程序,几天会卡死一次,想做一个自动关闭打开的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,需要把提示确认关闭。

本文地址:http://www.wintop.org/post/31.html
版权声明:本文为原创文章,版权归 wintop 所有,欢迎分享本文,转载请保留出处!

发表评论


表情

还没有留言,还不快点抢沙发?