vbs是强大的——转换图片格式 - 中国DOS联盟论坛


Dim Img '图片文件
Dim IP '图片处理

Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")

Img.LoadFile "Bliss.bmp" '载入原始图片

IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}" '这里的格式可以自行设定，见附表
IP.Filters(1).Properties("Quality").Value = 5 '图片质量

Set Img = IP.Apply(Img) '应用

Img.SaveFile "BlissCompressed.jpg" 保存转换后的图片

附注：

BMP {B96B3CAB-0728-11D3-9D7B-0000F81EF32E}

PNG {B96B3CAF-0728-11D3-9D7B-0000F81EF32E}

GIF {B96B3CB0-0728-11D3-9D7B-0000F81EF32E}

JPEG {B96B3CAE-0728-11D3-9D7B-0000F81EF32E}

TIFF {B96B3CB1-0728-11D3-9D7B-0000F81EF32E}

系统需求：WinME以上+Windows Image Acquisition

WIA是很强大的，支持
旋转图片
剪裁图片
重设大小
图片水印
EXIF信息
TIFF多页
ARGB
转换格式

参考：
Windows® Image Acquisition 运行库和参考

http://download.microsoft.com/download/WinXPHome/Utility/2.0/WXP/EN-US/WIAAutSDK.zip

[ Last edited by electronixtar on 2007-2-28 at 02:59 PM ]

ect老大，能不能简化下代码让mshta执行，只需要转换BMP

建议最后Set 变量=Nothing

不知道怎么用啊？能不能说明一下，谢谢！

建议下个支持命令的工具……

ect老大，能不能简化下代码让mshta执行，只需要转换BMP

让mshta执行可能比较麻烦，我试试，可能要用Javascript而不是vbs。
P.S. 我叫est，不是etc也不是ect，也不是CET

建议最后Set 变量=Nothing
谢谢你的建议，这是我的一个坏习惯

不知道怎么用啊？能不能说明一下，谢谢！

参考注释里的哦，把 Bliss.bmp 放到vbs同一个目录下，运行这个vbs就可以得到 BlissCompressed.jpg

建议下个支持命令的工具……

我把mshta版的写出来再说吧，呵呵

现在我在网吧里混了，好多工具没有，郁闷中.....

那个S是打那出来的？

终于明白是怎么回事了，不过还有一个问题请教，可不可以写一个把某个文件夹下的所有图片修改成指定大小（如：400*300）的图片，也就是按比例缩放。

Originally posted by electronixtar at 2007-2-28 01:52:
现在我在网吧里混了，好多工具没有，郁闷中.....

est也做网吧维护了吗？

我也是在网吧混的``嘿嘿``

最后一句小写了个‘

Img.SaveFile "BlissCompressed.jpg" '保存转换后的图片

看不懂啊~具体说明下怎么用吧？我是菜菜~

第1楼　electronixtar	发表于 2006-11-04 12:01
铂金会员　发帖 2,672　积分 7,493
vbs是强大的——转换图片格式 Dim Img '图片文件 Dim IP '图片处理 Set Img = CreateObject("WIA.ImageFile") Set IP = CreateObject("WIA.ImageProcess") Img.LoadFile "Bliss.bmp" '载入原始图片 IP.Filters.Add IP.FilterInfos("Convert").FilterID IP.Filters(1).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}" '这里的格式可以自行设定，见附表 IP.Filters(1).Properties("Quality").Value = 5 '图片质量 Set Img = IP.Apply(Img) '应用 Img.SaveFile "BlissCompressed.jpg" 保存转换后的图片附注： BMP {B96B3CAB-0728-11D3-9D7B-0000F81EF32E} PNG {B96B3CAF-0728-11D3-9D7B-0000F81EF32E} GIF {B96B3CB0-0728-11D3-9D7B-0000F81EF32E} JPEG {B96B3CAE-0728-11D3-9D7B-0000F81EF32E} TIFF {B96B3CB1-0728-11D3-9D7B-0000F81EF32E} 系统需求：WinME以上+Windows Image Acquisition WIA是很强大的，支持旋转图片剪裁图片重设大小图片水印 EXIF信息 TIFF多页 ARGB 转换格式参考： Windows® Image Acquisition 运行库和参考 http://download.microsoft.com/download/WinXPHome/Utility/2.0/WXP/EN-US/WIAAutSDK.zip [ Last edited by electronixtar on 2007-2-28 at 02:59 PM ]

第2楼　everest79	发表于 2007-02-25 13:28
金牌会员　发帖 1,127　积分 2,564
ect老大，能不能简化下代码让mshta执行，只需要转换BMP

第3楼　slore	发表于 2007-02-25 14:24
铂金会员　发帖 2,478　积分 5,212
建议最后Set 变量=Nothing

第4楼　jmz573515	发表于 2007-02-25 21:07
银牌会员　发帖 464　积分 1,212
不知道怎么用啊？能不能说明一下，谢谢！

第5楼　slore	发表于 2007-02-26 02:45
铂金会员　发帖 2,478　积分 5,212
建议下个支持命令的工具……

第6楼　electronixtar	发表于 2007-02-28 14:49
铂金会员　发帖 2,672　积分 7,493
ect老大，能不能简化下代码让mshta执行，只需要转换BMP 让mshta执行可能比较麻烦，我试试，可能要用Javascript而不是vbs。 P.S. 我叫est，不是etc也不是ect，也不是CET 建议最后Set 变量=Nothing 谢谢你的建议，这是我的一个坏习惯不知道怎么用啊？能不能说明一下，谢谢！参考注释里的哦，把 Bliss.bmp 放到vbs同一个目录下，运行这个vbs就可以得到 BlissCompressed.jpg 建议下个支持命令的工具…… 我把mshta版的写出来再说吧，呵呵

第7楼　electronixtar	发表于 2007-02-28 14:52
铂金会员　发帖 2,672　积分 7,493
现在我在网吧里混了，好多工具没有，郁闷中.....

第8楼　everest79	发表于 2007-02-28 20:33
金牌会员　发帖 1,127　积分 2,564
那个S是打那出来的？

第9楼　jmz573515	发表于 2007-03-01 05:42
银牌会员　发帖 464　积分 1,212
终于明白是怎么回事了，不过还有一个问题请教，可不可以写一个把某个文件夹下的所有图片修改成指定大小（如：400*300）的图片，也就是按比例缩放。

第10楼　electronixtar	发表于 2007-03-01 10:02
铂金会员　发帖 2,672　积分 7,493
搜索

第11楼　qasa	发表于 2007-03-01 10:14
高级用户　发帖 311　积分 959　来自广东-LianJiang
Originally posted by electronixtar at 2007-2-28 01:52: 现在我在网吧里混了，好多工具没有，郁闷中..... est也做网吧维护了吗？

第12楼　ran520	发表于 2007-03-01 11:34
初级用户　发帖 12　积分 24
我也是在网吧混的``嘿嘿``

第13楼　vkill	发表于 2007-11-18 19:26
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
最后一句小写了个‘ Img.SaveFile "BlissCompressed.jpg" '保存转换后的图片

第14楼　jswxcy	发表于 2007-11-18 21:48
新手上路　发帖 8　积分 16
看不懂啊~具体说明下怎么用吧？我是菜菜~