qtp之键盘操作

'************************************************************************************************
'键盘操作
'*************************************************************************************************
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关闭