51Testing软件测试论坛

标题: 用vbs截屏，但总是报错，请高手指导一下，谢谢啦 [打印本页]

作者: gdutlzl 时间: 2012-6-14 16:08
标题: 用vbs截屏，但总是报错，请高手指导一下，谢谢啦
我把以下代码写到vbs文档里执行，但报Desktop不是对象的错误，具体是啥原因呢？

Dim FileName ,TimeNow, ResPath
ResPath = "C:\Documents and Settings\XP\Desktop\Test Delete"

fileName = ResPath & "" & Now & ".bmp"

Desktop.CaptureBitmap filename,True

[attach]79572[/attach]

作者: gdutlzl 时间: 2012-6-14 16:09
Desktop这个object 怎么去创建呢?

作者: 026300 时间: 2012-6-14 17:22
文件名中不能有冒号吧

作者: gdutlzl 时间: 2012-6-14 23:00
ResPath是存储的位置

作者: gdutlzl 时间: 2012-6-14 23:02
ResPath = "C:\Documents and Settings\XP\Desktop\Test Delete"
是存储的位置，

作者: gdutlzl 时间: 2012-6-14 23:03
ResPath = "C:\Documents and Settings\XP\Desktop\Test Delete"
是图片存储的位置啊

作者: zzxxbb112 时间: 2012-6-15 09:29
Desktop是QTP对象，需要在QTP中执行。

作者: gdutlzl 时间: 2012-6-15 09:40
果真是的，谢谢4楼的回复，不过有没有办法直接可以在vbs文件中执行的截图方法呢？

作者: SilenceHost 时间: 2012-6-17 21:10
vbs隐藏调用qtp呢？

作者: dingheng9546 时间: 2012-6-26 16:04
Class JieTu
Function RecoveryFunction1(Object, Method, Arguments, retVal)
Dim FileName ,TimeNow, ResPath
ResPath = "E:/TestsResult/"
TimeNow = DotNetFactory.CreateInstance( "System.DateTime" ).Now.ToString( "ddMMyyHHmmss" )
TestNameNow=environment.Value("TestName")
FileName = ResPath & ""&TestNameNow & TimeNow & ".bmp"
desktop.CaptureBitmap filename,True
systemutil.closedescendentprocesses
End Function
End Class
我想你应该是想做场景恢复然后截图的。。这是截图代码亲测可用

作者: dingheng9546 时间: 2012-6-26 16:05
Class JieTu
Function RecoveryFunction1(Object, Method, Arguments, retVal)
Dim FileName ,TimeNow, ResPath
ResPath = "E:/TestsResult/"
TimeNow = DotNetFactory.CreateInstance( "System.DateTime" ).Now.ToString( "ddMMyyHHmmss" )
TestNameNow=environment.Value("TestName")
FileName = ResPath & ""&TestNameNow & TimeNow & ".bmp"
desktop.CaptureBitmap filename,True
systemutil.closedescendentprocesses
End Function
End Class
我想你应该是想做场景恢复然后截图的。。这是截图代码亲测可用

作者: dingheng9546 时间: 2012-6-26 16:05
回复 9# SilenceHost
Class JieTu
Function RecoveryFunction1(Object, Method, Arguments, retVal)
Dim FileName ,TimeNow, ResPath
ResPath = "E:/TestsResult/"
TimeNow = DotNetFactory.CreateInstance( "System.DateTime" ).Now.ToString( "ddMMyyHHmmss" )
TestNameNow=environment.Value("TestName")
FileName = ResPath & ""&TestNameNow & TimeNow & ".bmp"
desktop.CaptureBitmap filename,True
systemutil.closedescendentprocesses
End Function
End Class
我想你应该是想做场景恢复然后截图的。。这是截图代码亲测可用

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)