中国DOS联盟

ResizeImg.vbs

Set oImg = CreateObject("WIA.ImageFile")

Set oProc = CreateObject("WIA.ImageProcess")

oImg.LoadFile "Water lilies.jpg" '打开当前文件夹里的Water lilies.jpg

oProc.Filters.Add oProc.FilterInfos("Scale").FilterID '添加一个 Scale 的滤境

oProc.Filters(1).Properties("MaximumWidth")="400" '定义新图片的 宽

oProc.Filters(1).Properties("MaximumHeight")="300" '定义新图片的 高

Set oNewImg = oProc.Apply(oImg) '保存新图片到 oNewImg 对象里

oNewImg.SaveFile "New.jpg" '把oNewImg对象保存为图片

测试系统：Windows XP SP2 WSH 5.6，只要安装了 Windows Image Acquisition 的操作系统都可以成功运行。 Windows ME XP 都是默认安装WIA的。

其中 Water lilies.jpg 是 XP 自带的“示例图片”，运行vbs脚本时请确认复制Water lilies.jpg到当前脚本所在的文件夹

下次节目精彩提示：用vbs转换图片格式，摄像头截图，字符识别，语音识别……感兴趣者可以加入到我们的QQ讨论群里：21154458 。注意：本群只欢迎真心探讨、学习vbs的朋友，不是用来解答批处理/vbs问题的。

Last edited by electronixtar on 2006-10-24 at 11:23 PM ]

　　强～～学习了————

先学习再说

可惜俺还不会用呢
55555555

真强！！！

太棒了，顶上去！

发现一个问题，重新生成的图片大小好像是按原来图片大小（高度和宽度比例）缩放的，不知道可不可以按自定义大小缩放？（如：把一张1024*768的图片改成，300*300）

哇撒```试试 ```

Windows Image Acquisition ?

Windows ME XP 都是默认安装WIA的。

我的XP就没有。。。

用了Scale应该就是比例关系。

我觉得IrfanView.exe不错小巧（不要其他的插件）功能也很强的。
（主文件大小和WIA的那个运行库差不多）

slore兄：
如果要用三方的话，PngMate更好些