关于QTP捕获键盘的方法

krinin

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

wu52wen

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

gy21st

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

krinin

我设置的断点都没用。我一步一步执行的

gy21st

每行代码之前wait一下

krinin

有高手知道吗，还是我没有描述清楚

krinin

gy21st  你的那段代码我应该放到我录制代码的那部分啊

krinin

zhumingwei知道怎么办吗。

krinin

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

gy21st

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

是http://www.1001m.com
这种网站

krinin

我就是用的QTP9.2

zhumingwei

你用的qtp是哪个版本?
9.2版本的可以录制 backspace键的