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

32712784

我的QTP使用描述性编程写的代码无法执行，是为什么！
Browser("micClass :=Browser").Page("micClass :=Page").WebEdit("name :=wd").Set "QTP自动化测试技术领航"
Browser("micClass :=Browser").Page("micClass :=Page").WebButton("html tag :=INPUT","name :=百度一下","type :=submit").click
我用的是QTP10.0 ，执行的时候就停在第一行，等1分钟就把RUN ERR了。用对象库编程可以正常执行，为什么？

yujie6832

回复 486# 32712784


    冒号前的空格去掉试试

32712784

1. '-----------------------------------STEP1----------------------------------
   
2. SystemUtil.Run "iexplore.exe","www.51testing.com"
   
3. Browser("micClass:=Browser").Navigate "bbs.51testing.com"  ' 在当前窗口直接跳转到其他网站
   
4. Browser("micClass:=Browser").Page("micClass:=Page").Sync
   
5. '通过自身属性接口获取Browser的URL用于STEP1验证
   
6. checkURL = Trim (Browser("micClass:=Browser").Object.LocationURL)
   
7. If  checkURL = "http://bbs.51testing.com/" Then
   
8.         Reporter.ReportEvent 0,"STEP1验证LocationURL","验证通过，URL为http://bbs.51testing.com/"
   
9.         else
   
10.         Reporter.ReportEvent 1,"STEP1验证LocationURL","验证失败，URL不为http://bbs.51testing.com/"
    
11. End If
    
12. '检查成功跳转完成
    
13. 
    
14. '-----------------------------------STEP2----------------------------------
    
15. Browser("micClass:=Browser").OpenNewTab :wait 2   '通过OpenNewTab方法打开一个新选项卡
    
16. testhwnd = Browser("name:=导航已取消").GetROProperty("hwnd")
    
17. Browser("name:=导航已取消").Navigate "bbs.51testing.com" :wait 3
    
18. 
    
19. '-----------------------------------STEP3---------------------------------
    
20. Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛_论坛首页").Link("登录").Click
    
21. With  Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛_登录页面")
    
22.         .WebEdit("用户名").Set "32712784"
    
23.         .WebEdit("密码").Set "XXXXXXX"
    
24.         .WebButton("登录").Click : wait 3
    
25. End With
    
26. '验证是否已登录论坛
    
27. oexist = Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛_论坛首页").Link("退出").Exist
    
28. If  oexist Then
    
29.         Reporter.ReportEvent 0,"STEP3验证是否已登录论坛","已经成功登录"
    
30.         else
    
31.         Reporter.ReportEvent 1,"STEP3验证是否已登录论坛","未登录"
    
32. End If
    
33. 
    
34. '-----------------------------------STEP4---------------------------------
    
35. Browser("hwnd:="&testhwnd).Close
    
36. Browser("micClass:=Browser").Refresh :wait 1
    
37. oexist = Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛_论坛首页").Link("退出").Exist
    
38. If  oexist Then
    
39.         Reporter.ReportEvent 0,"STEP4验证是否已登录论坛","已经成功登录"
    
40.         else
    
41.         Reporter.ReportEvent 1,"STEP4验证是否已登录论坛","未登录"
    
42. End If

复制代码

这是2.2.2Browser&Page这节中202页的一个例子，我运行的时候到这句Browser("hwnd:="&testhwnd).Close，就不能自动执行下去了，我得点一下这个选项卡切到这个窗口才能关闭，而且在登录的时候，页面也一直没切换到登录的那页去，一直显示在STEP1的那个页面，请问下这是为什么？

yongfeiuall

回复 487# yujie6832
看了你们写的测试框架很是不错，哇哈哈。。。有一点疑惑，还忘不吝指点。

我们把测试状态写到用例列表里，又可以根据分类来运行测试用例。举个例子，有5个测试用例，
1. 第一次全部运行，有2个pass，3个Failed。
2. 第二次按分类运行全部Failed的用例。
这个时候生成的测试报告不能够是全局的吧，第二次没运行的显示的依旧是第一次运行的结果。这种情况怎么处理的呢？是在第二次运行前把所有的用例状态都置为No Run？ 还是？

谢谢！

lsy0401

回复 1# yujie6832


    您好，首先非常感谢您的书，给了我这个新手不少帮助，您在书中132页，提到的教学视频，可以再哪找到呢？

lsy0401

回复 1# yujie6832


求帮忙解答：    P141页上，运行结果全是false是怎么回事呢？

Ivy50

回复 1# yujie6832


    133页的 第4小问 将搜索框禁用(无法输入任何文字)  这个怎么写?  求救

lenny82

请问QTP10和11有多大的区别

Ivy50

156页的脚本1 怎么报错呀

lingyuen122

回复 1# yujie6832
SystemUtil.Run "www.51testing.com"
Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("51Testing软件测试网-中国软件测试人的精神家园").Link("软件测试论坛").Click
Wait 5
checkTitle=Browser("51Testing软件测试论坛 软件测试 |").Page("51Testing软件测试论坛").GetROProperty("title")
msgbox checkTitle
If Instr(checkTitle,"论坛")  <> 0Then

Reporter.ReportEvent micPass,"Step2","Pass"

Else

Reporter.ReportEvent micFail,"Step2","Fail"
End If
Browser("51Testing软件测试网-中国软件测试人的精神家园").Close

Browser("51Testing软件测试论坛 软件测试 |").Page("51Testing软件测试论坛").Link("[QuickTest Pro]").Click
wait 5
checkTitle1=Browser("51Testing软件测试论坛 软件测试 |").Page("51Testing软件测试论坛").GetROProperty("title")
msgbox checkTitle1
If Instr(checkTitle1,"QuickTest Pro") <> 0Then

