中国DOS联盟

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对象保存为图片

ResizeImg.vbs

Set oImg = CreateObject("WIA.ImageFile")

Set oProc = CreateObject("WIA.ImageProcess")

oImg.LoadFile "Water lilies.jpg" 'Open the Water lilies.jpg in the current folder

oProc.Filters.Add oProc.FilterInfos("Scale").FilterID 'Add a Scale filter

oProc.Filters(1).Properties("MaximumWidth")="400" 'Define the new image width

oProc.Filters(1).Properties("MaximumHeight")="300" 'Define the new image height

Set oNewImg = oProc.Apply(oImg) 'Save the new image to the oNewImg object

oNewImg.SaveFile "New.jpg" 'Save the oNewImg object as an image

Test system: Windows XP SP2 WSH 5.6, can run successfully on any operating system that has Windows Image Acquisition installed. Windows ME and XP have WIA installed by default.

Among them, Water lilies.jpg is the "Sample Picture" included with XP. Please make sure to copy Water lilies.jpg to the folder where the script is located when running the vbs script.

Next program exciting tips: Convert image format with vbs, webcam screenshots, character recognition, speech recognition... Those who are interested can join our QQ discussion group: 21154458. Note: This group only welcomes friends who are sincerely discussing and learning vbs, not for answering batch processing/vbs questions.

Last edited by electronixtar on 2006-10-24 at 11:23 PM ]

　　Strong~~ Learned————

It's a pity that I still don't know how to use it yet
55555555

Great! Push it up!

Found a problem. The size of the regenerated image seems to be scaled according to the aspect ratio of the original image. I wonder if it can be scaled to a custom size? (For example, change a 1024*768 image to 300*300)

Windows Image Acquisition ?

Both Windows ME and XP have WIA installed by default.

But my XP doesn't have it...

Using Scale should be about the proportional relationship.

I think IrfanView.exe is good, it's compact (no other plugins) and has strong functions.
(The main file size is about the same as the runtime library of WIA)

Brother slore:
If you want to use a third-party one, PngMate is better