Set oStaticDesc = Description.Create()
oStaticDesc("micclass").Value = "Static"
Set oDialog= Browser(Browser).Dialog(oDescDialog)
Set All_Static = oDialog.ChildObjects(oStaticDesc)
' 判断弹出窗口中，是否存在静态文件对象
If All_Static.Count = 0 Then
oDialog.Close
End If
'获取具体的出错错误信息
For iOBjNum = 0 To All_Static.Count - 1
If All_Static(iOBjNum).GetROProperty( "Text" ) <> "" Then
sErrMessage = All_Static(iOBjNum).GetROProperty( "Text" )
End If
Next
If Instr(1, sErrMessage, vblf, 1) > 0 Then
sErrMessage = Replace(sErrMessage, vblf, "->")
End If作者: xiaowu_627 时间: 2010-8-5 14:12 标题: 我的不成功 我把上面的方法都试了，但是没有成功，还提示错误作者: xiaowu_627 时间: 2010-8-5 14:19
我只是做了两个测试用例，都用参数写在本地工作表里了，一个是用户名是错误的情况，一个是正确的，然后我在工作表里定义了一个status字段，保存“用户名不存在”内容，我想做的测试是通过获取alert提示内容和status得内容比较，得出是不是bug,如果两个变量值一样那就不是bug.但是我上面的方法都试了，还是不行，还提示username错误。代码如下
Dim i
Dim outputvalue
Dim outstatus
For i=1 to datatable.GetSheet("Action1").GetRowCount
'outputvalue=Browser("企业邮局").Dialog("Microsoft Internet Explorer").Static("请输入你的用户名!").GetROProperty("请输入你的用户名!")
outputvalue=Browser("Browser").Dialog("Microsoft Internet Explorer").Static("用户名不存在").GetROProperty("text")
outstatus=datatable("status",dtlocalsheet)
If outputvalue<>outstatus Then
reporter.ReportEvent 1," 登陆功能测试","预期输出:"+outstatus+",实际输入"+outputvalue
End If
datatable.GetSheet("Action1").SetNextRow
Next