第一问答网»论坛 › 中问网 › 问答 › VBS中怎样截屏，然后保存？能实现吗？请问怎么实现？假 ...

VBS中怎样截屏，然后保存？能实现吗？请问怎么实现？假设我要把截下来的图片保存到C盘跟目录下

11 |

0 | 2009-8-21 09:27:02 | 显示全部楼层 |阅读模式

楼主可以试试这个，自动定时脚本截屏并保存Dim MyTime　　MyTime = Timer '返回午夜12时以后已经过去的秒数　　Do While MyTime51600 and MyTimeVbs的文件，测试开始前点击该文件。第二天过来，在画图中粘贴，即可得到指定时间的截图。一、测试设计2　　进一步想，能否实现全程不用监控？如用一个晚上，刚好可以跑完四个**点，每到一个**点的不同时刻截屏，整个测试数据更丰富。　　编写如下vbs脚本，结合QTP的使用：　　Dim MyTime0　　Dim MyTime1　　Dim WshShell　　Set WshShell=WScript.CreateObject("WScript.Shell")　　MyTime0 = Minute(Now)　　MyTime1 = Timer'从午夜12点开始到现在逝去的时间　　do while MyTime1<=86300
'设定到几点停止（也可以一直跑）　　MyTime1 =Timer　　MyTime0 = Minute(Now)
'获取现在的分钟　　if Mytime0=37then
'每个小时的37分钟截一个图　　Dim qtApp
　　Set qtApp=CreateObject("QuickTest.Application") '创建QTP对象　　qtApp.Launch '启动QTP　　qtApp.Open "C:\Tests\Test1",False '打开测试　　qtApp.Test.Run'运行测试　　qtApp.Test.Save '保存测试　　qtApp.Quit
'退出QTP 　　Set qtApp=Nothing '释放QTP应用程序对象　　End If　　WScript.Sleep 4000'每个循环后中停止4s，否则该程序一直在快速跑，占用cpu资源极大　　Loop　　WScript.Quit　　QTP编写如下test:　　Dim str　　str = Hour(Now)　　Desktop.CaptureBitmap "C:\" &str & ".bmp",true　　MyTime0 = Minute(Now)　　MyTime1 = Timer'从午夜12点开始到现在逝去的时间　　do while MyTime1<=86300
'设定到几点停止（也可以一直跑）　　MyTime1 =Timer　　MyTime0 = Minute(Now)
'获取现在的分钟　　if Mytime0=37then
'每个小时的37分钟截一个图　　Dim qtApp
　　Set qtApp=CreateObject("QuickTest.Application") '创建QTP对象　　qtApp.Launch '启动QTP　　qtApp.Open "C:\Tests\Test1",False '打开测试　　qtApp.Test.Run'运行测试　　qtApp.Test.Save '保存测试　　qtApp.Quit
'退出QTP 　　Set qtApp=Nothing '释放QTP应用程序对象　　End If　　WScript.Sleep 4000'每个循环后中停止4s，否则该程序一直在快速跑，占用cpu资源极大　　Loop　　WScript.Quit　　QTP编写如下test:　　Dim str　　str = Hour(Now)　　Desktop.CaptureBitmap "C:\" &str & ".bmp",true

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行