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. 

  7. 

  8. With CreateObject("Word.Basic")

  9.   .Sendkeys "{prtsc}"

  10.   .FileQuit '.AppClose

  11. End With

  12. 

  13. Msgbox "已将屏幕截取到剪贴板。", vbSystemModal+vbInformation, WScript.ScriptName
复制代码




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