VBS--自动定时截图工具

VBS--自动定时截图工具
2010年09月01日
  一、测试设计1
  使用vbs编写一个脚本,让其在指定时间,截一个图,即可实现需求。
  Vbs脚本如下:
  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=37 then '每个小时的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
  即可实现每隔一定时间截取图形的要求。
  ---------------
  后来发现,有同事使用vc也写了个类似功能的工具。
  想到工具开发的原则,无论使用什么方式、什么语言,只要能用,有实际作用即可。还要快速开发。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值