中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]vbs是强大的——图片尺寸转换（8句话搞定！）
作者:
标题: [原创]vbs是强大的——图片尺寸转换（8句话搞定！） 上一主题 | 下一主题
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『楼 主』:  [原创]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 ]

   此帖被 +30 点积分         点击查看详情   
评分人：【 shikx2008 】分数： +2  时间：2006-11-15 00:36
评分人：【 jmz573515 】分数： +8  时间：2007-3-1 10:53
评分人：【 redtek 】分数： +20  时间：2007-3-2 00:29





C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-10-24 23:18
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 2 楼』:  


　　强～～学习了————

2006-10-25 00:42
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 3 楼』:  

先学习再说

2006-10-25 00:48
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
utem999
初级用户




积分 135
发帖 54
注册 2006-9-10
状态 离线
『第 4 楼』:  

可惜俺还不会用呢
55555555

2006-10-25 01:44
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
redtek
金牌会员





积分 2902
发帖 1147
注册 2006-9-21
状态 离线
『第 5 楼』:  

真强！！！



　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
2006-10-25 01:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 6 楼』:  

太棒了，顶上去！

2007-3-1 10:53
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 7 楼』:  

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

2007-3-1 11:09
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ran520
初级用户




积分 24
发帖 12
注册 2007-2-28
状态 离线
『第 8 楼』:  

哇撒```试试 ```

2007-3-1 12:06
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 9 楼』:  

Windows Image Acquisition ?

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

我的XP就没有。。。

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

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

2007-3-1 12:51
查看资料  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 10 楼』:  

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

2007-3-2 00:14
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023