Board logo

标题: vbs是强大的——转换图片格式 [打印本页]
作者: electronixtar     时间: 2006-11-4 12:01    标题: 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 运行库和参考 download.microsoft.com ... [ Last edited by electronixtar on 2007-2-28 at 02:59 PM ]
作者: everest79     时间: 2007-2-25 13:28
ect老大，能不能简化下代码让mshta执行，只需要转换BMP
作者: slore     时间: 2007-2-25 14:24
建议最后Set 变量=Nothing
作者: jmz573515     时间: 2007-2-25 21:07
不知道怎么用啊？能不能说明一下，谢谢！
作者: slore     时间: 2007-2-26 02:45
建议下个支持命令的工具……
作者: electronixtar     时间: 2007-2-28 14:49
ect老大，能不能简化下代码让mshta执行，只需要转换BMP
让mshta执行可能比较麻烦，我试试，可能要用Javascript而不是vbs。 P.S. 我叫est，不是etc也不是ect，也不是CET [/quote]建议最后Set 变量=Nothing [/quote] 谢谢你的建议，这是我的一个坏习惯
不知道怎么用啊？能不能说明一下，谢谢！
参考注释里的哦，把 Bliss.bmp 放到vbs同一个目录下，运行这个vbs就可以得到 BlissCompressed.jpg
建议下个支持命令的工具……
我把mshta版的写出来再说吧，呵呵
作者: electronixtar     时间: 2007-2-28 14:52
现在我在网吧里混了，好多工具没有，郁闷中.....
作者: everest79     时间: 2007-2-28 20:33
那个S是打那出来的？
作者: jmz573515     时间: 2007-3-1 05:42
终于明白是怎么回事了，不过还有一个问题请教，可不可以写一个把某个文件夹下的所有图片修改成指定大小（如：400*300）的图片，也就是按比例缩放。
作者: electronixtar     时间: 2007-3-1 10:02
搜索
作者: qasa     时间: 2007-3-1 10:14
Originally posted by electronixtar at 2007-2-28 01:52: 现在我在网吧里混了，好多工具没有，郁闷中.....
est也做网吧维护了吗？
作者: ran520     时间: 2007-3-1 11:34
我也是在网吧混的``嘿嘿``
作者: vkill     时间: 2007-11-18 19:26
最后一句小写了个‘ Img.SaveFile "BlissCompressed.jpg" '保存转换后的图片
作者: jswxcy     时间: 2007-11-18 21:48
看不懂啊~具体说明下怎么用吧？我是菜菜~