去掉RAR右鍵解壓菜單的VBS代碼

    前兩天寫了個(gè)批處理的，效率不高，百度、谷歌后找到一個(gè)更好的辦法
    代碼如下:
    Public ReadBinary
    ReadBinaryDat(".\1.exe")
    BinaryDat = Replace(Replace(ReadBinary, "526172211a07", "522172211a07"), "807a0161", "807a0121")
    WriteBinaryDat "new.exe", BinaryDat
    Function ReadBinaryDat(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 WriteBinaryDat(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