批处理之家 - Powered by Discuz! Board

标题: [原创] 5行VBS代码实现屏幕截图 [打印本页]

作者: mchudie 时间: 2011-4-8 12:04 标题: 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

作者: ab362425 时间: 2011-6-24 22:11

好东西试试

作者: mqbrh 时间: 2011-7-17 22:59

鉴定完毕.!

欢迎光临批处理之家 (http://www.bathome.net/)