vbs是强大的——图片尺寸转换（8句话搞定！） - 中国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 ]

第1楼　electronixtar	发表于 2006-10-24 23:18
铂金会员　发帖 2,672　积分 7,493
[原创]vbs是强大的——图片尺寸转换（8句话搞定！） 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 ]

第2楼　lxmxn	发表于 2006-10-25 00:42
版主　发帖 4,938　积分 11,386
强～～学习了————

第3楼　vkill	发表于 2006-10-25 00:48
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
先学习再说

第4楼　utem999	发表于 2006-10-25 01:44
初级用户　发帖 54　积分 135
可惜俺还不会用呢 55555555

第5楼　redtek	发表于 2006-10-25 01:45
金牌会员　发帖 1,147　积分 2,902
真强！！！

第6楼　jmz573515	发表于 2007-03-01 10:53
银牌会员　发帖 464　积分 1,212
太棒了，顶上去！

第7楼　jmz573515	发表于 2007-03-01 11:09
银牌会员　发帖 464　积分 1,212
发现一个问题，重新生成的图片大小好像是按原来图片大小（高度和宽度比例）缩放的，不知道可不可以按自定义大小缩放？（如：把一张1024768的图片改成，300300）

第8楼　ran520	发表于 2007-03-01 12:06
初级用户　发帖 12　积分 24
哇撒```试试 ```

第9楼　slore	发表于 2007-03-01 12:51
铂金会员　发帖 2,478　积分 5,212
Windows Image Acquisition ? Windows ME XP 都是默认安装WIA的。我的XP就没有。。。用了Scale应该就是比例关系。我觉得IrfanView.exe不错小巧（不要其他的插件）功能也很强的。（主文件大小和WIA的那个运行库差不多）

第10楼　vkill	发表于 2007-03-02 00:14
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
slore兄：如果要用三方的话，PngMate更好些