QTP实践-----回复验证论坛板块中帖子的测试用例

'初始准备数据：在默认版块里发布两个帖子，帖子的标题均为“用例1“，发布测试用例。
'eg:    3+2=5
'       1+3=4
'开启浏览器，在地址栏输入“”http://localhost:8089/phpwind/upload/index.php"，用户登录网站，进入论坛，点击默认版块，进入默认版块页面

Set mylink=description.Create()
mylink("html tag").value="A"
mylink("text").value="用例1"
Set myobject=Browser("用例1|默认版块 - phpwind - Powered").Page("默认版块 - phpwind - Powered"). childObjects(mylink)
v=myobject.count
print "默认版块中的子链接对象的个数为："+cstr(v)

For  i=0 to v-1
 mylink("index").value=i
 '点击进入了默认版块的第i+1个的用例1页面
 Browser("用例1|默认版块 - phpwind - Powered").Page("默认版块 - phpwind - Powered").Link(mylink).click
 '点击默认版块的第i+1个的用例1页面里的帖子
    Browser("用例1|默认版块 - phpwind - Powered").Page("用例1|默认版块 - phpwind - Powered").WebElement("mycon").Click    
 '获得帖子的内容
    msg= Browser("用例1|默认版块 - phpwind - Powered").Page("用例1|默认版块 - phpwind - Powered").WebElement("mycon").GetROProperty("innerhtml")
    print "用例中的数据为："+msg
    MyArray=split(msg,"<BR>",-1,1)
    a=ubound(MyArray)-lbound(MyArray)+1

    Browser("用例1|默认版块 - phpwind - Powered").Page("用例1|默认版块 - phpwind - Powered").Link("回复").Click
    Browser("用例1|默认版块 - phpwind - Powered").Page("phpwind - Powered by phpwind").Frame("Frame").WebElement("WebElement").click
'依次取出帖子中的每一行用例数据，并进行验证回复
 For ix=0 to a-1
  nexArray=split(MyArray(ix),"=",-1,1)            '开始对帖子中的第ix行的用例数据进行分析验证
  cx=nexArray(0)                '该用例等号左边的表达式
                                        print "该用例左边："+cx
  mylen=len(cx)
        bx=nexArray(1)             '该用例等号右边的结果
                                         print "该用例右边"+bx
          Window("计算器").Activate
       For vb=1 To mylen
    Window("计算器").WinButton(cstr(mid(cx,vb,1))).Click
       Next
         Window("计算器").WinButton("=").Click
   var=Window("计算器").WinEdit("Edit").GetROProperty("text")
      If cdbl(bx)=cdbl(var) then
       print "pass"
                f=f+"the case is passed；"
                Browser("用例1|默认版块 - phpwind - Powered").Page("phpwind - Powered by phpwind").Frame("Frame").WebElement("myhuifu").object.innertext=f
      else
        print "fail"
     f=f+"the case is fail"
         End If 
     Next
  Browser("用例1|默认版块 - phpwind - Powered").Page("phpwind - Powered by phpwind").Frame("Frame").WebElement("myhuifu").object.innertext=f
  Browser("用例1|默认版块 - phpwind - Powered").Page("phpwind - Powered by phpwind").WebButton("发 布").Click
     Browser("用例1|默认版块 - phpwind - Powered").Page("用例1|默认版块 - phpwind - Powered").Link("默认版块").click
  f=""
next