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

Pic=GetWinPic()
Path= GetRunPath()+"\快照.jpg"
If WriteFile(Path,Pic) Then
MsgBox "快照创建成功,文件被存放在"&Path,48,"快照创建成功"
End If
复制代码

需要使用 VBScript编译器(VBS也疯狂)V2.2以上版本编译
提供下在地址 http://www.crsky.com/soft/25800.html

Rank: 1

4楼

发表于 2011-7-17 22:59 | 只看该作者

鉴定完毕.!

Rank: 2

3楼

发表于 2011-6-24 22:11 | 只看该作者

好东西试试

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