checkMsg=Browser("TUser.title").Dialog("Microsoft Internet Explorer").static("userid is required").getROproperty("text")
取不到提示窗口的信息吗？应该怎样做？谢谢。 这个问题我找了好多资料啊，看到有kai_top 筒子在"基础代码交流贴"发过类似的贴子：
"如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证"
if browser("web_name").dialog("dialog_name").exist(1) then'如果不出现=false
error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!").getRoproperty("text")
if error_message<>(datatable.value("error_info"))then
msgbox(error_message)
end if
browser("web_name").dialog("diaglog_name").close
end if
为什么他这里error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!").getRoproperty("text")可以取得“用户密码错误”，而不会出错？
郁闷啊，自己解决不了。。。
提示信息中不是已經說明白了嗎
提示信息中不是已經說明白了嗎？你的對象倉庫中沒有那個對像，既然對像不存在那怎麼能獲取一個不存在的對像屬性呢？解決辦法就是你得先把帶"userid is required"提示信息的對話框添加到對像倉庫中去
[ 本帖最后由 tkgg0122 于 2006-4-4 18:26 编辑 ]
在QTP中一切都是對像
在QTP中一切都是對像，所有的操作都是基於對象而言的 QTP要将对象放到对象库中才能识别，不是你写什么他就会认什么的……"userid is required"是什么东西？？你自己写的吧？？？不是一个对象吧？？？ 原帖由 mstiunicon 于 2006-4-4 09:50 发表
If (Len(CheckUS)>50) Then
IfBrowser("TUser.title").Dialog("Microsoft Internet Explorer").Exist then
dim checkMsg
checkMsg=Brows ...
请教一下：执行完事后，是不是会自动关闭所有窗口，我想让它提示通过（以对话框形式），应如何写代码啊，谢谢,我想弹出一对话框提示此功能pass，大家看看这样行吗
Dim CheckUS
Dim CheckPW
CheckUs=Browser("XXX").Page("XXX").WebEdit("managerId").Set(DataTable("USER", dtGlobalSheet) )
CheckPW=Browser("XXX").Page("XXX").WebEdit("password").SetSecure(DataTable("PASSWORD", dtGlobalSheet))
If ( CheckUS = "" )Then
If ( Browser("XXX_2").Dialog("Microsoft Internet Explorer").Exist(1)) Then
Dim a
if( a = Browser("XXX_2").Dialog("Microsoft Internet Explorer").Static("请输入登录名!").check(checkpoint("请输入登录名!")) = true )then
msgbox "passed"
end if
end if
End if
我调试了，可没提示passed啊，请问错误出在哪里，大家帮帮忙，谢谢
[ 本帖最后由 minliu 于 2006-4-6 17:02 编辑 ] 我看不懂……
CheckUs=Browser("XXX").Page("XXX").WebEdit("managerId").Set(DataTable("USER", dtGlobalSheet) )
CheckPW=Browser("XXX").Page("XXX").WebEdit("password").SetSecure(DataTable("PASSWORD", dtGlobalSheet))
这两句干吗用的？ 将DataTable中USER字段中的值（默认第一行，也可通过方法取指定行）作为登录名,密码的输入值输入
我这里好象都没按下确定按钮的语句，可是还是执行了，还有，你看我这里达到测试目的了吗，有点糊涂
[ 本帖最后由 minliu 于 2006-4-6 18:26 编辑 ]
你是不是想看看弹出窗口是不是你期望的出错窗口？
如果是的话，你的问题是所有窗体的标题都一样，你无法区分是因为什么错误而出现的提示窗体，我觉得，这个窗体对像，你是可以
获取的，然后在这个窗体上的Text其实也是控件撒，就取这个窗体上的
提示Text比对一下，就应该知道了。 弹出 的窗口是预期的，我想让它出现提示通过的消息来确认正确性，用代码怎么实现；（或者说弹出不是期望的，提示失败）；直接用msgbox行吗，怎样用啊，该消息框会出现在什么什么时候
If CheckUs =” ”
If 弹出错误提示对话框(输入不能为空)
If 对话框提示正确
提示通过 //主要想实现这一步
Else 提示“提示信息有误”
Else 提示“提示对话框出错”
[ 本帖最后由 minliu 于 2006-4-7 09:31 编辑 ] 不要动不动就Msgbox，你运行脚本的时候不可能等在旁边按的……
报错可以用Reporter.ReportEvent 1，具体用法查帮助 qtp是一种回归测试工具，那为什么不录制输入不符合条件时的脚本呢．之后再做一些检查点和参数化的设置．
那么以后就可以直接运行这些脚本查看修改的程序是否仍然对这些错误作判断． 原帖由 Horus_Ra 于 2006-4-7 13:19 发表
不要动不动就Msgbox，你运行脚本的时候不可能等在旁边按的……
报错可以用Reporter.ReportEvent 1，具体用法查帮助
哦，谢谢，我想问一下怎么判断文本框内容为空（检查按清空按钮后文本编辑框是否清空）
[ 本帖最后由 minliu 于 2006-4-7 15:03 编辑 ] Dim CheckUS
Dim CheckPW
CheckUs=Browser("XXX").Page("XXX").WebEdit("managerId").Set(DataTable("USER", dtGlobalSheet) )
CheckPW=Browser("XXX").Page("XXX").WebEdit("password").SetSecure(DataTable("PASSWORD", dtGlobalSheet))
If ( CheckUS = "" )Then
If ( Browser("XXX_2").Dialog("Microsoft Internet Explorer").Exist(1)) Then
Dim a
if( a = Browser("XXX_2").Dialog("Microsoft Internet Explorer").Static("请输入登录名!").check(checkpoint("请输入登录名!")) = true )then
msgbox "passed"
end if
end if
End if
页:
1
[2]
