请高手帮忙，qtp如何获得对话窗中的文本值，已解决

zwfbj 发表于 2009-8-27 15:50:43

有dialog提示窗，图片为

怎么得到“IBO业务添加成功,成交编号为：IBO20090826000008”
我用object spy识别了下，图片为：

Dim temptext
Dim IBONO
checkDialog1=vbTrue
Set staticDescription=Description.Create()
staticDescription("micclass").Value="Static"'提示内容
temptext = Browser("报表信息子系统").Window("报表信息维护 -- 网页对话框").Dialog("Microsoft Internet Explorer").ChildObjects(staticDescription)(1).GetROProperty("text")
IBONO=right(temptext,17)

[ 本帖最后由 zwfbj 于 2009-8-27 16:52 编辑 ]

zwfbj 发表于 2009-8-27 15:55:17

我写成这个，是错误的：set IBONO=Browser("报表信息子系统").Window("报表信息维护 -- 网页对话框").Dialog("Microsoft Internet Explorer"). Static("IBO业务添加成功,成交编号为：IBO20090826000008").GetROProperty("value")，请高手指点。

chpwu470 发表于 2009-8-27 15:57:14

回复 2# 的帖子

当然是错误的...Set 后面加的是对象哦你set一个属性的当然不对啦 :D 去掉set就OK了如果你后面那一大堆写的对的话哈哈

zwfbj 发表于 2009-8-27 16:02:54

请教怎么写呢？

chpwu470 发表于 2009-8-27 16:13:00

回复 4# 的帖子

IBONO=Browser("报表信息子系统").Window("报表信息维护 -- 网页对话框").Dialog("Microsoft Internet Explorer"). Static("IBO业务添加成功,成交编号为：IBO20090826000008").GetROProperty("text")<----是text不是value不知道你为什么用value 是你自己主观判断的还是怎么搞出来的啊 IBONO就是你要拿的值了可以print出来看一下哦

nbkhic 发表于 2009-8-27 16:13:58

是JS，文本框的内容是static属性。你必须获取这个static。

zwfbj 发表于 2009-8-27 16:50:20

谢谢各位，搞定，
Dim temptext
Dim IBONO
checkDialog1=vbTrue
Set staticDescription=Description.Create()
staticDescription("micclass").Value="Static"'提示内容
temptext = Browser("报表信息子系统").Window("报表信息维护 -- 网页对话框").Dialog("Microsoft Internet Explorer").ChildObjects(staticDescription)(1).GetROProperty("text")
IBONO=right(temptext,17)

页: [1]

51Testing软件测试论坛 's Archiver