windows画图工具mspaint图片批量无损压缩vbs

windows画图工具mspaint图片批量无损压缩vbs

数码相机与手机拍照像素很高，照片普遍偏大，占用空间且上传诸多不便。其他软件压缩又存在失真现象，windows画图工具mspaint重新保存后根本看不出有压缩失真现象，手工保存费时费力，可否编程处理呢？网上基本搜不到，现偶遇到一些vbs应用，稍作修改，效果还不错。下面vbs主要实现windows自动重复打开保存操作，所以在运行中不要点击鼠标，以免程序中断操作。

打开记事本，粘贴如下程序，并保存为（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"

运行（mspaint批量压缩.vbs）文件，此程序文件不要放在磁盘根目录，需要放在下一级目录或者桌面，360会误报。

复制要压缩的文件路径，填入后确认（注意不支持中文目录与中文的jpg文件），需改为英文或数字的目录与文件。

运行中不要点击鼠标，以免程序中断操作。待完成后大功告成啦！！！