51Testing软件测试论坛

标题: 如何用vbs描述alert提示框并得到提示内容 [打印本页]

作者: sspku 时间: 2012-2-1 17:13
标题: 如何用vbs描述alert提示框并得到提示内容
如题

作者: snakeshiy 时间: 2012-2-1 17:35
开启VB错误处理，在代码的开头加上On Error Resume Next
在代码的末尾加上If Err.Number <> 0 Then
Msgbox Err.Description
End If
Err.Description就是错误提示框里的内容

作者: sspku 时间: 2012-2-1 17:43
不是这个，是被测系统弹出的alert框

作者: QqiaoQ 时间: 2012-2-2 16:41
这个应该是添加检查点吧，检查是否弹出这个对话框

作者: snakeshiy 时间: 2012-2-2 16:59
是被测系统的提示框可以用Spy去探测提示框对象的属性，用GetROProperty方法得到里面的内容

作者: zhuxi123 时间: 2012-2-3 10:33
snakeshiy 正解

作者: yyc2164708 时间: 2012-2-3 10:59
使用Dialog对象，判断是否存在Dialog
然后获取Dialog的Static子对象
再GetROProperty("Text") 回去Dialog中的文字

作者: wangyanzhao 时间: 2012-2-3 13:32
楼上说的都是正确的

作者: sspku 时间: 2012-2-8 13:16
本帖最后由 sspku 于 2012-2-8 13:22 编辑

ok
解决了谢谢ls几位

Dim dialogDesc, dialogObj
Set dialogDesc = Description.Create()
dialogDesc("micclass").value="Dialog"
dialogDesc("nativeclass").value="#32770

Dim staticDesc, staticObj
Set staticDesc = Description.Create()
staticDesc("micclass").value="Static"
staticDesc("height").value=15

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)