robinpipi 发表于 2012-8-14 15:36:28

求助，win7+qtp11+ie8 openNewTab 无效

精通qtp书上202页：
'Step 1----------------------------------------------------------------------------

SystemUtil.Run"www.51testing.com":Wait 10

Browser("micClass:=Browser").Navigate"bbs.51testing.com"
Browser("micClass:=Browser").Page("micClass:=Page").Sync:Wait 5

'checkpoint start------------------>>>>>
checkURL = Trim(Browser("micClass:=Browser").Object.LocationURL)
If checkURL = "http://bbs.51testing.com/" Then
      Reporter.ReportEvent micPass,"Step1","Passed"
else
      Reporter.ReportEvent micPass,"Step1","Failed"
End If
'Een ofcheckPoint<<<<<---------------

'Step 2 -------------------------------------------------------------------------
Browser("micClass:=Browser").OpenNewTab:Wait 1

testHWND = Browser("name:=新建选项卡").GetROProperty("hwnd")
MsgBox testHWND
Browser("name:=新建选项卡").Navigate "bbs.51testing.com":Wait 10

'Step3---------------------------------------------------------------------------
Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛").Link("登录").Click

With Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛")
                                                .WebEdit("username").Set"ycg300164"
                                                .WebEdit("password").Set"XXXXXXXX"
                                                .WebButton("登录").Click:Wait 10
end With
'checkpoint -------------------------------->>
oExist = Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛").Link("退出").Exist (3)
IfoExist Then
      Reporter.ReportEvent micPass,"Step3","Passed"
Else
      Reporter.ReportEvent micFail, "Step3","Failed"
End If
'end of chencpoint <<-------------------------

'Step 4-------------------------------------------------

Browser("hwnd:=" &testHWND).Close

Browser("micClass:=Browser").Refresh:Wait 1
oExist = Browser("51Testing软件测试论坛").Page("51Testing软件测试论坛").Link("退出").Exist (3)

IfoExist Then
      Reporter.ReportEvent micPass,"Step4","Passed"
Else
      Reporter.ReportEvent micFail, "Step4","Failed"
End If

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

robinpipi 发表于 2012-8-14 16:06:05

求助啊求助啊

joykao 发表于 2012-8-14 17:28:02

本帖最后由 joykao 于 2012-8-14 17:45 编辑

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

robinpipi 发表于 2012-8-14 21:24:43

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

robinpipi 发表于 2012-8-14 21:51:43

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

robinpipi 发表于 2012-8-15 13:31:48

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

I6ird 发表于 2012-8-16 09:37:19

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

robinpipi 发表于 2012-8-16 09:50:03

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

wuqiallen 发表于 2012-8-21 17:19:01

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

yujie6832 发表于 2012-8-22 10:33:47

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

wyfyan 发表于 2013-1-6 22:22:12

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

heyyu 发表于 2016-2-16 14:57:26

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

IE设置管理加载项找到mercury inter。。。启用就可以了
页: [1]
查看完整版本: 求助，win7+qtp11+ie8 openNewTab 无效