China DOS Union

```
Dim Img 'Image file
Dim IP 'Image processing

Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")

Img.LoadFile "Bliss.bmp" 'Load original image

IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}" 'The format here can be set by yourself, see the attached table
IP.Filters(1).Properties("Quality").Value = 5 'Image quality

Set Img = IP.Apply(Img) 'Apply

Img.SaveFile "BlissCompressed.jpg" 'Save the converted image
```

Notes:

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}


System requirements: WinME and above + Windows Image Acquisition

WIA is very powerful, supporting
Rotate image
Crop image
Resize
Image watermark
EXIF information
TIFF multi-page
ARGB
Convert format

Reference:
Windows® Image Acquisition runtime library and reference

http://download.microsoft.com/download/WinXPHome/Utility/2.0/WXP/EN-US/WIAAutSDK.zip

[ Last edited by electronixtar on 2007-2-28 at 02:59 PM ]

Boss ect, can you simplify the code to let mshta execute, only need to convert BMP

It is suggested that finally Set variable = Nothing

I don't know how to use it. Can you explain it? Thanks!

Suggest a next tool that supports commands...

Ect boss, can you simplify the code to let mshta execute, only need to convert BMP

It may be more troublesome to let mshta execute. I'll try. Maybe use Javascript instead of vbs.
P.S. My name is est, not etc or ect, nor CET

It is suggested to finally Set variable=Nothing
Thank you for your suggestion. This is one of my bad habits

I don't know how to use it? Can you explain it, please!

Refer to the comments. Put Bliss.bmp in the same directory as the vbs, run this vbs to get BlissCompressed.jpg

It is suggested to download a tool that supports commands...

I'll write out the mshta version first, hehe

Now I'm hanging out in an internet cafe, and there are many tools missing. I'm feeling depressed.....

Where does that S come from?

Finally understand what's going on, but there's still one question to ask. Can you write a program to resize all images in a certain folder to a specified size (such as 400*300), that is, scale proportionally?

Originally posted by electronixtar at 2007-2-28 01:52:
Now I'm hanging out in an internet cafe, many tools are not available, feeling depressed.....

Has est also started doing internet cafe maintenance?

I also used to hang out in internet cafes``Hehe``

The last sentence is lowercase with a '

Img.SaveFile "BlissCompressed.jpg" ' to save the converted image

Can't understand~ Please explain specifically how to use it? I'm a newbie~