中国DOS联盟论坛

中国DOS联盟

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

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

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





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『楼 主』:  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" 保存转换后的图片
附注：

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 ]

   此帖被 +14 点积分       点击查看详情   
评分人：【 redtek 】分数： +2  时间：2006-11-4 20:34
评分人：【 everest79 】分数： +4  时间：2007-2-25 13:29
评分人：【 jmz573515 】分数： +8  时间：2007-3-1 05:39





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-11-4 12:01
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
everest79
金牌会员

一叶枝头，万树皆春



积分 2564
发帖 1127
注册 2006-12-25
状态 离线
『第 2 楼』:  

ect老大，能不能简化下代码让mshta执行，只需要转换BMP

2007-2-25 13:28
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





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

建议最后Set 变量=Nothing

2007-2-25 14:24
查看资料  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




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

不知道怎么用啊？能不能说明一下，谢谢！

2007-2-25 21:07
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





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

建议下个支持命令的工具……

2007-2-26 02:45
查看资料  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 6 楼』:  



  Quote:
ect老大，能不能简化下代码让mshta执行，只需要转换BMP

让mshta执行可能比较麻烦，我试试，可能要用Javascript而不是vbs。
P.S. 我叫est，不是etc也不是ect，也不是CET

[/quote]建议最后Set 变量=Nothing [/quote]
谢谢你的建议，这是我的一个坏习惯

  Quote:
不知道怎么用啊？能不能说明一下，谢谢！

参考注释里的哦，把 Bliss.bmp 放到vbs同一个目录下，运行这个vbs就可以得到 BlissCompressed.jpg

  Quote:
建议下个支持命令的工具……

我把mshta版的写出来再说吧，呵呵




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'>"
2007-2-28 14:49
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 7 楼』:  

现在我在网吧里混了，好多工具没有，郁闷中.....




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'>"
2007-2-28 14:52
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
everest79
金牌会员

一叶枝头，万树皆春



积分 2564
发帖 1127
注册 2006-12-25
状态 离线
『第 8 楼』:  

那个S是打那出来的？

2007-2-28 20:33
查看资料  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




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

终于明白是怎么回事了，不过还有一个问题请教，可不可以写一个把某个文件夹下的所有图片修改成指定大小（如：400*300）的图片，也就是按比例缩放。

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





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 10 楼』:  

搜索




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'>"
2007-3-1 10:02
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qasa
高级用户




积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
『第 11 楼』:  



  Quote:
Originally posted by electronixtar at 2007-2-28 01:52:
现在我在网吧里混了，好多工具没有，郁闷中.....

est也做网吧维护了吗？



κχυμγνξοθπρωψιαδλεηφβτζσ┬╀┾┳┞┯┰┱┣┲┳╂╁│├┟┭┠这是什么？？这就是我的人生
2007-3-1 10:14
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ran520
初级用户




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

我也是在网吧混的``嘿嘿``

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





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

最后一句小写了个‘

Img.SaveFile "BlissCompressed.jpg" '保存转换后的图片

2007-11-18 19:26
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
jswxcy
新手上路





积分 16
发帖 8
注册 2007-2-14
状态 离线
『第 14 楼』:  

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

2007-11-18 21:48
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转:  



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

Sponsored by ifanr Inc | © 2001-2023