发帖
扫码访问
 注册
 登录
首页 ›电脑› 电脑学堂 › 查看内容

VBS实现截图功能

2015-9-28 13:33 3079 0

摘要: 百度说，VBS很难截图，倒是有个利用第三方软件的方法，调用该软件，然后该软件会自动截图。但这样，违背了用VBS的初衷。用VBS就是因为它方便快捷。要是用第三方软件的话，干脆我们直接用VB写一个好了。那么...只好调 ...
关键词： important background 0px auto VBS 方法 border 第三方 right 软件

百度说，VBS很难截图，倒是有个利用第三方软件的方法，调用该软件，然后该软件会自动截图。

但这样，违背了用VBS的初衷。

用VBS就是因为它方便快捷。要是用第三方软件的话，干脆我们直接用VB写一个好了。

那么...只好调用Excel用VBA去做了。
有什么更好的方法吗？

在度娘上翻了很久，没有什么好方法，因为实现截屏原本就不是微软设计vbs的初衷，更多的扩展功能是使用者的意愿，所以才会有第三方的出现，实际vbs调用vba也是这种方式，利用的是vba能调用API的特性，查了下网上的代码，调用的是USER32模块中的keybd_event函数实现的截屏

最终一位大神给出了以下代码：

?
1
2
3
4
5
6
7
8
9
10
11
12
'VBS截屏.vbs
' Win7x64 测试通过(已安装Word2007)：
'参考：
' http://qtp.blogspot.com/2010/02/screenshot-vbscript.html
' http://www.fixitscripts.com/problems/take-screenshot-of-current-user-s-session
 
With CreateObject("Word.Basic")
 .Sendkeys "{prtsc}"
 .FileQuit '.AppClose
End With
 
Msgbox "已将屏幕截取到剪贴板。", vbSystemModal+vbInformation, WScript.ScriptName

真是艰难啊。

最后给大家一个更加神奇的方法

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系 [邮箱地址] 删除

路过
雷人
握手
鲜花
鸡蛋
收藏 分享 邀请
上一篇：怎么在win7中添加扫描仪下一篇：正则表达式问号的四种用法详解

最新评论

相关分类