关于qtp自动化测试 自带的fight案例 测试时如何获取弹出对话框上的文本

[zk818]

比如图片如果用户名输入错误的话。弹出一个对话框，请输入用户名，请问如何获取这个文本框上的文本文字？

[huliu139]

dim vResult="用户名输入错误，请重新输入" '--预期结果的值

'--判断实际结果与预期结果的值是否一致
If Instr(mBox_Message(),vResult) > 0 Then
elog.Verfication "0",vResult
Actualv = "成功信息>>" & vResult & ">>执行通过"
ImageName = ""
mBox_Operate("确定")
else
end if


' 取得弹出对话框中信息的值的方法
Function mBox_Message()
Dim ms
Set mDes = Description.Create()
mDes("text").value = ".*Internet Explorer"
mDes("nativeclass").value = "#.*"
Set stc = Browser("title:=.*").Dialog(mDes).Static("nativeclass:=Static","window id:=65535")
ms = stc.GetROProperty("text")
Set mDes = Nothing
Set stc = Nothing
mBox_Message = ms
End Function


' 操作弹出对话框的方法
Function mBox_Operate(operate)
Set mDes = Description.Create()
mDes("text").value = ".*Internet Explorer"
mDes("nativeclass").value = "#.*"
Browser("title:=.*").Dialog(mDes).WinButton("text:="&cstr(operate)).Click
Set mDes = Nothing
End Function