中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原]WIA转换图片格式JScript版及mshta单行命令版

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『楼主』: [原]WIA转换图片格式JScript版及mshta单行命令版

在这个帖子里朋友们提到了需要一个命令版本的图片转换工具，于是研究了下写出来和大家分享。mshta可以直接用命令行参数插入WSH/VBS/JS代码，所以先发一个Javascript原型：

//原始文件的WIA对象

var WiaFile=new ActiveXObject('WIA.ImageFile'); 

//载入原始图片

WiaFile.LoadFile('Bliss.bmp'); 

//WIA图片处理对象

var WiaProcess=new ActiveXObject('WIA.ImageProcess'); 

//这里的CLSID表示添加了一个转换图片格式的filter

WiaProcess.Filters.Add('{42A6E907-1D2F-4b38-AC50-31ADBE2AB3C2}');

//WIA filter属性对象

var WiaFilterProperties=WiaProcess.Filters(1).Properties

// 这里的CLSID表示转换成的图片格式

WiaFilterProperties('FormatID').Value='{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}';

//转换质量，最好为100，几乎没有变化，但是文件体积比较大

WiaFilterProperties('Quality').Value=5; 

//保存为另一个WIA对象

var WiaFile2 =WiaProcess.Apply(WiaFile); 

//保存成文件

WiaFile2.SaveFile('BlissCompressed2.jpg');

那么写成mshta版就是：

mshta "javascript:var i=new ActiveXObject('WIA.ImageFile');i.LoadFile('Bliss.bmp');var x=new ActiveXObject('WIA.ImageProcess');x.Filters.Add('{42A6E907-1D2F-4b38-AC50-31ADBE2AB3C2}');with(x.Filters(1)){Properties('FormatID').Value='{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}';Properties('Quality').Value=5;}x.Apply(i).SaveFile('BlissCompressed2.jpg');window.close();"

使用时请代码中的 bliss.bmp 改成目标图片文件名称，BlissCompressed2.jpg改成保存为的文件名。代码中表示转换为的格式的CLSID：

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}

可能需要WIA运行库：
http://download.microsoft.com/download/WinXPHome/Utility/2.0/WXP/EN-US/WIAAutSDK.zip

用 regsvr32 wiaaut.dll 注册该组件

[ Last edited by electronixtar on 2007-3-1 at 09:30 AM ]

此帖被 +16 点积分

点击查看详情

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 15:29