Board logo

标题: [技术讨论] 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 编辑
  1. 'VBS截屏.vbs
  2. '  Win7x64 测试通过(已安装Word2007):
  3. '参考:
  4. '  http://qtp.blogspot.com/2010/02/screenshot-vbscript.html
  5. '  http://www.fixitscripts.com/problems/take-screenshot-of-current-user-s-session
  6. With CreateObject("Word.Basic")
  7.   .Sendkeys "{prtsc}"
  8.   .FileQuit '.AppClose
  9. End With
  10. Msgbox "已将屏幕截取到剪贴板。", vbSystemModal+vbInformation, WScript.ScriptName
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2