QTP的隐藏button测试

【文件属性】：

文件名称：QTP的隐藏button测试

文件大小：2KB

文件格式：TXT

更新时间：2013-01-30 08:32:17

hiddenpostbutton

Function Test_HiddenButton() Dim TempDoc Dim TempFlag TempFlag =0 Set TempDoc = Browser(gBrowserTitle).Page(gPageTitle).Object For Each Element In TempDoc.all If element.classname = "hidden" and element.tagName = "TD" Then Browser(gBrowserTitle).page(gPageTitle).webelement("name:=HiddenPostButton","class:=hidden","innerText:=" & element.innertext,"html tag:=TD").click TempFlag =1 Exit for End If Next If TempFlag =0 Then End If End Function