- 帖子
- 16
- 积分
- 32
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2010-2-14
|
2楼
发表于 2012-9-4 14:21
| 只看该作者
找到一个,如何改成在1分钟内都有效呢?
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 |
|