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"
复制代码