51Testing软件测试论坛

标题: 关于QTP捕获键盘的方法 [打印本页]

作者: krinin 时间: 2007-11-28 12:50
标题: 关于QTP捕获键盘的方法
您好，我想问问怎么才能在QTP中捕获键盘的backspace按键啊。比如我在输入框输入：“给我留言”这么几个字，然后我又通过键盘退格键backspace删除它。我用QTP录制下来了，但回放的时候根本不能退格，没有任何动作。应该怎么做呢
我知道VBscript有sendkey方法。但我一直没搞懂VBcript在QTP中是怎么使用的。有人能把现成的代码贴出来吗，比较急，谢谢了

作者: zhumingwei 时间: 2007-11-28 12:57
你用的qtp是哪个版本?
9.2版本的可以录制 backspace键的

作者: krinin 时间: 2007-11-28 13:55
我就是用的QTP9.2

作者: krinin 时间: 2007-11-28 13:55
是http://www.1001m.com
这种网站

作者: gy21st 时间: 2007-11-28 14:17
sendkey都知道了还来发帖问，建议你把QTP帮助装上再敲入sendkey关键词进行搜索

举个例子吧

set oShell = CreateObject("WScript.Shell")
oShell.Run "Notepad"
wait 2
oShell.SendKeys "Message Please"
wait 0, 500
oShell.SendKeys "{BACKSPACE 14}"
wait 0, 500

set oShell = Nothing

作者: krinin 时间: 2007-11-28 14:41
标题: 比如我自动录制回退键是这段脚本，我应该怎么修改，这段脚本回放的时候没有用
Browser("梦境家园虚拟社区 | 1001m.com flash社区").Page("梦境家园虚拟社区 | 1001m.com flash社区").Frame("Frame").WinObject("MacromediaFlashPlayerActiveX").Type  micBack
Browser("梦境家园虚拟社区 | 1001m.com flash社区").Page("梦境家园虚拟社区 | 1001m.com flash社区").Frame("Frame").WinObject("MacromediaFlashPlayerActiveX").Type  micBack
Browser("梦境家园虚拟社区 | 1001m.com flash社区").Page("梦境家园虚拟社区 | 1001m.com flash社区").Frame("Frame").WinObject("MacromediaFlashPlayerActiveX").Type  micBack
Browser("梦境家园虚拟社区 | 1001m.com flash社区").Page("梦境家园虚拟社区 | 1001m.com flash社区").Frame("Frame").WinObject("MacromediaFlashPlayerActiveX").Type  micBack
Browser("梦境家园虚拟社区 | 1001m.com flash社区").Page("梦境家园虚拟社区 | 1001m.com flash社区").Frame("Frame").WinObject("MacromediaFlashPlayerActiveX").Type  micBack

作者: krinin 时间: 2007-11-28 14:52
zhumingwei知道怎么办吗。

作者: krinin 时间: 2007-11-28 17:46
gy21st 你的那段代码我应该放到我录制代码的那部分啊

作者: krinin 时间: 2007-11-29 12:44
有高手知道吗，还是我没有描述清楚

作者: gy21st 时间: 2007-11-29 15:02
每行代码之前wait一下

作者: krinin 时间: 2007-11-29 16:52
我设置的断点都没用。我一步一步执行的

作者: gy21st 时间: 2007-11-29 17:21
回放时没有用是什么意思？是根本不执行还是没有执行效果？如果没有执行效果，你要看看运行到这行语句的时候焦点在哪里，如果焦点根本不在这个控件上，你按再多backspace也没有用。

作者: wu52wen 时间: 2007-11-29 17:43
object("objectName").fireEvent("onFocue")
先把焦点定位到你要操作的对象上去!
然后创建一个模拟输入对象
KeyObject=CreateObject("WScript.Shell")
剩下的就是让输入对象做你想要的输入了
KeyObject.sendkey"{backSpace}" 就OK了

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