QTP中如何得到Msgbox中的内容

lsg0011

我想要在QTP中得到如图“Please enter password”这句话，应如何做。
我用Dialog("Flight Reservations").GetORProperty("text")得到的是“Flight Reservations”

hyl521

看贴还是有作用的，这不解决了俺一上午纠结的问题   哈~哈

qc870912099

回复 7# lsg0011
您好，我也是新学习的，我添加一个“提示信息”的对象进去之后，在FOR循环结束后，他的loginmsg中只有第一行有文字是为什么啊？就是说我两个进行比较的几次中，datatable中只有第一行数据比较成功了，后面几行的数据loginmsg值都是空的，我应该怎么做啊？谢谢

lsg0011

我知道了，我应该添加一个“提示信息”的对象进去。
哈哈，我以为那些提示信息是"Flight Reservations"对象的属性，原来要把他当成对象来处理哈。
是你的那个图让我明白了，谢谢你。

pengminghua

原帖由 lsg0011 于 2009-4-18 10:43 发表
我不是要得到那个对话框A，我只要得到对话框中那行提示信息B。
其实我是要测试系统实际的提示信息与期望中的提示信息是否一致。
我的脚本如下。我是个初学者，自学的。望各位多多指教，虚心向大家学习了。
Dim i
D ...

你的：

datatable("loginmsg",dtlocalsheet)=Dialog("Login").Dialog("Flight Reservations").GetROProperty("text")'将实际输出的提示信息存入到表中的loginmsg列

这行，取的值一直都是那个对话框A的TEXT，而非提示信息B的TEXT，请注意：对话框和提示信息是不同的对象，它们的属性值text也不同。。。，所以如果你不想使用描述编程定义的话，还得把那个提示信息对象加进QTP的对象库，下面为我写的
。。。
datatable("loginmsg",dtlocalsheet)=Dialog("Login").Dialog("Flight Reservations").Static("提示信息").GetROProperty("text")
。。。
对象库如附件

lsg0011

今天人少,自己顶一下.

lsg0011

我得到的数据结果如图：
请各位多多指教。

lsg0011

我不是要得到那个对话框，我只要得到对话框中那行提示信息。
其实我是要测试系统实际的提示信息与期望中的提示信息是否一致。
我的脚本如下。我是个初学者，自学的。望各位多多指教，虚心向大家学习了。
Dim i
Dim ioutmsg'实际输出的提示信息的参数
Dim statusmsg'期望的提示信息的参数

For i=1 to datatable.GetSheet("Action1").getrowcount

Dialog("Login").WinEdit("Agent Name:").Set DataTable("agentname", dtLocalSheet)
Dialog("Login").WinEdit("Password:").SetSecure DataTable("password", dtLocalSheet)
Dialog("Login").WinButton("OK").Click
If  Dialog("Login").Dialog("Flight Reservations").Exist Then

  datatable("loginmsg",dtlocalsheet)=Dialog("Login").Dialog("Flight Reservations").GetROProperty("text")'将实际输出的提示信息存入到表中的loginmsg列
  ioutmsg=datatable("loginmsg",dtlocalsheet)'将loginmsg列中的信息传给参数ioutmsg
  Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click

End If

statusmsg=datatable("status",dtlocalsheet)
If ioutmsg<>statusmsg Then
        reporter.ReportEvent micFail,"登录功能测试","期望的提示信息为："&statusmsg&",实际输出的提示信息为："&ioutmsg
End If
datatable.GetSheet("Action1").setnextrow

Next

Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

[ 本帖最后由 lsg0011 于 2009-4-18 10:51 编辑 ]

51testing_zhj

msgbox Dialog("Login").Dialog("Flight Reservations").Static("Please enter password").GetROProperty("text")