VBS--自动定时截图工具

一、测试设计1

   使用vbs编写一个脚本,让其在指定时间,截一个图,即可实现需求。

   Vbs脚本如下:

   Dim MyTime

   MyTime = Timer '返回午夜12时以后已经过去的秒数

   Do While MyTime<=51700

      MyTime = Timer

      if MyTime>51600 and MyTime< 51610 then

        WScript.CreateObject("WScript.Shell").Run "PrtSc" & " /s",0,true

        WScript.CreateObject("WScript.Shell").Run "cmd /c del " & "PrtSc",vbhid   

  • 1
    点赞
  • 9
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
功能: 1.WEBScreenShot支持在IE等WEB Brower中使用屏幕截图功能,并把截图选择区以BMP/JPG/GIF格式上传到服务器或EMail到指定的邮箱中 2.用户可以任意选择截图中的区域,可以移动选择区,动态调整选择区大小,可以用笔涂鸦或用橡皮擦掉涂鸦的内容 3.用鼠标左键选择截图区或移动或调整选择区位置或大小,用鼠标右键涂鸦选择区,用鼠标中键擦掉涂鸦内容 4.用鼠标点选择区外的地方,则取消选择动作和选择区内的涂鸦内容 5.按ENTER键则屏幕截屏动作完成,用户可以选择把选择区内的内容上传到服务器或邮寄到指定邮箱 使用: 1.本机测试前,先运行Reg.bat文件,注册COM对象 2.TEST.vbs是用来在脚本测试的 3.TEST.html是用来在IE中测试的 4.截取的图片目前上传的WEB地址假设是www.baidu.com,如果你有实际可以上传文件的URL,替换代码中的所有www.baidu.com即可 5.在TEST.vbs和TEST.html中的代码行:filename=ScreenShot.DoScreenShot("gif",false),如果把第二个参数改成:true,则会把截图保存在零时文件夹中 6.在TEST.vbs和TEST.html中的代码行:ScreenShot.ProxyInfo "1.1.1.1",1111,"","",如果你上传截图的地址连接不用代理,则去掉此行代码 7.在TEST.vbs和TEST.html中的代码行:ScreenShot.AddMailAddr "cgh93829@163.com",增加需要邮寄的邮箱地址 8.此为测试版,截图大小最大为:200*100,且有其他提示字符在其中,其他无任何功能限制 9.有兴趣的可以联系作者,QQ:1061760339

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值