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

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

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

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

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