中国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" '保存转换后的图片

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