活人不吃鱼 发表于 2014-12-8 15:31:39

使用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:44

要调用个VB的方法，键盘输入，QTP手册里有， 回车键key值是13还是几，忘了，呵呵

赵佳乐SMILE 发表于 2014-12-9 09:19:38

'回车点击确定   
    Call SendKey("~")   

活人不吃鱼 发表于 2014-12-9 10:02:07

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

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

赵佳乐SMILE 发表于 2014-12-9 11:09:54

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

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

活人不吃鱼 发表于 2014-12-10 13:40:36

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

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

活人不吃鱼 发表于 2014-12-10 13:50:30

已解决该问题，原因是我没在脚本上写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:19

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


不客气
页: [1]
查看完整版本: 使用Sendkey报错