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

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

赵佳乐SMILE

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

活人不吃鱼

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

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

赵佳乐SMILE

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

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

活人不吃鱼

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

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

活人不吃鱼

已解决该问题，原因是我没在脚本上写sendkey调用函数
具体函数如下：
Sub SendKey(keyValue)
Dim WshShell
set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys keyValue
Set WshShell = nothing
End Sub

谢谢smile！

赵佳乐SMILE

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

不客气