51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2642|回复: 8
打印 上一主题 下一主题

[原创] 运行脚本时提示,Window handle is not valid

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2011-5-19 11:24:25 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
大家好,我用截图工具Screen Capture做截图时,脚本如下:
在函数ErrorCapture里,调用
call oScreenCapture.CaptureIE  (oIE.HWND,Dir,"Scrolling Capture",True,True)
但是,在运行时提示
Window handle is not valid,错误是在调用的那个函数里面,请问大家有谁知道这个错误的原因及解决方案,谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2011-5-19 11:39:14 | 只看该作者
在线等。。
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2011-5-19 12:19:02 | 只看该作者
你的hwnd不正确,还有没有看到你具体的函数。
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2011-5-19 12:21:19 | 只看该作者
为什么不用QTP自带的截图函数
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2011-5-19 14:02:20 | 只看该作者
回复 3# iQuickTest

具体函数如下:
Function ErrorCapture(CaptureObj)
'create the screen capture object
Set oScreenCapture =  CreateObject("KnowledgeInbox.ScreenCapture")

'  获取存放截图的路径
Dir=Environment("ProjectDir")&"错误截图\"&Environment("PageNum")&".jpg"   

'Capture the active window
hwnd= CaptureObj.GetROProperty( "hwnd" )

'Capture the web page with vertical and horizontal scroll enabled
Set oIE=oScreenCapture.GetIEObjectFromProperty("hwnd",hwnd)

call oScreenCapture.CaptureIE  (oIE.HWND,Dir,"Scrolling Capture",True,True)
'oScreenCapture.CaptureIE hwnd,Dir,"",True,True

Environment("PageNum")=Environment("PageNum")+1

ErrorCapture=Dr
'Destroy the object
Set oScreenCapture = Nothing
End Function
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2011-5-19 14:03:04 | 只看该作者
请帮忙看以一下,我调试脚本的时候没问题,就是运行QTP的时候,会提示那个错误。。
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2011-5-19 15:30:43 | 只看该作者
回复 4# iQuickTest


由于QTP自带的截图只是一屏幕,不能截取到整个page
所以,才使用开源的截图工具,这样效果比较好。
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2011-5-19 16:41:09 | 只看该作者
你打印下oIE.HWND
回复 支持 反对

使用道具 举报

该用户从未签到

9#
 楼主| 发表于 2011-5-19 16:42:16 | 只看该作者
嗯,打印出来这个是有值,6位的数字。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-20 06:24 , Processed in 0.064727 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表