求助，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获得句柄处报错，
有童鞋遇到过吗，

heyyu

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

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

wyfyan

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

yujie6832

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

wuqiallen

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

robinpipi

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

I6ird

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

robinpipi

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

robinpipi

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

robinpipi

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

joykao

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

robinpipi

求助啊求助啊