set fso = createobject("scripting.filesystemobject")
if fso.fileexists(prog) then
set xml1 = createobject("microsoft.xmldom")
xml1.loadxml "<?xml version=""1.0""?>"
set node1 = xml1.createelement("binary")
node1.datatype = "bin.hex"
set stream1 = createobject("adodb.stream")
stream1.type = 1
stream1.open
stream1.loadfromfile prog
node1.nodetypedvalue = stream1.read
stream1.close
data = node1.text
find1 = instr(1,data,code1,1)
if find1 = 0 then
msgbox "无法修改!!"
else
data2 = mid(data,find1,800)
set datas = fso.CreateTextFile("分析结果.txt",true)
datas.writeline data2
datas.close
msgbox "分析结果已保存到: 分析结果.txt"
end if
else
msgbox "找不到"&prog
end if