windows画图工具mspaint图片批量无损压缩vbs
数码相机与手机拍照像素很高,照片普遍偏大,占用空间且上传诸多不便。其他软件压缩又存在失真现象,windows画图工具mspaint重新保存后根本看不出有压缩失真现象,手工保存费时费力,可否编程处理呢?网上基本搜不到,现偶遇到一些vbs应用,稍作修改,效果还不错。下面vbs主要实现windows自动重复打开保存操作,所以在运行中不要点击鼠标,以免程序中断操作。
操作方法
- 01
打开记事本,粘贴如下程序,并保存为(mspaint批量压缩.vbs)文件: '功能:将当前图片目录(如 F:\12)下的jpg图片自动保存一次 'Set ws = CreateObject("Wscript.Shell") 'ws.run "mspaint zsc.jpg",1 dim fso,pic_file,directory,tmpname,current_url,new_url set fso = CreateObject("Scripting.FileSystemObject") '设置文件目录所在位置 current_url=inputbox("输入文件所在的目录(不支持中文目录),如D:\floder(最后不要带\)") set directory = fso.getfolder(current_url) '打开画图软件 set ws = WScript.CreateObject("WScript.Shell") ws.Run "C:\WINDOWS\system32\mspaint.exe",1 WScript.Sleep 1000 for each pic_file in directory.files tmpname=lcase(pic_file.name) ws.AppActivate "paint" WScript.Sleep 200 '打开文件 ws.Sendkeys "^o " WScript.Sleep 200 ws.SendKeys current_url&"\"&tmpname WScript.Sleep 200 ws.SendKeys "~" WScript.Sleep 200 '保存 ws.Sendkeys "^s " WScript.Sleep 200 next ws.Sendkeys "%fx"
- 02
运行(mspaint批量压缩.vbs)文件,此程序文件不要放在磁盘根目录,需要放在下一级目录或者桌面,360会误报。
- 03
复制要压缩的文件路径,填入后确认(注意不支持中文目录与中文的jpg文件),需改为英文或数字的目录与文件。
- 04
运行中不要点击鼠标,以免程序中断操作。待完成后大功告成啦!!!