QTP模板

'-------------------脚本说明---------------
'测试对象:     
'测试员:  David Gao
'编写日期:
'测试功能:
'进展程度:
'基本思路:
'主要功能函数:
'没解决的问题:
'--------------------脚本内容-------------
wait 5
Dim firstTitle
firstTitle = Browser("micClass:=Browser").Page("micClass:=Page").GetROProperty("title")
Do while firstTitle="找不到服务器"
 Browser("micClass:=Browser").Refresh
Loop

Dim objectCount, tags, element, innerText()
Set tags=Browser("Browser").Page("Page").Object.all

objectCount=0
For Each element in tags
    If Ucase(element.tagname)="A" Then
  ReDim Preserve innerText(objectCount+1)
        innerText(objectCount)=element.InnerText
     ōbjectCount=objectCount+1
    end if
Next