數(shù)碼相機與手機拍照所得的高像素照片往往文件較大，給存儲和傳輸帶來不便。雖然市面上有各種圖片壓縮軟件，但存在著失真的問題。在這種情況下，Windows自帶的畫圖工具MS Paint成為一種選擇。重新保存

數(shù)碼相機與手機拍照所得的高像素照片往往文件較大，給存儲和傳輸帶來不便。雖然市面上有各種圖片壓縮軟件，但存在著失真的問題。在這種情況下，Windows自帶的畫圖工具MS Paint成為一種選擇。重新保存圖片后，幾乎看不出明顯的失真。但是，手動操作費時費力，是否能通過編程來解決呢？近期偶遇到一些VBScript應(yīng)用，稍加修改后效果不錯。

VBScript實現(xiàn)自動重復(fù)打開保存操作

要使用VBScript進行批量無損壓縮，首先需要創(chuàng)建一個.vbs文件，命名為“mspaint批量壓縮.vbs”。該腳本的主要功能是自動打開指定目錄下的jpg圖片并進行一次保存操作。在運行過程中，務(wù)必避免點擊鼠標，以免程序中斷操作。

```vbscript

'功能：將當(dāng)前圖片目錄下的jpg圖片自動保存一次

Set ws CreateObject("")

"mspaint ", 1

Dim fso, pic_file, directory, tmpname, current_url, new_url

Set fso CreateObject("")

'設(shè)置文件目錄位置

current_url InputBox("輸入文件所在的目錄（不支持中文目錄），如D:folder（最后不要帶）")

Set directory (current_url)

'打開畫圖軟件

Set ws ("")

"C:WINDOWSsystem32mspaint.exe", 1

1000

For Each pic_file In

tmpname LCase(pic_)

"paint"

200

'打開文件

"^o "

200

current_url tmpname

200

"~"

200

'保存

"^s "

200

Next

"%fx"

```

運行注意事項

在運行“mspaint批量壓縮.vbs”文件時，應(yīng)確保該文件不放在磁盤根目錄，而是放在下一級目錄或桌面，因為360安全衛(wèi)士可能會誤報。另外，在填入要壓縮的文件路徑時，需要注意不支持中文目錄或中文jpg文件，應(yīng)該改為英文或數(shù)字的目錄與文件。在程序運行過程中，切勿點擊鼠標，以免中斷操作。完成上述步驟后，你就可以輕松實現(xiàn)批量無損壓縮圖片的操作了！

通過以上VBScript腳本，我們可以利用Windows畫圖工具MS Paint進行批量圖片處理，既節(jié)省時間又能保證圖片質(zhì)量，極大地提高了工作效率。希望這個小技巧對你有所幫助！