qtp中sendkeys的使用注意

  昨天在群里看到一哥们对于他们产品中的list进行翻页，翻页的需求为直接输入页码后点击enter实现翻页功能，我进行手动输入页码时可以使用sendkeys进行点击enter，但是使用set进行写入页码时sendkeys就无法使用了。

  在经过青羊童鞋的提示“可能是当前的输入框已经输入焦点。”对于脚本进行修改后可以对百度进行使用了,代码如下

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").set"14"
Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Click
wait 5
set  WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys  "{ENTER}"
Set WshShell = nothing
但是我在我们公司的web站点试验时又再次失败了：

Browser("Login").Page("Login").WebEdit("UserName").Set "admin"

Browser("Login").Page("Login").WebEdit("Password").SetSecure"5191d4f8275396cfb6717d8dabf9c04c6de0"

Browser("Login").Page
Browser("Login").Page("Login").WebButton("登录").Click
Browser("Login").Page("Home").Link("项目管理").Click
Browser("Login").Page("Home").Link("项目管理_2").Click
Browser("Login").Page("Object").WebEdit("WebEdit").Set  "5"
Browser("Login").Page("Object").WebEdit("WebEdit").Click
Dim wshell
Set wshell= CreateObject("Wscript.Shell")
wshell.SendKeys"{ENTER}"
Set wshell=nothing
wait 10

发现每次输入5后在最后执行enter的时候都变成了1

经过青羊童鞋的提醒后，发现在进入页面时网站为异步加载，在输入页码后加载完成后会再次刷新。所以需要在输入页码前添加一个wait时间保证list加载完成。