這篇文章給大家分享的是有關如何使用VBS修改二進制文件HEX數據的內容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

企業建站必須是能夠以充分展現企業形象為主要目的，是企業文化與產品對外擴展宣傳的重要窗口，一個合格的網站不僅僅能為公司帶來巨大的互聯網上的收集和信息發布平臺，創新互聯建站面向各種領域：水電改造等網站設計、成都全網營銷推廣解決方案、網站設計等建站排名服務。

可用之處還是有的，如：隱藏快捷方式中目標文件位置；破解XP中TCP/IP連接數限制；去掉RAR右鍵解壓菜單等等。

復制代碼 代碼如下:

Public BinaryData

If (lcase(right(wscript.fullname,11))="wscript.exe") Then
 WScript.Quit(0)
End If

If wscript.arguments.count<4 Then
 Wscript.Echo "Change File Hex. By: lxzzr  lxzzr@21cn.com"
 Wscript.Echo ""
 Wscript.Echo "Usage: cscript.exe " & WScript.ScriptName & " FilePath SavePath sHEX dHEX"
 Wscript.Echo "     : cscript.exe CHex.vbs "".\test.exe"" "".\new.exe"" ""80 7A 01 61"" ""80 7A 01 61"""
 WScript.Quit(0)
End If

sHEX = Replace(LCase(Wscript.Arguments(2)), " ", "")
dHEX = Replace(LCase(Wscript.Arguments(3)), " ", "")

Wscript.Echo "File: " & Wscript.Arguments(0)
Wscript.Echo "sHEX: " & Wscript.Arguments(2)
Wscript.Echo "dHEX: " & Wscript.Arguments(3)

ReadBinary(Wscript.Arguments(0))

MyData = Replace(BinaryData, sHEX, dHEX)

WriteBinary Wscript.Arguments(1), MyData

Wscript.Echo "All done."
Wscript.Quit(0)

Function ReadBinary(FileName)
 Dim Stream, ObjXML, MyNode

 Set ObjXML = CreateObject("Microsoft.XMLDOM")
 Set MyNode = ObjXML.CreateElement("binary")
 Set Stream = CreateObject("ADODB.Stream")

 MyNode.DataType = "bin.hex"

 Stream.Type = 1
 Stream.Open
 Stream.LoadFromFile FileName

 MyNode.NodeTypedValue = Stream.Read

 Stream.Close

 BinaryData = MyNode.Text

 Set MyNode = Nothing
 Set Stream = Nothing
 Set ObjXML = Nothing
End Function

Function WriteBinary(FileName, BufferData)
 Dim Stream, ObjXML, MyNode

 Set ObjXML = CreateObject("Microsoft.XMLDOM")
 Set MyNode = ObjXML.CreateElement("binary")
 Set Stream = CreateObject("ADODB.Stream")

 MyNode.DataType = "bin.hex"
 MyNode.Text = BufferData

 Stream.Type = 1
 Stream.Open
 Stream.Write MyNode.NodeTypedValue
 Stream.SaveToFile FileName, 2
 Stream.Close

 Set stream = Nothing
 Set MyNode = Nothing
 Set ObjXML = Nothing
End Function

感謝各位的閱讀！關于“如何使用VBS修改二進制文件HEX數據”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，讓大家可以學到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！

網頁標題：如何使用VBS修改二進制文件HEX數據-創新互聯
URL分享：http://vcdvsql.cn/article20/ejcjo.html

成都網站建設公司_創新互聯，為您提供網站排名、小程序開發、網站設計公司、網頁設計公司、網站導航、品牌網站設計

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