系统重启后,vbscript sendkeys只能运行一次

时间:2015-04-29 17:24:49

标签: vbscript qtp sendkeys

我有一个奇怪的情况,我无法找出原因并解决。

我使用HP UFT 11.52编写了一个脚本,用于在IE8上测试.net Web应用程序

以下是代码:

If Browser(x).Page(x).Frame(x).WebEdit(abc).Exist(0) Then
    Browser(x).Page(x).Frame(x).WebEdit(abc).Click
    Set objSSN=Createobject("Wscript.Shell")
    objSSN.SendKeys" "
    Set objSSN=Nothing
    Browser(x).Page(x).Frame(x).WebEdit(abc).Object.Focus()
    Browser(x).Page(x).Frame(x).WebEdit(abc).Set 100-10-1000
End If

在启动Windows笔记本电脑后运行脚本时,此代码运行正常。如果我第二次运行相同的代码,代码将不会进入空间,因此不会进入SSN。现在输入一个空格是必需的,因为单击webedit将导致空白选择,所以如果我用脚本输入内容,则会提供不正确的数据。

我的队友在虚拟机上运行这些脚本,在他的机器上运行此脚本没有问题。所以我怀疑IE或Windows中的某些设置需要修改。

任何人都可以帮我确定问题。

1 个答案:

答案 0 :(得分:0)

请尝试更改replay type to device然后Set空格

,而不是发送空格
If Browser(x).Page(x).Frame(x).WebEdit(abc).Exist(0) Then
    Setting.WebPackage("ReplayType") = 2 
    Browser(x).Page(x).Frame(x).WebEdit(abc).Set " " ' This may not be needed
    Browser(x).Page(x).Frame(x).WebEdit(abc).Set "100-10-1000"
    Setting.WebPackage("ReplayType") = 1 
End If