51Testing软件测试论坛

标题: 使用Sendkey报错 [打印本页]

作者: 活人不吃鱼 时间: 2014-12-8 15:31
标题: 使用Sendkey报错
想要用sendkey对chrome的弹窗进行操作，但是一直出现报错
分别用了以下两种形式的代码：
1、Window("Google Chrome").Window("www.stage.smartlionapp.com").SendKey TE_ENTER
2、Window("Google Chrome").Window("www.stage.smartlionapp.com").Activate
Call Sendkey "TE_ENTER"但是都报错对象不支持此属性，请问下该如何处理？

作者: 91safety 时间: 2014-12-8 16:46
要调用个VB的方法，键盘输入，QTP手册里有，回车键key值是13还是几，忘了，呵呵

作者: 赵佳乐SMILE 时间: 2014-12-9 09:19
'回车点击确定
Call SendKey("~")

作者: 活人不吃鱼 时间: 2014-12-9 10:02

赵佳乐SMILE 发表于 2014-12-9 09:19
'回车点击确定
Call SendKey("~")

我在help里找到回车键是“TE_ENTER”，但是现在的问题是sendkey功能用不来，报错说不支持该属性，不知道怎么修改才好

作者: 赵佳乐SMILE 时间: 2014-12-9 11:09

活人不吃鱼发表于 2014-12-9 10:02
我在help里找到回车键是“TE_ENTER”，但是现在的问题是sendkey功能用不来，报错说不支持该属性，不知道 ...

sendkey 我用的是重写的一个方法

作者: 活人不吃鱼 时间: 2014-12-10 13:40

赵佳乐SMILE 发表于 2014-12-9 11:09
sendkey 我用的是重写的一个方法

用了call sendkey，还是不行
代码如下： Window("Google Chrome").Window("www.stage.smartlionapp.com").Activate
Call Sendkey("~")
报错信息如下：
[attach]93239[/attach]

作者: 活人不吃鱼 时间: 2014-12-10 13:50
已解决该问题，原因是我没在脚本上写sendkey调用函数
具体函数如下：
Sub SendKey(keyValue)
Dim WshShell
set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys keyValue
Set WshShell = nothing
End Sub

谢谢smile！

作者: 赵佳乐SMILE 时间: 2014-12-10 17:40

活人不吃鱼发表于 2014-12-10 13:50
已解决该问题，原因是我没在脚本上写sendkey调用函数
具体函数如下：
Sub SendKey(keyValue)

不客气

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