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

标题	使用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
随便看	2016年杭州市江干区总工会招聘笔试时间 2016年淄博市周村区招聘城市管理协管员工资待遇 2016年杭州市江干区总工会招聘领取准考证时间 2016年淄博市周村区招聘城市管理协管员报名携带材料 2016年淄博市周村区招聘城市管理协管员报名地点 2016年淄博市周村区招聘城市管理协管员报名时间 2016年淄博市周村区招聘城市管理协管员范围和条件 2016年杭州市江干区总工会招聘报名方式 2016年杭州市江干区总工会招聘报名时间 2016年淄博市周村区司法局招聘专职人民调解员面试成绩公示 2016年杭州市江干区总工会招聘条件 2016年杭州市江干区总工会招聘待遇 2016年杭州市江干区总工会招聘岗位 2016年淄博市周村区招聘城市管理协管员公告 2016年杭州市江干区总工会招聘街道工会工作者公告 2016年东营市为海事处招聘工作人员笔试有关事项通知 2016年福建省司法戒毒医院招聘报名时间及方式/审核时间及报名材料 2016年福建医科大学附属第一医院招聘工作人员报名时间及方式/报名网址 2016年福建司法戒毒医院招聘副高及以上职称人员报名时间及报名方式 2016年镇江市句容市后白镇招聘村级社会工作者录用公示 2016年杭州市上城区总工会招聘报名时间及笔试时间 2016年厦门思明区开元街道办事处补充非在编地税代征员招聘报名时间及方式 2016年杭州市上城区总工会招聘面试方式 2016年杭州市上城区总工会招聘笔试时间 2016年杭州市上城区总工会招聘领取准考证时间 coping coping mechanism coping process coping skills coping style copious copious amount copiously cop it cop-it 独行 独行其是 独行独断 独裁 独裁体制 独裁制 独裁者 独见 独角仙 独角戏 大学毕业生四年毕业鉴定 “感恩自强，快乐成长”演讲稿 环保节能之星演讲稿 毕业生就业推荐表自我鉴定提纲 文明礼仪演讲稿《文明礼仪在校园》 毕业生就业推荐表中的自我鉴定 讲文明礼仪 2011毕业生自我鉴定 党员 “五心教育”演讲稿 《庄子与他的人生哲学》演讲稿

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。