windows畫圖工具mspaint圖片批量無損壓縮vbs

數位相機與手機拍照像素很高,照片普遍偏大,占用空間且上傳諸多不便。其他軟體壓縮又存在失真現象,windows畫圖工具mspaint重新保存後根本看不出有壓縮失真現象,手工保存費時費力,可否編程處理呢?網上基本搜不到,現偶遇到一些vbs應用,稍作修改,效果還不錯。下面vbs主要實現windows自動重複打開保存操作,所以在運行中不要點擊滑鼠,以免程序中斷操作。

工具/原料

windows自帶記事本

方法/步驟

打開記事本,粘貼如下程序,並保存為(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"

運行(mspaint批量壓縮.vbs)文件,此程序文件不要放在磁碟根目錄,需要放在下一級目錄或者桌面,360會誤報。

複製要壓縮的文件路徑,填入後確認(注意不支持中文目錄與中文的jpg文件),需改為英文或數字的目錄與文件。

運行中不要點擊滑鼠,以免程序中斷操作。待完成後大功告成啦!!!

注意事項

如果照片較大,程序出錯,需把WScript.Sleep 200 改為300或更大,這個設定了打開速度與運行速度,配置慢的電腦運行速度跟不上,需加大此值。

本文內容整理自網絡, 文中所有觀點看法不代表淘大白的立場