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
