求助 vbs调用Windows自带画图工具对图片打开后保存-批量方式

likongshun

1. set wshell = wscript.createobject("wscript.shell")
   
2. wshell.run "mspaint.exe 20221124123033.jpg"
   
3. WScript.Sleep 2000
   
4. wshell.SendKeys "^{s}"
   
5. WScript.Sleep 2000
   
6. wshell.SendKeys "%{F4}"

复制代码

求助高手，如何将以上用画图工具打开图片并保存的代码，做成遍历文件夹文件，循环执行的形式。

Batcher

回复 1# likongshun


    能否介绍一下画图另存为这个操作的目的是什么？

jyswjjgdwtdtj

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

Five66

打开并保存对图片没啥意义啊，打开并另存至少还能转换格式

hlzj88

这个问题我以前在其他论坛也提过，这样做（另存为同名jpg）的目的可以缩小同尺寸图片占用的空间（xp下），win7下效果不大。win10没用过。

推荐使用 jpeg resizer 这个软件。效率高功能多。
当 部分 jpeg resizer 不能加载的jpg文件，使用上面的代码处理后，可以加载。

jyswjjgdwtdtj

回复 5# hlzj88


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

likongshun

能减少文件大小

1. 
   
2. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
3. strFolder = "./"
   
4. Set objFolder = objFSO.GetFolder(strFolder)
   
5. Set colFiles = objFolder.Files
   
6. 
   
7. For Each strFile in colFiles
   
8.     If LCase(objFSO.GetExtensionName(strFile)) = "jpg" Then
   
9.         ' 在此处执行操作，例如打印文件名或打开文件等
   
10.         set wshell = wscript.createobject("wscript.shell")
    
11.         wshell.run("mspaint.exe "+strFile)
    
12.         WScript.Sleep 2000
    
13.         wshell.SendKeys "^{s}"
    
14.         WScript.Sleep 2000
    
15.         wshell.SendKeys "%{F4}"
    
16.     End If
    
17. Next
    

复制代码

Five66

回复 7# likongshun

这重编码了吧，图片质量降低了，而且也不一定能减少体积，像灰阶图可能反而增加体积

Batcher

回复 7# likongshun


    你能否找一张图片作为例子，把操作前和操作后的图片打包上传到网盘我看看？

jyswjjgdwtdtj

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

jyswjjgdwtdtj

1. 
   
2. set shell=createobject("shell.application")
   
3. foldername="C:\Users"
   
4. set nowfolder=shell.namespace(foldername)
   
5. Set Img = CreateObject("WIA.ImageFile")
   
6. Set IP = CreateObject("WIA.ImageProcess")
   
7. Const wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
   
8. set re=new regexp
   
9. re.pattern=".(png|bmp|wbmp)$"'这一行自己加
   
10. IP.Filters.Add IP.FilterInfos("Convert").FilterID
    
11. IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
    
12. filetree nowfolder
    
13. sub filetree(fdobject)
    
14.         set items=fdobject.items
    
15.         for each item in items
    
16.                 if item.isfolder then
    
17.                         filetree item.getfolder
    
18.                 elseif re.test(item.path) then
    
19. '输出到当前文件夹 确保被转换的不是jpg格式
    
20. convert item.path
    
21.                 end if
    
22.         next
    
23. end sub
    
24. sub convert(filep)
    
25. img.loadfile filep
    
26. set img=ip.apply(img)
    
27. img.savefile re.replace(filep,".jpg")
    
28. end sub
    

复制代码