2012年给力新作《精通QTP——自动化测试技术领航》试读以及答疑专用贴

没翅膀的飞鱼

回复 323# zzxxbb112

 无标题 - 记事本  “-”前后加上空格就行了，谢谢老师

没翅膀的飞鱼

回复 321# fengdishudu444

正解，谢谢，的确是空格引起的问题

fengdishudu444

回复 322# zzxxbb112


    谢谢您提供的思路

yongfeiuall

回复 274# yujie6832

杰哥你好，
在“自定义验证点-HTML模式”中，为什么检查enable, visible，checked 属性时，不能够写入报告呢？

如下所示：
Browser("百度一下，你就知道").WebEdit("wd").VerifyProperty "visible", "True"

AntonioNikki

已经在读了 谢谢

Love_sheng

刚开始接触QTP，正在读这本书，对我的帮助很大，谢谢两位老师

wsjiayi

请问在讲到Browser&Page这两个控件时的实例，本来IE打开了bbs.51testing.com,后来新打开一个Tab并跳转到bbs.51testing.com，在这个页面上点击登录；可是我按照脚本执行，自动跳转到了第一个tab上执行了，这是怎么回事？是因为两个Tab相同，所以先找到第一个，就使用第一个嘛？
脚本和书本上一样的， 就是不知道对象仓库有没有影响

yazi0127

这本书真的很不错，讲解有深度，实例很有用。

fengdishudu444

回复 1# yujie6832


    你好，封装自己的测试框架，生成自己定义样式的html格式的报告，是否需要对xml和xsl有所了解？

shingo0109

支持两位作者~~~~
拜读中。。。。

九十度二锅头

支持楼主,很实在的一本书,已经拜读了

yujie6832

回复 334# fengdishudu444


    是的，这些都是需要了解的，不过这些都不难哦，书里都有的

yujie6832

回复 332# wsjiayi


    这个问题很多人问过了，由于我这里也没法到你的机器上去，也不知道具体原因，应该还是对象的识别需要灵活处理，这个问题我收到好多，呵呵，都说是按照书上实例写的，但是为什么结果都不一样，跟环境可能也有关系，我那时候写书的时候用XP+IE7，你呢？

Uruk1988

大家好，我最近在自学《QTP自动化测试技术领航》，由于没有这方面基础，其中第226页的WebTable示例有个地方搞不懂——

首先获取 列数tRow 和 行数tColumn，接下来的For循环中用到的却是cRow，能稍微解释一下cRow的由来和这个For语句的含义么？非常感谢

yujie6832

c = current, cRow就是currentRow, t = total tRow就是totalRow，这些都是变量名，你可以自己定，随意定，含义就是
For 当前在第几行 To 全部有几行
...
...
...
Next

这里的cRow我只是没有DIM(即：声明变量)一下，因为QTP里不强制声明的啦，现在能理解了吗？

hejiayuan

getroproperty总是获取不了对象运行时的属性值
操作步骤（对象库里添加了所需对象的）
1.ValueOfRo = Browser("百度一下").Page("百度一下").WebEdit("搜索内容编辑框")_
.GetRoproperty("value")
MsgBox ValueOfRo
2.打开浏览器 输入“QTP自动化测试”
3.运行
结果显示空值

csb821023

老师，你好！
我在学习1.10.6自定义验证点----HTML模式时，运行177页代码得到的结果如下图所示，跟书上的结果不同，Expected Value的值是空的，并且Checkpoint Status的值一直是Failed的，是啥原因？谢谢

csb821023

代码我是按照书上抄写的，一下是我抄写的代码：
###########################报告生成#############################
Private Function HReport (ExpectedValue, ActulValue,testStatus,nodename)
   Set oEventDesc = CreateObject("Scripting.Dictionary")
'   添加状态
   oEventDesc("Status") = micFail
'   添加是否过滤
   oEventDesc("EnableFilter") = False
'   添加节点名称
   oEventDesc("NodeName") = nodename
'   添加HTML结果
   oEventDesc("StepHtmlInfo") = "<TABLE border = '1'>" & _
        "TR><TD> Actual Value </TD> <TD> " +ExpectedValue+ "</TD></TR>"&_
        "TR><TD> Expected Value </TD> <TD> " + ActualValue+ "</TD></TR>"&_
        "TR><TD> Checkpoint Status </TD> <TD style = 'background - color:red'><b>Failed</b> </TD></TR>"&_
        "</TABLE>"
'        判断状态
        If testStatus Then
            oEventDesc ("Status") = micPass
            oEventDesc("StepHtmlInfo") = Replace(oEventDesc("StepHtmlInfo"),_
            "<TD style = 'background - color:red'><b>Failed</b></TD>","<TD style = 'background - color:green'><b>Passed</b></TD>")
        End If
'        生成报告
        newEventContext = Reporter.LogEvent("Replay",oEventDesc,Reporter.GetContext)
'        释放资源
        Set oEventDesc = nothing
End Function

'############################自定义过程校验##################################
Function ValidateProperty (Object,PropertyName,ExpectedValue)
'    判断预期值是否与实际值相等
        If Object.GetROProperty(PropertyName) = ExpectedValue Then
'                成功
                HReport ExpectedValue,Object.GetROProperty(PropertyName),true,_
                "check " +Object.GetTOProperty("testObjName") + "<" + PropertyName+">属性"
                ValidateProperty = True                   
                Exit Function
        else
'                失败
                HReport ExpectedValue,Object.GetROProperty(PropertyName),false,_
                "check " +Object.GetTOProperty("testObjName") + "<" + PropertyName+">属性"
                ValidateProperty = False
                Exit Function
                End If
End Function


Set oWebEdit = Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("搜索框")

ValidateProperty oWebEdit,"name", "wd"
ValidateProperty oWebEdit, "name", "wd1"

yujie6832

回复 341# hejiayuan


    你的代码写错了，  "_"要加在"."后面

yujie6832

回复 343# csb821023


    这段是小赵写的，最近他喜得贵子，休假中，等他来上班的时候我叫他帮你看看，不过估计要等1周以上了