WshShell对象常用方法介绍——精彩抢先看

Title为需要激活窗口的title属性值，也就是标题或者是ProcessID。

●返回值：

布尔类型，如果当前窗口被激活，返回True，反之返回False。

实例：

完成一个打开记事本，循环判断其是否被激活，一旦窗口被激活成功之后即输入字符串“zzxxbb112”。

'创建WSH对象

SetoWshShell=CreateObject("wscript.shell")

'启动notepad记事本应用

oWshShell.Run"notepad"

'循环等待记事本页面是否被激活，没有激活就一直循环直到激活为止

WhileNotoWshShell.AppActivate("无标题-记事本"):Wend

'发送字符串zzxxbb112

oWshShell.SendKeys"zzxxbb112"

'释放对象

SetoWshShell=Nothing

分析：

执行以上脚本后可以看到，脚本自动启动了记事本后，在记事本中输入了zzxxbb112字符串，看似非常简单，其实对于新手来说还是比较容易出错，如果此处没有“WhileNotoWshShell.AppActivate("无标题-记事本"):Wend”这一步骤，zzxxbb112可能就无法输入到被打开的记事本中去，接下来我们就仔细探究竟。

比较两个脚本的运行结果。

（1）脚本1：

'激活记事本窗口

oWshShell.AppActivate("无标题-记事本")

'提示消息框

Msgbox“suc”

（2）脚本2：

'循环等待记事本激活

脚本1执行结果如图3-43所示。

图3-43

脚本2执行结果如图3-44所示。

图3-44

这个例子非常经典，在对比了这两脚本执行结果之后应该很明显地看到，第一个是在窗口激活之前就弹出消息框了，由于记事本挡住了，因此这里看不出。虽然已经在脚本中加入了AppActivate方法来激活记事本窗口了，但是由于脚本执行速度比激活窗口快很多倍，因此脚本执行激活窗口时，往往是还没来得及等窗口激活，就已经执行了下一句弹出消息框脚本了，就会出现不想看到的局面。但脚本2就很好地避免了这样的问题，通过循环遍历了对象的激活状态，同步窗口的激活状态，一旦窗口激活后才弹出消息框，这样的做法是最安全的。可以在图3-43中明显地看到消息弹出框在记事本前面，很明显此处的消息弹出框是在记事本窗口激活后才弹出的。