|
4#
楼主 |
发表于 2022-4-19 13:27:13
|
只看该作者
- Variable = "QUJDMTIz"
- Set xml_dom = CreateObject("MSXML2.DOMDocument")
- Set pic = xml_dom.CreateElement("pic")
- pic.DataType = "bin.base64"
- pic.NodeTypedValue = Variable
- Set ado_stream = CreateObject("ADODB.Stream")
- ado_stream.Type = 1
- ado_stream.Open
- ado_stream.Write pic.NodeTypedValue
- ado_stream.SaveToFile "1.txt", 2
- ado_stream.Close
- Set ado_stream = Nothing
- Set pic = Nothing
- Set xml_dom = Nothing
复制代码
|
|