如何在VBS中定义一个Byte()字节数组-创新互联

这期内容当中小编将会给大家带来有关如何在VBS中定义一个Byte()字节数组，文章内容丰富且以专业的角度为大家分析和叙述，阅读完这篇文章希望大家可以有所收获。

在VBS中有办法定义字节数组么？
在VBS中有办法定义字节数组么？就是字节子类型数组（VarType是8209的那种）注意不是VB！

但是回答实在是不堪入目，连别人问什么都没搞懂，而且那人居然还满意，真不知道他在想什么。

闲来没事，我来简单回答一下。首先要搞清楚别人在问什么，VBS 是弱类型脚本语言，只有一种数据类型，称为 Variant，但是 Variant 可以进一步分为几种子类型，这里不展开，详见《VBScript 数据类型》。所谓字节子类型数组（VarType是8209的那种），就是子类型为 Byte 的数组（vbByte + vbArray = 17 + 8192 = 8209）。

例如，Msxml2.XMLHTTP 对象的 responseBody 属性返回的就是字节数组：

复制代码 代码如下:

'Author: Demon
'Website: /tupian/20230522/demon.tw
'Date: 2012/2/22
Dim http, res
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "GET", "/tupian/20230522/demon.tw", False
http.send
res = http.responseBody
WScript.Echo VarType(res), TypeName(res)

再例如，ADODB.Stream 对象的 Read 方法返回的也是字节数组：

复制代码 代码如下:

'Author: Demon
'Website: /tupian/20230522/demon.tw
'Date: 2012/2/22
Dim ado, data
Set ado = CreateObject("ADODB.Stream")
ado.Type = 1
ado.Open
ado.LoadFromFile "demon.tw"
data = ado.Read
WScript.Echo VarType(data), TypeName(data)

那么如何在 VBS 中定义一个字节数组呢？有人说那还不简单，用 CByte 函数强制转换一下不就行了？真的是这样么，写个简单的例子测试一下：

复制代码 代码如下:

'Author: Demon
'Website: /tupian/20230522/demon.tw
'Date: 2012/2/22
Dim a(9), i
For i = 0 To 9
a(i) = CByte(i)
Next
WScript.Echo VarType(a), TypeName(a)

'输出 8204 Variant()程序输出 8204 Variant()，很可惜，这不是我们想要的。

那么正确的方法是什么呢？其实在《用VBS读写二进制文件的另一种方法》中出现过，使用 Msxml2.DOMDocument 对象：

复制代码 代码如下:

'Author: Demon
'Website: /tupian/20230522/demon.tw
'Date: 2012/2/22
Dim xmldoc, node, bytes
Set xmldoc = CreateObject("Msxml2.DOMDocument")
Set node = xmldoc.CreateElement("binary")
node.DataType = "bin.hex"
'demon.tw 的十六进制值为
'64 65 6D 6F 6E 2E 74 77
node.Text = "64656D6F6E2E7477"
bytes = node.NodeTypedValue
WScript.Echo VarType(bytes), TypeName(bytes)

上述就是小编为大家分享的如何在VBS中定义一个Byte()字节数组了，如果刚好有类似的疑惑，不妨参照上述分析进行理解。如果想知道更多相关知识，欢迎关注创新互联行业资讯频道。