首页 > 编程 > VBScript > 正文

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

2020-06-26 18:34:29
字体:
来源:转载
供稿:网友
前两天写了个批处理的,效率不高,百度、谷歌后找到一个更好的办法
 
原理: http://demon.tw/programming/vbs-binary-file-another.html

 

复制代码代码如下:

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


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表