[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-3-2 20:07 | 只看该作者

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

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

gm8800

Rank: 3Rank: 3

帖子
24 
积分
201 
技术
0  
捐助
0  
注册时间
2008-4-15 
2楼
发表于 2015-3-2 20:49 | 只看该作者
我有个用AU3做的脚本,只要在配置文件里添加想要关闭的窗口的标题关键词,就可以实现自动关闭,但是必须该窗口在最前面

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
3楼
发表于 2015-3-3 01:04 | 只看该作者
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

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

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
4楼
发表于 2015-3-3 01:06 | 只看该作者
期待坛友们版主大人们帮助下我吧

TOP

happyxxdhaha

Rank: 2

帖子
30 
积分
159 
技术
7  
捐助
0  
注册时间
2009-12-5 
5楼
发表于 2015-3-3 12:05 | 只看该作者
回复 3# wh1234567 
  1. Dim a, b

  2. Set a = WScript.CreateObject("WScript.Shell")

  3. b=1

  4. Do

  5. If b=100 then Exit Do

  6.     If a.AppActivate("完成") Or a.AppActivate("激 活") Or a.AppActivate("go ber") Then

  7. 	WScript.Sleep 800

  8. 	a.SendKeys "%{F4}"

  9.     b=b+1

  10.     Else

  11.     Exit Do

  12.     End If

  13. Loop

  14. Set a=Nothing

  15. Set b=Nothing
复制代码
Life is a balance.

TOP

happyxxdhaha

Rank: 2

帖子
30 
积分
159 
技术
7  
捐助
0  
注册时间
2009-12-5 
6楼
发表于 2015-3-3 12:07 | 只看该作者
本帖最后由 happyxxdhaha 于 2015-3-3 15:31 编辑 
  1. @echo off&setlocal

  2. set str="完成" "激 活" "go ber"

  3. for %%i in (%str%) do call :sub %%i

  4. goto:eof

  5. 

  6. :sub

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

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
7楼
发表于 2015-3-3 13:30 | 只看该作者
回复 5# happyxxdhaha

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

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
8楼
发表于 2015-3-3 13:31 | 只看该作者
本帖最后由 wh1234567 于 2015-3-3 13:42 编辑

回复 6# happyxxdhaha


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

TOP

DAIC

Rank: 8Rank: 8

帖子
2874 
积分
7021 
技术
336  
捐助
0  
注册时间
2011-6-2 
9楼
发表于 2015-3-3 13:32 | 只看该作者
回复 8# wh1234567


    你认为6楼哪个命令是第三方？
sed.exe  gawk.exe  grep.exe  下载地址

TOP

happyxxdhaha

Rank: 2

帖子
30 
积分
159 
技术
7  
捐助
0  
注册时间
2009-12-5 
10楼
发表于 2015-3-3 15:34 | 只看该作者
回复 8# wh1234567


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

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
11楼
发表于 2015-3-3 17:06 | 只看该作者
回复 10# happyxxdhaha

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

TOP

happyxxdhaha

Rank: 2

帖子
30 
积分
159 
技术
7  
捐助
0  
注册时间
2009-12-5 
12楼
发表于 2015-3-3 18:05 | 只看该作者
本帖最后由 happyxxdhaha 于 2015-3-3 18:06 编辑

回复 11# wh1234567


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

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
13楼
发表于 2015-3-3 18:51 | 只看该作者
回复 12# happyxxdhaha

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
14楼
发表于 2015-3-8 13:25 | 只看该作者
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  

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

TOP

返回列表