qtp之键盘操作

于 2011-12-24 21:04:00 发布 · 94 阅读

文章标签：

本文介绍了一种利用VBScript进行键盘模拟操作的方法。通过创建WScript.Shell对象并结合Window对象，可以实现打开记事本应用、激活窗口、模拟发送键盘按键等操作。这些操作包括发送ALT键及方向键来导航菜单，并使用Enter键确认选项。

'************************************************************************************************
'键盘操作
'*************************************************************************************************
Dim WshShell
SystemUtil.Run "C:\WINDOWS\system32\notepad.exe","","C:\Documents and Settings\Administrator","open"
Set WshShell = CreateObject("WScript.Shell") '创建WScript.Shell对象
Window("记事本").Activate '激活当前的记事本窗口
WshShell.SendKeys "%" '发送 ALT键
WshShell.SendKeys "{RIGHT}" '发送向右箭头
WshShell.SendKeys "{RIGHT}" '发送向右箭头
WshShell.SendKeys "{RIGHT}" '发送向右箭头
WshShell.SendKeys "{RIGHT}" '发送向右箭头
WshShell.SendKeys "{DOWN}" '发送向下箭头
WshShell.SendKeys "{ENTER}" '发送Enter键，确认选择帮助下拉列表中的帮助主题项
Window("记事本").Type micAltDwn + micF4 + micAltUp 'ALT+F4关闭