51Testing软件测试论坛

标题: QTP9.2页面刷新问题求助 [打印本页]
作者: bfckop    时间: 2012-8-22 11:30
标题: QTP9.2页面刷新问题求助
对web页面测试时，需要经常刷新充值页面。设计了一个函数，在调用时，采用refresh和模拟F5两种方法，但是会出现页面假死情况，脚本停顿，直到失败。如果在卡住时，手工F5，则可继续。说明浏览器是没有假死的，程序页面卡住。环境是winxpsp3+qtp9.2+ie6.0。请各位帮忙看下有否更好的刷新方式。
  1. Public Function Func_Refresh(Bill_Num)

  3.         Set WShell = CreateObject("Wscript.shell")
  4.         WShell.sendkeys "{F5}"  
  5.         Set WShell = nothing
  6.         Wait(1)
  7.         Str_information = Browser("micClass:=Brower").Page("micClass:=Page").Frame("计费号码").WebEdit("计费号码").GetROProperty("value")
  8.         If Str_information <> "" Then
  9.                 Browser("micClass:=Brower").Refresh
  10.         End If
  11.         If Not Browser("micClass:=Brower").Page("micClass:=Page").Frame("Frame").WebEdit("菜单查询").Exist(1) Then
  12.                 Browser("micClass:=Brower").Page("micClass:=Page").Frame("计费号码").WebEdit("计费号码").Click
  13.                 Set WShell = CreateObject("Wscript.shell")
  14.                 WShell.sendkeys "{F5}"
  15.                 Set WShell = nothing
  16.         End If
  17.         Wait(2)
  18.         If Browser("micClass:=Brower").Page("micClass:=Page").Frame("计费号码").WebEdit("计费号码").Exist(2) Then
  19.                 Browser("micClass:=Brower").Page("micClass:=Page").Frame("计费号码").WebEdit("计费号码").Set Bill_Num
  20.                 WShell.sendkeys "{Enter}"
  21.                 Set WShell = nothing
  22.         Else
  23.                 Browser("micClass:=Brower").Refresh
  24.         End If
  25.         i=0
  26.         Do While Not Browser("micClass:=Brower").Page("micClass:=Page").Frame("Frame").WebEdit("菜单查询").Exist(1)
  27.                 i=i+1
  28.                 If Not Browser("micClass:=Brower").Page("micClass:=Page").Frame("计费号码").WebEdit("计费号码").Exist(1) Then
  29.                         Browser("micClass:=Brower").Refresh
  30.                 Else
  31.                         Browser("micClass:=Brower").Sync
  32.                         Browser("micClass:=Brower").Page("micClass:=Page").Frame("计费号码").WebEdit("计费号码").Click
  33.                         Set WShell = CreateObject("Wscript.shell")
  34.                         WShell.sendkeys "{F5}"
  35.                         Set WShell = nothing        
  36.                 End If         
  37.                 If Browser("micClass:=Brower").Page("micClass:=Page").Frame("计费号码").WebEdit("计费号码").Exist(5) Then
  38.                         Browser("micClass:=Brower").Page("micClass:=Page").Frame("计费号码").WebEdit("计费号码").Set Bill_Num
  39.                         Set WShell = CreateObject("Wscript.shell")
  40.                         WShell.sendkeys "{Enter}"
  41.                         Set WShell = nothing
  42.                         Bill_Num = Browser("micClass:=Brower").Page("micClass:=Page").Frame("计费号码").WebEdit("计费号码").GetROProperty("value")
  43.                         If Bill_Num<>"" Then
  44.                                 Exit Do
  45.                         End If
  46.                 End If
  47.                 If i=10 Then
  48.                         Exit Do
  49.                 End If
  50.         Loop

  52.         If Window("InternetExplorer脚本错误").Exist(2) Then
  53.                 While Window("InternetExplorer脚本错误").Exist(1)
  54.                         Window("InternetExplorer脚本错误").Close
  55.                 Wend
  56.         End If
  57.         Func_CloseInformation
  58. End Function
复制代码
作者: xjwldlover    时间: 2012-8-22 11:41
我遇到卡住的原因基本都是由于操作对象不存在。你在卡住的地方暂停一下qtp看那些操作前的对象是否存在，比如Browser("micClass:=Brower").refresh的Browser("micClass:=Brower")对象是否存在。如果不存在，那就应该是等待时间没有设置好



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2