Reporter.ReportEvent micPass,"Step3","PASS"

Else

Reporter.ReportEvent micFail,"Step3","FAIL"
End If

With Browser("51Testing软件测试论坛 软件测试 |").Page("51Testing软件测试论坛")
.Link("51Testing软件测试论坛").FireEvent "onmouseover":Wait 2
.Link("我要做专家").Click
End With
checkTitle2=Browser("51Testing软件测试论坛 软件测试 |").Page("51Testing软件测试论坛").GetROProperty("title")
msgbox checkTitle12
If Instr(checkTitle2,"专家") <> 0 Then

Reporter.ReportEvent micPass,"step5","PASS"

Else

Reporter.ReportEvent micFail,"step5","Fail"
End If

Set odesc=Description.Create()
odesc("micClass").Value="Link"
Set Lists=Browser("51Testing软件测试论坛 软件测试 |").Page("51Testing软件测试论坛").ChildObjects(odesc)
NumberOflists=Lists.Count()
msgbox NumberOflists
mark=0
theThird="[你问我来答第31期]：如何快速准确获得性能监控数据？(已结束)"
theNinth="[你问我来答第30期]：SQL调校(已结束)"
For i=0 To NumberOflists -1

linkname=Trim(Browser("51Testing软件测试论坛 软件测试 |").Page("51Testing软件测试论坛").Link("micClass:=Link","index:="&i).GetRoproterty("innertext"))

If linkname=theThird Or linkname=theNinth Then

mark=mark+1

End If

If mark=2 Then

Reporter.ReportEvent micPass,"setp6","Passed"

Exit For

End If

If i=NumberOflists -1 Then

Reporter.ReportEvent micFail,"step6","failed"

End If

Next

红色字体部分报错，

lingyuen122

Systemutil.Run("bbs.51testing.com")
Browser("51Testing软件测试论坛 软件测试 |").o.OpenNewTab
Browser("name:=新建选项卡").Navigate "bbs.51testing.com"
Browser("51Testing软件测试论坛 软件测试 |_2").Page("51Testing软件测试论坛 软件测试 |").Link("登录").Click

浏览器同时打开两个bbs.51testing.com，在回放时为什么点击的是第一个选项卡的登录

moshuang

browser().page().sync:wait 1.
这样是符合语法的？是等一秒？

amry123

遇到了“32712784 ”网友同样的问题。急切知道怎么解决。
同时，运行保存了上面的代码后，将编写的代码保存了下。我再进入对象库添加对象时，例如添加“51Testing测试论坛”页面上的任何一个对象控件，显示的浏览器名称为“Browser”，页面为“Page“，而不是“51Testing测试论坛”。请问是怎么回事呀！

amry123

遇到了“32712784 ”网友同样的问题。急切知道怎么解决。
同时，运行保存了上面的代码后，将编写的代码保存了下。我再进入对象库添加对象时，例如添加“51Testing测试论坛”页面上的任何一个对象控件，显示的浏览器名称为“Browser”，页面为“Page“，而不是“51Testing测试论坛”。请问是怎么回事呀！

wsdflying

好心的人帮忙解答下吧，弄疯了都，
框架部分中的 P453页 ，把QC 中的对象库文件，down 到本地的临时路径
qcORpath = “【qualityCenter\Resources】Respirces\objectRepository\TOR.tsr”
请问下这个是怎么实现的
1. 我在VBA里已经实现链接到QC， 但是在QC 的API 文档中，并没有找到download 对象库相关的方法
2. 书里说是对象库映射到本地临时的路径，是说本地主机建立了一个远程磁盘映射吗？

飘雨剑香

回复 1# yujie6832


    买了一个月了，也照着案例在做，但是有好几个不懂的问题不知道怎么解决。比如：我录制51主页，打开论坛链接，回放的时候就打不开。打开多个选项卡，回放的时候也总是在第一个选项卡。

376662600

版主你好：我想问下验证检测点的问题。
我是添加一个人员数据到列表里面。然后我要检测这个列表是否有我添加的数据。一个数据就是一个td行。
这行是随机的，即加一条数据就会自动多一行表格，没数据就连表格行业没有的（就只有表头）。

Class name      webElement
innerhtml          (这里是我插入数据的编号---主要就是验证这个)
innertext           (这里是我插入数据的编号--主要就是验证这个)
-------------------------------------------------这是主要的属性--------
我做检测点总是提示不支持该属性。报错。
我用GETRO   或者 objet  value 好像都失败。 （我没有添加这个到对象库的，因为没有添加数据连表格行都没有所有我没添加）

-------------------跪求这种检查点验证怎么做？能否帮忙写下。谢谢。

32712784

因为一个人在看这本书，有时候还是会遇到不少问题，总是没人来交流下，我建了个群121443297，大家同看一本书，遇到的问题别人可能也同样遇到过，大家针对性的看一本书，交流起来更方便，只是希望大家遇到问题有个讨论的地方。大家一起加油学习。加群请注明QTP学习，谢谢！

yang2013

已经买了，已经读了前30页~感觉挺不错的，就是有点点小瑕疵~~可能是排版的问题吧。支持zzbbxx112师父和余杰~

anne32184

请教一个问题：书中第301页那段动态数据库验证函数那一段中

'对比预期值与实际值
if cstr(expectValue) = cstr(actualValue) Then

这个预期值都没有定义，是怎么比较的呢？