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

Rank: 6Rank: 6

帖子
695 
积分
1692 
技术
61  
捐助
20  
注册时间
2011-3-31 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2013-4-18 19:53 | 只看该作者

[问题求助] VBS怎样循环检测窗口并按下回车键？

  1. Set objArgs = WScript.Arguments

  2. Do While CLng(Timer) < Timer + 10000

  3.         If CreateObject("wscript.shell").Appactivate(objArgs(0)) = True Then

  4.                 createobject("wscript.shell").sendkeys "{enter}"

  5.                 Exit Do

  6.         End If

  7. Loop
复制代码
这个是自动检测标题的，检测到这窗口后激活并按下回车键。
现在有个问题就是这样的，
按下回车键后，然后再次检测这个窗口还是否存在，不存在的话就退出。
如果还是存在的话就继续激活并按回车键。这样一直循环，直到检测到这个窗口不存在了为止。
收藏 分享

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2013-4-18 21:27 | 只看该作者
本帖最后由 yu2n 于 2013-4-18 21:40 编辑
这个是自动检测标题的，检测到这窗口后激活并按下回车键。
现在有个问题就是这样的，
按下回车键后，然后 ...
522235677 发表于 2013-4-18 19:53


试试以下代码，Win7 x64已测试。
  1. Set objArgs = WScript.Arguments

  2. Do While CreateObject("wscript.shell").Appactivate(objArgs(0)) = False

  3.     WScript.Sleep 200

  4.     If CreateObject("wscript.shell").Appactivate(objArgs(0)) = True Then

  5.         createobject("wscript.shell").sendkeys "{enter}"

  6.     End If

  7. Loop
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

522235677

Rank: 6Rank: 6

帖子
695 
积分
1692 
技术
61  
捐助
20  
注册时间
2011-3-31 
3楼
发表于 2013-4-19 10:37 | 只看该作者
回复 2# yu2n 
  1. start "" 2345pack3_k204849_120010026_v3.2.exe

  2. 

  3. 1.vbs 2345一键安装合集V3.2
复制代码
看这个用bat来调用的，这个可以激活窗口，但是没有按下回车键。

然后我直接运行cmd，把vbs 拖到窗口，然后空格，在输入”2345一键安装合集V3.2“。

这个可以的，但是测试几次后也不行了。也是只激活窗口不按回车键。

好奇怪的问题啊。

TOP

返回列表