标题: 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" 保存转换后的图片
附注：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/do ... EN-US/WIAAutSDK.zip
[ 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
| Quote: | |
|
让mshta执行可能比较麻烦，我试试，可能要用Javascript而不是vbs。
P.S. 我叫est，不是etc也不是ect，也不是CET
[/quote]建议最后Set 变量=Nothing [/quote]
谢谢你的建议，这是我的一个坏习惯
| Quote: | |
|
参考注释里的哦，把 Bliss.bmp 放到vbs同一个目录下，运行这个vbs就可以得到 BlissCompressed.jpg
| Quote: | |
|
我把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
| Quote: | |
|
est也做网吧维护了吗？
作者: ran520 时间: 2007-3-1 11:34
我也是在网吧混的``嘿嘿``
作者: vkill 时间: 2007-11-18 19:26
最后一句小写了个‘
Img.SaveFile "BlissCompressed.jpg" '保存转换后的图片
作者: jswxcy 时间: 2007-11-18 21:48
看不懂啊~具体说明下怎么用吧？我是菜菜~