如何读取弹出框内容？请大家帮忙~

denghuirong

为了检验登录失败，我使用对弹出对话框检查的方法实现，代码如下。

Dim var_GetTOProperty
Browser("OA-用户登录").Page("OA-用户登录").WebEdit("j_username").Set "125"
Browser("OA-用户登录").Page("OA-用户登录").WebEdit("j_password").SetSecure ""
Browser("OA-用户登录").Page("OA-用户登录").WebButton("WebButton").Click
If  Browser("OA-用户登录").Dialog("Microsoft Internet Explorer").exist(1) Then
var_GetTOProperty = Browser("OA-用户登录").Dialog("Microsoft Internet Explorer").GetVisibleText(top)
If  var_GetTOProperty <> "请输入密码 ！"Then
  msgbox(var_GetTOProperty )   
End If
Browser("OA-用户登录").Dialog("Microsoft Internet Explorer").close
End If

执行后，返回值却是弹出框所有的属性值，而我只需要它返回弹出框的文本内容“请输入密码！”。如下图：
也采用了Static("请输入密码 ！").GetROProperty("regexpwndtitle")，但却报错。

dreamever

因为你的那个弹出框中，文本标签的内容就是包含“Miscorsoft……“这些文本的，也就是说它和”请输入密码“在一个对象里。
从自动化测试的角度来讲，返回所有的文本信息也没有什么关系，无非就是两个文本内容的比较嘛。想一想，如果文本框中所有的内容都符合你的预期，那么其中某一段文本会出现不符合你预期结果的情况吗？

denghuirong

谢谢了。我还以为是我用的方法不对。

770639805

就截取你你想要的部分就好了啊

风雪夜归人

其实，一个output轻松实现，lz可以一试~

denghuirong

谢谢 风雪夜归人
我试试

denghuirong

现在我把弹出框的属性值存到DataTable中，在运行的时候可以在DataTable里看到，但是当运行结束后，这些值就不会显示了。
请问哪位知道怎么在运行结束后，仍在DataTable里保留这些弹出框的属性值么？