51Testing软件测试论坛

标题: QTP 模拟小键盘操作 [打印本页]

作者: xuefeng 时间: 2010-4-14 22:54
标题: QTP 模拟小键盘操作
由于被测试系统是银行项目，很多操作都是功能键和小键上的操作，现在要模拟小键盘上的*号键，有什么办法来实现。
用以下代码只能模拟出功能键的操作：
如：以下代码实现模拟键盘按F1功能键，我现在想实现模拟小键盘上的“*”号键，怎么实现？
Dim WshShell
set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys "{F1}"
Set WshShell = nothing

作者: superliming 时间: 2010-4-15 15:42
有*的符号

作者: xuefeng 时间: 2010-4-16 18:13
用 WshShell.SendKeys "*"
用 WshShell.SendKeys "=8"

用Extern.Declare micVoid,"keybd_event","user32","keybd_event",micByte,micByte,micLong,micLong

Extern.keybd_event 106,0,0,0
都不成，感觉是被测试程序收不到焦点

作者: 17800455 时间: 2010-4-20 09:29
标题: 回复 1# 的帖子
SendKeys "+{8}" 就会输出*了

作者: wuei9090 时间: 2010-4-20 10:46
2楼正解
用小键盘的话调windows api是最好用的..
那些什么直接输入内容的大部分区分不了大小键盘

extern.Declare micvoid,"keybd_event","user32.dll","keybd_event",micByte,micByte,micLong,micLong
extern.keybd_event 96,0,0,0
extern.keybd_event 96,0,2,0
96是小键盘上0的键盘码第三个参数0是键盘按下动作，2是键盘弹起动作

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)