51Testing软件测试论坛
标题:
求助，win7+qtp11+ie8 openNewTab 无效
[打印本页]
作者:
robinpipi
时间:
2012-8-14 15:36
标题:
求助，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 of checkPoint<<<<<---------------
'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)
If oExist 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)
If oExist Then
Reporter.ReportEvent micPass,"Step4","Passed"
Else
Reporter.ReportEvent micFail, "Step4","Failed"
End If
复制代码
执行，不打开新选项卡，在testHWND获得句柄处报错，
有童鞋遇到过吗，
作者:
robinpipi
时间:
2012-8-14 16:06
求助啊求助啊
作者:
joykao
时间:
2012-8-14 17:28
本帖最后由 joykao 于 2012-8-14 17:45 编辑
脚本问题太多，重要的就是对象不能唯一识别。。好多直接找不到对象了
作者:
robinpipi
时间:
2012-8-14 21:24
这脚本没什么问题，就是在打开新选项卡的地方有问题
作者:
robinpipi
时间:
2012-8-14 21:51
找不到对象，可能是你对象库没有创建
作者:
robinpipi
时间:
2012-8-15 13:31
就没有同学遇到过这个问题吗？这会不会是qtp11对ie8的支持不够。
作者:
I6ird
时间:
2012-8-16 09:37
昨天我遇到跟你一样的情况，win7+qtp10+ie9 ，zz提示我下载qtp11，不过同样的代码 我现在在
checkURL = Trim(Browser("micClass:=Browser").Object.LocationURL)就报错了
求解
作者:
robinpipi
时间:
2012-8-16 09:50
你到ie里看看，bho插件启用了吗
作者:
wuqiallen
时间:
2012-8-21 17:19
同7楼的问题啊~~~~~
求解！！~
作者:
yujie6832
时间:
2012-8-22 10:33
各位，这些问题的确遇到很多了，我写这篇代码的环境是IE7+XP SP2+QTP10，我觉得这个问题一定是环境问题以及IE设置问题，或者举个例QTP10还不能很好的支持IE9，当然，只是举例，我这边实在抱歉，没法帮大家一个个去试验环境。。。
作者:
wyfyan
时间:
2013-1-6 22:22
我想说，这个问题最后的解有嘛？
作者:
heyyu
时间:
2016-2-16 14:57
I6ird 发表于 2012-8-16 09:37
昨天我遇到跟你一样的情况，win7+qtp10+ie9 ，zz提示我下载qtp11，不过同样的代码 我现在在
checkURL = Tr ...
IE设置管理加载项找到mercury inter。。。启用就可以了
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)
Powered by Discuz! X3.2
脚本问题太多，重要的就是对象不能唯一识别。。好多直接找不到对象了