在VBScript中,可以使用`Base64Encode`函数来进行Base64编码。下面是一个简单的示例代码:
```vbscript
Dim Base64String
Base64String = Base64Encode("Hello, World!")
WScript.Echo Base64String
Function Base64Encode(str)
Dim objXML, objNode
' 创建XML对象
Set objXML = CreateObject("MSXML2.DOMDocument")
' 创建节点并设置节点值
Set objNode = objXML.CreateElement("b64")
objNode.DataType = "bin.base64"
objNode.Text = StreamStringToBase64(str)
' 将节点内容转换为Base64字符串并返回
Base64Encode = objNode.Text
Set objNode = Nothing
Set objXML = Nothing
End Function
' 将字符串转换为Base64编码的字节数组
Function StreamStringToBase64(str)
Dim objStream
' 创建二进制数据流对象
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 2 ' adTypeText
objStream.Charset = "UTF-8"
objStream.Open
objStream.WriteText str
objStream.Position = 0
objStream.Type = 1 ' adTypeBinary
StreamStringToBase64 = objStream.ReadText(-1)
Set objStream = Nothing
End Function
```
在上述代码中,`Base64Encode`函数接受一个字符串参数,并返回该字符串的Base64编码。`StreamStringToBase64`函数将字符串转换为Base64编码的字节数组。通过创建XML对象和节点,然后将字节数组赋值给节点的`Text`属性,最终通过节点的`Text`属性获取Base64编码字符串。