在现实生活中，我们会用到大量的图片，有些图片会非常大，那么如何在保持不失真的情况下，把图片压缩到最小呢！相信老多人都很头疼吧！
下面我们分两种情况说明怎样压缩图片更好？
一、系统自带的画图工具
右击图片-打开方式-选择画图工具打开图片-从左上角选择文件-另存为-改下名字或者直接点击保存覆盖原来的图片。
是不是很简单呢？
二、那么我们如何在这里进行批处理呢
我们拿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
这时我们双击运行此文件耐心等待，等待完成，大功告成！
检查一下，是不是很小啦？
