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

Rank: 1

帖子
12 
积分
17 
技术
0  
捐助
0  
注册时间
2012-9-2 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2012-10-8 19:57 | 只看该作者

[问题求助] 从一个程序中转到另一个程序操作时，怎样把焦点转移到下一个程序？

本帖最后由 cshiq 于 2012-10-8 20:01 编辑

功能：在任何程序上输入要查询的内容，调用VBS程序，直接用MDICT词典打开并显示查询结果。

VBS实现方式：
1、输入要查询的字词，剪切到剪切板上；打开MDICT程序。

该段代码为：

set WshShell=createobject("wscript.shell")
WshShell.sendkeys "+{HOME}"
WshShell.sendkeys "^{x}"

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "D:\MDictPC\MDict.exe"

2、回车（该程序回车可以定位到查询输入框）；粘贴；回车（确认查询）

该段代码为：

set WshShell=createobject("wscript.shell")
WshShell.sendkeys "{ENTER}"
WshShell.sendkeys "^{v}"
WshShell.sendkeys "{ENTER}"

如果分段执行，即先执行1段，再执行2段，可顺利实现查询。

现在将上面两个步骤合并执行，将上面两段代码合并为一个程序后，第二段要求在词典MDICT中执行的代码也在开始输入的程序中执行了，而不是在词典MDICT中执行。
比如说在记事本中输入要查询的“好”字，分开执行就可以在MDICT中查到“好”字的解释。合并在一起执行，它就在记事本中执行剪切、回车、再复制、回车等操作。

请帮助修改，实现上面两段代码一并执行时，第二段代码能在词典MDICT执行的方案。
收藏 分享

wc726842270

Rank: 7Rank: 7Rank: 7

帖子
1107 
积分
4218 
技术
37  
捐助
0  
注册时间
2010-6-8 
2楼
发表于 2012-10-8 20:15 | 只看该作者
每个步骤都做一下延时
枫中残雪：风停了，我的心却在动，让我心中的寒意走向远方

TOP

cshiq

Rank: 1

帖子
12 
积分
17 
技术
0  
捐助
0  
注册时间
2012-9-2 
3楼
发表于 2012-10-8 20:36 | 只看该作者
每个步骤都做一下延时
wc726842270 发表于 2012-10-8 20:15


延时之后，在后一个程序是已经打开了的情况下可以把焦点转到后一个程序，如果后一个程序没有打开的话，问题依旧。

TOP

forfiles

Rank: 8Rank: 8

帖子
571 
积分
5364 
技术
29  
捐助
0  
注册时间
2012-6-7 
4楼
发表于 2012-10-8 22:21 | 只看该作者 
  1. objShell.Appactivate "窗口标题"
复制代码

TOP

cshiq

Rank: 1

帖子
12 
积分
17 
技术
0  
捐助
0  
注册时间
2012-9-2 
5楼
发表于 2012-10-9 05:22 | 只看该作者
请行家帮忙改一个完整的，谢谢。

TOP

返回列表