求助，win7+qtp11+ie8 openNewTab 无效

robinpipi

精通qtp书上202页：

1. 
   
2. 'Step 1----------------------------------------------------------------------------
   
3. 
   
4. SystemUtil.Run  "www.51testing.com":Wait 10
   
5. 
   
6. Browser("micClass:=Browser").Navigate  "bbs.51testing.com"
   
7. Browser("micClass:=Browser").Page("micClass:=Page").Sync:Wait 5
   
8. 
   
9. 'checkpoint start------------------>>>>>
   
10. checkURL = Trim(Browser("micClass:=Browser").Object.LocationURL)
    
11. If checkURL = "http://bbs.51testing.com/" Then
    
12.         Reporter.ReportEvent micPass,"Step1","Passed"
    
13. else
    
14.         Reporter.ReportEvent micPass,"Step1","Failed"
    
15. End If
    
16. 'Een of  checkPoint<<<<<---------------
    
17. 
    
18. 'Step 2 -------------------------------------------------------------------------
    
19. Browser("micClass:=Browser").OpenNewTab:Wait 1
    
20. 
    
21. testHWND = Browser("name:=新建选项卡").GetROProperty("hwnd")
    
22. MsgBox testHWND
    
23. Browser("name:=新建选项卡").Navigate "bbs.51testing.com":Wait 10
    
24. 
    
25. 'Step3---------------------------------------------------------------------------
    
26. Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛").Link("登录").Click
    
27. 
    
28. With Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛")
    
29.                                                 .WebEdit("username").Set  "ycg300164"
    
30.                                                 .WebEdit("password").Set  "XXXXXXXX"
    
31.                                                 .WebButton("登录").Click:Wait 10
    
32. end With
    
33. 'checkpoint -------------------------------->>
    
34. oExist = Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛").Link("退出").Exist (3)
    
35. If  oExist Then
    
36.         Reporter.ReportEvent micPass,"Step3","Passed"
    
37. Else
    
38.         Reporter.ReportEvent micFail, "Step3","Failed"
    
39. End If
    
40. 'end of chencpoint <<-------------------------
    
41. 
    
42. 'Step 4-------------------------------------------------
    
43. 
    
44. Browser("hwnd:=" &testHWND).Close
    
45. 
    
46. Browser("micClass:=Browser").Refresh:Wait 1
    
47. oExist = Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛").Link("退出").Exist (3)
    
48. 
    
49. If  oExist Then
    
50.         Reporter.ReportEvent micPass,"Step4","Passed"
    
51. Else
    
52.         Reporter.ReportEvent micFail, "Step4","Failed"
    
53. End If
    
54. 
    

复制代码

执行，不打开新选项卡，在testHWND获得句柄处报错，
有童鞋遇到过吗，

robinpipi

求助啊求助啊

joykao

脚本问题太多，重要的就是对象不能唯一识别。。好多直接找不到对象了

robinpipi

这脚本没什么问题，就是在打开新选项卡的地方有问题

robinpipi

找不到对象，可能是你对象库没有创建

robinpipi

就没有同学遇到过这个问题吗？这会不会是qtp11对ie8的支持不够。

I6ird

昨天我遇到跟你一样的情况，win7+qtp10+ie9 ，zz提示我下载qtp11，不过同样的代码 我现在在
checkURL = Trim(Browser("micClass:=Browser").Object.LocationURL)就报错了
求解

robinpipi

你到ie里看看，bho插件启用了吗

wuqiallen

同7楼的问题啊~~~~~
求解！！~

yujie6832

各位，这些问题的确遇到很多了，我写这篇代码的环境是IE7+XP SP2+QTP10，我觉得这个问题一定是环境问题以及IE设置问题，或者举个例QTP10还不能很好的支持IE9，当然，只是举例，我这边实在抱歉，没法帮大家一个个去试验环境。。。

wyfyan

我想说，这个问题最后的解有嘛？

heyyu

I6ird 发表于 2012-8-16 09:37
昨天我遇到跟你一样的情况，win7+qtp10+ie9 ，zz提示我下载qtp11，不过同样的代码 我现在在
checkURL = Tr ...

IE设置管理加载项找到mercury inter。。。启用就可以了