vbs如何新建一个空白图片文件？（已解决）

窄口牛

vbs可以通过wia绘制图片，但没找到怎么弄空白的，就像win右键的新建一张空白bmp图片那样。

bat1152

bat:copy nul 1.bmp

Batcher

回复 1# 窄口牛

1. CreateObject("WSCript.Shell").Run "cmd /c cd.>New.bmp"

复制代码

窄口牛

这些不合法，文本改后缀，想要合法的图片文件。

lancer

什么情况下会有这样的需求呢，要新建空白图片。

idwma

是这个吗

1. https://learn.microsoft.com/zh-cn/previous-versions/windows/desktop/wiaaut/-wiaaut-shared-samples#create-an-imagefile-object-that-contains-a-blank-page

复制代码

1. Dim v 'As Vector
   
2. Dim Img 'As ImageFile
   
3. Dim c 'As Long
   
4. 
   
5. c = &hFFFEFFFF 'opaque blue (A=255,R=0,G=0,B=255)
   
6. Set v = CreateObject("WIA.Vector")
   
7. 
   
8. v.Add c
   
9. v.Add c
   
10. v.Add c
    
11. v.Add c
    
12. 
    
13. Set Img = v.ImageFile(2, 2)
    
14. 
    
15. Img.SaveFile "123." & Img.FileExtension

复制代码

窄口牛

这个是两个像素白色的图片，一层说的就是可以建色块图片，而不是空白图片。

idwma

回复 7# 窄口牛

哪空文件和空白图片不是一样的吗,都是0字节文件,怎么不合法呀

窄口牛

文件真实格式和后缀一致才是合法，你把文本改个后缀其实还是文本。

WHY

用画图程序新建一个BMP，然后转成HEX，再然后放到VBS文件里面。粗暴，但管用。

1. Dim Date
   
2. Date = "424D0EE40000000000003E00000028000000600300001C0200000100010000000000D0E300000000000000000000000000000000000000000000FFFFFF00FFFF"
   
3. 
   
4. For i = 0 To 1944
   
5.     Date = Date & "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
   
6. Next
   
7. 
   
8. Dim xmlDoc, node
   
9. Set xmlDoc = CreateObject("MSXML2.DOMDocument")
   
10. Set node = xmlDoc.CreateElement("binary")
    
11. node.DataType = "bin.hex"
    
12. node.Text = Date
    
13. Dim arrByte
    
14. arrByte = node.NodeTypedValue
    
15. 
    
16. Dim ado
    
17. Set ado = CreateObject("ADODB.Stream")
    
18. ado.Type = 1
    
19. ado.Open
    
20. ado.Write arrByte
    
21. ado.SaveToFile "New.BMP", 2
    
22. ado.Close
    
23. 
    
24. WSH.Echo "Done"

复制代码

idwma

回复 9# 窄口牛


    右键新建和改名确实是一样的

Batcher

回复 4# 窄口牛


你后续需要使用什么软件或代码来处理这个空白bmp文件？
你处理右键新建的空白bmp文件、处理3楼代码创建的空白bmp文件，两种结果能否分别截图发出来看看？

如果需要上传文件，可以用阿里云盘或百度网盘。

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html

窄口牛

似乎我的想法有问题，win右键建立的空图像文件和空文本改后缀一样效果，是我的问题。
看样子还是建立一个小的色块文件更为合格一些。