Shulou(Shulou.com)06/03 Report--

This article mainly shows you "how to use vbs to remove RAR right-click decompression menu", the content is easy to understand, clear, hope to help you solve your doubts, the following let the editor lead you to study and learn "how to use vbs to remove RAR right-click decompression menu" this article.

The copy code is as follows:

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

The above is all the contents of the article "how to use vbs to remove the RAR right-click decompression menu". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.