windows自带记事本
打开记事本，粘贴如下程序，并保存为（mspaint批量压缩.vbs）文件：'功能:将当前图片目录（如 F:\12）下的jpg图片自动保存一次'Set ws = CreateObject('Wscript.Shell')'ws.run 'mspaint zsc.jpg',1dim fso,pic_file,directory,tmpname,current_url,new_urlset 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',1WScript.Sleep 1000for each pic_file in directory.filestmpname=lcase(pic_file.name)ws.AppActivate 'paint'WScript.Sleep 200'打开文件ws.Sendkeys '^o 'WScript.Sleep 200ws.SendKeys current_url&'\'&tmpnameWScript.Sleep 200ws.SendKeys '~'WScript.Sleep 200'保存ws.Sendkeys '^s 'WScript.Sleep 200nextws.Sendkeys '%fx'
复制要压缩的文件路径，填入后确认（注意不支持中文目录与中文的jpg文件），需改为英文或数字的目录与文件。
运行中不要点击鼠标，以免程序中断操作。待完成后大功告成啦！！！
如果照片较大，程序出错，需把WScript.Sleep 200 改为300或更大，这个设定了打开速度与运行速度，配置慢的电脑运行速度跟不上，需加大此值。