网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

标题	使用VBS修改二进制文件HEX数据
范文	利用VBS修改二进制文件HEX数据。第一个参数为原文件，第二个参数为修改后的文件，第三个参数为原HEX值，第四个参数为修改后的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
随便看	2022师德师风学习心得体会范文10篇 大学生就业补贴申请条件有哪些 睡前刷手机会降低夜间睡眠质量_你应该了解的十三二一零睡眠公式 关于国庆节的作文怎么写10篇 高中语文议论文解题方法 高中语文议论文解题方法大全 2023年最新高考英语北京试题解析 2023年全国高考理科综合试题解析大全 2023高考北京数学试题分析大全 2023全国高考文科综合试题解析大全 2022师德师风培训心得体会20篇 初中老师师德师风个人工作总结13篇 2022开学第一课小学生观后感学习感悟5篇 《我们走在大路上》观后感500字_看《我们走在大路上》感想大全5篇 专题片《我们走在大路上》观后感800字范文大全5篇 关于《我们走在大路上》观后感心得范文大全5篇 高温补贴是强制的吗 国家高温补贴计入工资还是福利费 2022下半年普通话考试及报名时间一览 2022“司法考试报名时间”一览 司法考试报名时间2022一览 河北研究生考试网上报名时间2023 普通话考试报名时间2022下半年 河北2023研究生考试网上报名时间 司法考试报名时间2022具体时间 anti-aging anti-AIDS anti-aids anti-aircraft anti-aircraft anti-aircraft defence anti-alien anti-alien anti-American anti-american 钩子麻糖 钩引 钩心斗角 钩挂 钩搭 钩摄 钩摭 钩摹 钩棘 钩求 成都工业学院2015年新生入学须知 成都工业学院2015年安徽本科二批次录取工作圆满结束 成都工业学院2015年陕西/青海本科二批次录取工作圆满结束 成都工业学院2015年河北/宁夏本科二批次录取工作圆满结束 深圳大学2015年普高本科录取公告 南昌工程学院2015年在江西本科/江西艺术录取结果可以查询 2015年中国地质大学(武汉)各省普通文理录取分数线 哈尔滨商业大学2015年吉林省本科二批次录取结果公告 成都工业学院2015年广西/湖南本科录取工作圆满结束 南昌工程学院2015年在安徽/江西一本批次的通知书已邮寄

在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。