set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 AsoR.Type=1 AsoR.Open set AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 AsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName)
OKed = true dim filesize filesize = AsoR.size
if filesize PositionStart then while OKed AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") 0 then PositionStart = PositionStart + 1 else PositionStart = PositionStart + 20 end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then OKed = false end if 'if PositionStart filesize then ' OKed = false 'end if wend else msgbox "文件錯誤" end if PositionStart = PositionStart + 16 'msgbox PositionStart AsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))
Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(newFileName)) Then overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替換它嗎?",308,"文件已經存在 - exe2swf腳本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 else msgbox "操作被取消",0,"exe2swf腳本" end if else AsoW.SaveToFile newFileName, 1 end if
AsoR.close set AsoR=nothing AsoW.close set AsoW=nothing
Function Bin2Str(Bin) Dim I, Str For I=1 to LenB(Bin) clow=MidB(Bin,I,1) if ASCB(clow) 128 then Str = Str & (ASCB(clow)) else I=I+1 if I = LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if Next Bin2Str = Str End Function html教程
