在现实生活中，我们会用到大量的图片，有些图片会非常大，那么如何在保持不失真的情况下，把图片压缩到最小呢！相信老多人都很头疼吧！

下面小编就给大家介绍一种最简单最原始的方法

系统自带的画图工具

右击图片-打开方式-选择画图工具打开图片-从左上角选择文件-另存为-改下名字或者直接点击保存覆盖原来的图片

是不是很简单呢

那么我们如何在这里进行批处理呢

我们拿JPG格式图片举例

我们先建一个文件夹，最好是英文，把需要处理的图片放到这个文件夹中，文件最好在英文路径下，不然会报错

譬如：我们在F盘下建一个pic文件夹，把图片全部放到这里来，然后把图片命名为1.jpg 2.jpg 3.jpg 4.jpg 5.jpg 6.jpg ... 以此类推

我们在F盘下新建一个记事本文件，把下面的代码粘贴到记事本中

---------------------------

dim a,b,c

set WshShell = WScript.CreateObject("WScript.Shell")

a="C:\WINDOWS\system32\mspaint.exe"

b="F:\pic\"                  ‘这里是图片文件夹路径，最好是英文

for c=1 to 12                                                  ‘这里是图片的开始名称和结束名称

WshShell.Run a&" "&b&c&".jpg"

WScript.Sleep 1000

WshShell.AppActivate "paint"

WshShell.Sendkeys "^s"

WScript.Sleep 1000

WshShell.SendKeys "%{F4}"

next

-------------------------------

将记事本文件保存为VBS格式的文件 譬如：pic.VBS

这时我们双击运行此文件耐心等待，等待完成，大功告成！然后打开发件夹检查一下是不是小了很多呢！