QTP9.2页面刷新问题求助

bfckop

对web页面测试时，需要经常刷新充值页面。设计了一个函数，在调用时，采用refresh和模拟F5两种方法，但是会出现页面假死情况，脚本停顿，直到失败。如果在卡住时，手工F5，则可继续。说明浏览器是没有假死的，程序页面卡住。环境是winxpsp3+qtp9.2+ie6.0。请各位帮忙看下有否更好的刷新方式。

1. Public Function Func_Refresh(Bill_Num)
   
2. 
   
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
    
51. 
    
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

我遇到卡住的原因基本都是由于操作对象不存在。你在卡住的地方暂停一下qtp看那些操作前的对象是否存在，比如Browser("micClass:=Brower").refresh的Browser("micClass:=Brower")对象是否存在。如果不存在，那就应该是等待时间没有设置好