批处理之家 - Powered by Discuz! Board

标题: [技术讨论] VBS如何实现截屏/屏幕截图 [打印本页]

作者: Tianorder 时间: 2015-9-10 10:51 标题: VBS如何实现截屏/屏幕截图

本帖最后由 pcl_test 于 2017-4-16 18:46 编辑

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

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

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

作者: pcl_test 时间: 2015-9-10 13:47

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

作者: Tianorder 时间: 2015-9-10 14:50

回复 2# pcl_test

微软设计vbs的初衷是什么？
有相关的链接吗？

作者: pcl_test 时间: 2015-9-10 16:43

回复 3# Tianorder
了解下当年的微软和网景的浏览器之争以及vbs/vb/vba、javascript/vbscript/jscript的关系史

作者: Demon 时间: 2015-9-10 23:08

其实是可以的，只可惜我的代码找不到了

作者: yu2n 时间: 2015-9-13 00:06

本帖最后由 yu2n 于 2015-9-13 00:39 编辑

'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
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)