QTP几种特殊情况处理

1.msgbox弹出关闭问题

Dim res, WSH
Set WSH = CreateObject("WScript.Shell")
res = WSH.Popup("Closed after 2 seconds.", 2)  '代替msgbox "Closed after 2 seconds"
Set WSH = Nothing

2.QTP-使用DOM识别树形节点

3.QTP如何检查WEB对象是否隐藏
在WEB页面中隐藏对象的3种方式
1>使用display
例如：
<label id="hiddenMessageDisplay" style="color:blue">This message is hidden using CSS display property</label>
<input οnclick="if(this.value=='Show message'){this.value='Hide message';document.getElementById('hiddenMessageDisplay').style.display=''}else{this.value='Show message';document.getElementById('hiddenMessageDisplay').style.display='none'}" name="btnhiddenMessageDisplay" type="button" value="Hide message" />
2>使用visibility
例如：
<label id="hiddenMessageVisibility" style="color:red;">This message is hidden using CSS visibility property</label>
<input οnclick="if(this.value=='Show message'){this.value='Hide message';document.getElementById('hiddenMessageVisibility').style.visibility=''}else{this.value='Show message';document.getElementById('hiddenMessageVisibility').style.visibility='hidden'}" name="btnhiddenMessageVisibility" type="button" value="Hide message" />
3>使用class
例如：
<label id="messageClass" class="messageVisibile">This message is hidden using class property</label>
<input οnclick="if(this.value=='Show message'){this.value='Hide message';document.getElementById('messageClass').className='messageVisible'}else{this.value='Show message';document.getElementById('messageClass').className='messageHidden'}" name="btnmessageClass" type="button" value="Hide message" />
解决办法
1>针对第一种方式
方法（1）：
Set oElm = Browser("B").Page("P").WebElement("This message is hidden using CSS display property")
If oElm.object.currentStyle.display="none" Then
Msgbox "Object is hidden"
Else
Msgbox "Object is visible"
End if
方法（2）：
Set oElm = Browser("B").Page("P").WebElement("This message is hidden using CSS display property")
Dim x,y, width, height
x = oElm.GetROProperty("x")
y = oElm.GetROProperty("y")
width = oElm.GetROProperty("width")
height = oElm.GetROProperty("height")
If x=0 And y=0 And width=0 And height=0 Then
Msgbox "Object is hidden"
Else
Msgbox "Object is visible"
End if
方法（3）：
Set oElm = Browser("B").Page("P").WebElement("This message is hidden using CSS display property")
If InStr(oElm.GetROProperty("attribute/style"),"display:none") Then
Msgbox "Object is hidden"
Else
Msgbox "Object is visible"
End if
2、针对第二种方式
采用类似方法（1）和方法（3）来处理
3、针对第三种方式
采用类似方法（1）来处理
方法（4）：
Set oElm = Browser("B").Page("P").WebElement("This message is hidden using CSS display property")
If oElm.GetROProperty("class") = "messageHidden" Then
Msgbox "Object is hidden"
Else
Msgbox "Object is visible"
End if

4.下拉列表问题：

a.直接识别的下拉列表

b.开始识别是WebElement 点击进入后是WebEdit。分2次click获取选择的值

c.直接定义值.object.value=""

d.使用index获取值

5.更改测试环境地址：一般用于测试环境脚本在正式环境进行冒烟时使用。注意备份恢复数据库