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了。用对象库编程可以正常执行，为什么？

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的那个页面，请问下这是为什么？

32712784

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

32712784

回复 506# moshuang


    Browser("XXXXXX")._ '这里

32712784

回复 506# moshuang


    Browser("XXXXXX")._    '这里这里的“_”下划线就是换行，接下一行代码