如何将vbs函数改写为vlisp函数？

lanyf

为了完成文件二进制读、写，网上找vbs的函数，如何改写成vlisp函数
Function ReadBinary(FileName)
    Const adTypeBinary = 1
    Dim stream, xmldom, node
    Set xmldom = CreateObject("Microsoft.XMLDOM")
    Set node = xmldom.CreateElement("binary")
    node.DataType = "bin.hex"
    Set stream = CreateObject("ADODB.Stream")
    stream.Type = adTypeBinary
    stream.Open
    stream.LoadFromFile FileName
    node.NodeTypedValue = stream.Read
    stream.Close
    Set stream = Nothing
    ReadBinary = node.Text
    Set node = Nothing
    Set xmldom = Nothing
End Function

Sub WriteBinary(FileName, Buf)
    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    Dim stream, xmldom, node
    Set xmldom = CreateObject("Microsoft.XMLDOM")
    Set node = xmldom.CreateElement("binary")
    node.DataType = "bin.hex"
    node.Text = Buf
    Set stream = CreateObject("ADODB.Stream")
    stream.Type = adTypeBinary
    stream.Open
    stream.write node.NodeTypedValue
    stream.saveToFile FileName, adSaveCreateOverWrite
    stream.Close
    Set stream = Nothing
    Set node = Nothing
    Set xmldom = Nothing
End Sub

/db_自贡黄明儒_

这个早就有了，不死猫、higflybird大师。以及搞破解fas工具的，这是必备的。

lanyf

/db_自贡黄明儒_ 发表于 2017-9-25 14:35

能贴出了吗？麻烦

HLCAD

lanyf 发表于 2017-9-25 16:16

“破解fas工具”，真有成品了，之前见到的都是些讨论稿的

sicky111

VBS版的也可以收藏一下。