回复 1# 67800461
不要用什么剪切板了,图片拖到脚本上直接转化为D盘1.bmp- Set imgFile = CreateObject("WIA.ImageFile")
- Set imgProcess = CreateObject("WIA.ImageProcess")
- imgFile.LoadFile WScript.arguments(0)
- imgProcess.Filters.Add imgProcess.FilterInfos("Convert").FilterID
- imgProcess.Filters(1).Properties("FormatID").Value = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"
- Set imgFile = imgProcess.Apply(imgFile)
- imgFile.SaveFile "D:\1.bmp"
复制代码
|