Set oDesc = Description.Create()
oDesc("Class Name").value = "Static"
Set allstatic = BrowserObj.Dialog("nativeclass:=#.*").ChildObjects(oDesc)
For x = 0 To allstatic.Count - 1
Getmsg = allstatic.item(x).GetROProperty("text")
If Len(Getmsg) > 0 Then
Exit For
End If
Next
BrowserObj.Dialog("nativeclass:=#.*").Close作者: feiyunkai 时间: 2010-8-19 13:34
把弹出提示框上的确定按钮添加到对象库,确定按钮attached text属性值,就是static中提示信息的内容,使用GetROProperty方法获取脚本运行时attached text的属性值
info=Browser("").Dialog("Microsoft Internet Explorer").WinButton("确定").GetROProperty("attached text")