在現實生活中，我們會用到大量的圖片，有些圖片會非常大，那么如何在保持不失真的情況下，把圖片壓縮到最小呢！相信老多人都很頭疼吧！

下面小編就給大家介紹一種最簡單最原始的方法

系統自帶的畫圖工具

右擊圖片-打開方式-選擇畫圖工具打開圖片-從左上角選擇文件-另存為-改下名字或者直接點擊保存覆蓋原來的圖片

是不是很簡單呢

那么我們如何在這里進行批處理呢

我們拿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

這時我們雙擊運行此文件耐心等待，等待完成，大功告成！然后打開發件夾檢查一下是不是小了很多呢！