[技术讨论] vbs如何新建一个空白图片文件？（已解决）

窄口牛

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

bat1152

bat:copy nul 1.bmp

Batcher

回复 1# 窄口牛

CreateObject("WSCript.Shell").Run "cmd /c cd.>New.bmp"
复制代码

窄口牛

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

lancer

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

idwma

是这个吗

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

Dim v 'As Vector
Dim Img 'As ImageFile
Dim c 'As Long

c = &hFFFEFFFF 'opaque blue (A=255,R=0,G=0,B=255)
Set v = CreateObject("WIA.Vector")

v.Add c
v.Add c
v.Add c
v.Add c

Set Img = v.ImageFile(2, 2)

Img.SaveFile "123." & Img.FileExtension
复制代码

窄口牛

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

idwma

回复 7# 窄口牛

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

窄口牛

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

WHY

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

Dim Date
Date = "424D0EE40000000000003E00000028000000600300001C0200000100010000000000D0E300000000000000000000000000000000000000000000FFFFFF00FFFF"

For i = 0 To 1944
    Date = Date & "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
Next

Dim xmlDoc, node
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
Set node = xmlDoc.CreateElement("binary")
node.DataType = "bin.hex"
node.Text = Date
Dim arrByte
arrByte = node.NodeTypedValue

Dim ado
Set ado = CreateObject("ADODB.Stream")
ado.Type = 1
ado.Open
ado.Write arrByte
ado.SaveToFile "New.BMP", 2
ado.Close

WSH.Echo "Done"
复制代码

idwma

回复 9# 窄口牛


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

Batcher

回复 4# 窄口牛


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

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

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

窄口牛

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