去掉RAR右键解压菜单的VBS代码

前两天写了个批处理的，效率不高，百度、谷歌后找到一个更好的办法 代码如下:

Public ReadBinary

ReadBinaryDat(\

BinaryDat = Replace(Replace(ReadBinary, \\

WriteBinaryDat \ Function ReadBinaryDat(FileName)  Const adTypeBinary = 1  Dim stream, xmldom, node

 Set xmldom = CreateObject(\  Set node = xmldom.CreateElement(\  node.DataType = \

 Set stream = CreateObject(\  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(\  Set node = xmldom.CreateElement(\  node.DataType = \  node.Text = Buf

 Set stream = CreateObject(\  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