[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
Tianorder

Rank: 1

帖子
42 
积分
89 
技术
1  
捐助
0  
注册时间
2015-6-9 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2015-9-10 10:51 | 只看该作者

[技术讨论] VBS如何实现截屏/屏幕截图

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

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

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

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

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
6楼
发表于 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
复制代码
2

评分人数

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

Demon

Rank: 5Rank: 5

帖子
766 
积分
1451 
技术
117  
捐助
0  
注册时间
2010-5-12 
5楼
发表于 2015-9-10 23:08 | 只看该作者
其实是可以的，只可惜我的代码找不到了
2

评分人数

    • Tianorder: 你也在这里啊。我很崇拜你的技术 + 1
    • CrLf: 前来膜拜技术 + 1
http://demon.tw

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
4楼
发表于 2015-9-10 16:43 | 只看该作者
回复 3# Tianorder
了解下当年的微软和网景的浏览器之争以及vbs/vb/vba、javascript/vbscript/jscript的关系史
1

评分人数

    • Tianorder: 感觉VBScript能做到的，JavaScript都能做到 ...技术 + 1

TOP

Tianorder

Rank: 1

帖子
42 
积分
89 
技术
1  
捐助
0  
注册时间
2015-6-9 
3楼
发表于 2015-9-10 14:50 | 只看该作者
回复 2# pcl_test


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

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2015-9-10 13:47 | 只看该作者
没有什么好方法，因为实现截屏原本就不是微软设计vbs的初衷，更多的扩展功能是使用者的意愿，所以才会有第三方的出现，实际vbs调用vba也是这种方式，利用的是vba能调用API的特性，查了下网上的代码，调用的是USER32模块中的keybd_event函数实现的截屏

TOP

返回列表