找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 20866|回复: 3

[原创] 5行VBS代码实现屏幕截图

[复制链接]
发表于 2011-4-8 12:04:46 | 显示全部楼层 |阅读模式
  1. Pic=GetWinPic()
  2. Path= GetRunPath()+"\快照.jpg"
  3. If WriteFile(Path,Pic) Then
  4. MsgBox "快照创建成功,文件被存放在"&Path,48,"快照创建成功"
  5. End If
复制代码
需要使用 VBScript编译器(VBS也疯狂)V2.2以上版本编译
提供下在地址 http://www.crsky.com/soft/25800.html
发表于 2011-6-24 22:11:44 | 显示全部楼层
好东西试试
发表于 2011-7-17 22:59:45 | 显示全部楼层
鉴定完毕.!












来无影网
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 23:16 , Processed in 0.017173 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表