[系统相关] BAT或VBS如何关闭多个指定标题的IE窗口？

wh1234567

1.用VBS代码如何关闭多个指定标题的IE窗口？
2.用bat代码如何关闭多个指定标题的IE窗口？
高手能不能帮我分别写个代码，顺便祝福大家新春快乐万事如意。
多个指定标题例如:关键词“完成”“激 活”“go ber”

gm8800

我有个用AU3做的脚本,只要在配置文件里添加想要关闭的窗口的标题关键词,就可以实现自动关闭,但是必须该窗口在最前面

wh1234567

Dim a,b
Set a=WScript.CreateObject("WScript.shell")
b=1
Do
if b=30 then exit do
wscript.sleep 800
     If a.AppActivate("完成") = True Then
         a.SendKeys "%{F4}{F4}{F4}"
  b=b+1
Else
     exit do
        End If
Loop
set a=nothing

哪位能帮我修改下，可以加多个窗口标题的关键词的那种。上面这个代码只能处理一个关键词"完成")

wh1234567

期待坛友们版主大人们帮助下我吧

happyxxdhaha

回复 3# wh1234567

Dim a, b
Set a = WScript.CreateObject("WScript.Shell")
b=1
Do
If b=100 then Exit Do
    If a.AppActivate("完成") Or a.AppActivate("激 活") Or a.AppActivate("go ber") Then
	WScript.Sleep 800
	a.SendKeys "%{F4}"
    b=b+1
    Else
    Exit Do
    End If
Loop
Set a=Nothing
Set b=Nothing
复制代码

happyxxdhaha

@echo off&setlocal
set str="完成" "激 活" "go ber"
for %%i in (%str%) do call :sub %%i
goto:eof

:sub
for /f "tokens=2" %%i in ('tasklist /nh /v^|findstr /c:"%~1"') do taskkill /fi "imagename eq iexplore.exe" /pid %%i
复制代码

wh1234567

回复 5# happyxxdhaha

很感谢您的帮助，这个代码不知道为什么会将别的窗口也会关闭掉的，但我将我发的代码按照你的或者关系只修改了上面的这个代码才正常了，不知道为什么？    If a.AppActivate("完成") = True Then

wh1234567

回复 6# happyxxdhaha


    这个批处理无法执行，不知道咋回事？另外多个指定标题的关键词“完成”“激 活”“go ber”在批处理代码里能不能弄成按逗号隔开？例如 set str=完成，激 活，go ber  或者用引号隔开也行“完成”，“激 活”，“go ber”
防止关键词包含空格而导致无法正常处理。也防止错误将别的窗口误关闭。

DAIC

回复 8# wh1234567


    你认为6楼哪个命令是第三方？

happyxxdhaha

回复 8# wh1234567


    6楼的代码我又改了一下，你测试下，不能执行的话，你看看报错信息是什么？

wh1234567

回复 10# happyxxdhaha

依然不行， 显示   
错误: 系统找不到指定的文件。.
错误: 系统找不到指定的文件。.

happyxxdhaha

回复 11# wh1234567


    你把@echo off去掉 ，看看是哪段代码报错，最好截个图。

wh1234567

回复 12# happyxxdhaha

wh1234567

on error resume next
Title="完成,激 活,go ber"
set s=createobject("shell.application")
for each w in s.windows
if instr(1,w.type,"HTML") > 0 then
if instr(1,Title,w.locationname) >0 then w.quit
end if
next  

这段代码为什么不能有效执行呢？