jyswjjgdwtdtj

根据我用画图和sendkeys的十足经验 你这段代码只会极其浪费时间并且开出一堆画图窗口且不会关闭任何一个
vbs画图用wia啊兄弟 况且你打开，然后保存有什么意义？

jyswjjgdwtdtj

回复 5# hlzj88


    话说保存为jpg压缩理论上来讲和系统没关系 只和压缩算法有关

jyswjjgdwtdtj

啧 你要转换图片格式你直说啊

jyswjjgdwtdtj

set shell=createobject("shell.application")
foldername="C:\Users"
set nowfolder=shell.namespace(foldername)
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Const wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
set re=new regexp
re.pattern=".(png|bmp|wbmp)$"'这一行自己加
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
filetree nowfolder
sub filetree(fdobject)
	set items=fdobject.items
	for each item in items
		if item.isfolder then
			filetree item.getfolder
		elseif re.test(item.path) then
'输出到当前文件夹 确保被转换的不是jpg格式
convert item.path
		end if
	next
end sub
sub convert(filep)
img.loadfile filep
set img=ip.apply(img)
img.savefile re.replace(filep,".jpg")
end sub
复制代码