1、打开记事本，粘贴如下程序，并保存为（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"
2、运行（mspaint批量压缩.vbs）文件，此程序文件不要放在磁盘根目录，需要放在下一级目录或者桌面，360会误报。
3、复制要压缩的文件路径，填入后确认（注意不支持中文目录与中文的jpg文件），需改为英文或数字的目录与文件。
4、运行中不要点击鼠标，以免程序中断操作。待完成后大功告成啦！！！