用vbs實現的exe2swf工具腳本代碼

2019-10-26 18:00:39

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

dim AsoR,FlashFileName
Set ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize
PositionStart = 920000'flash 4的播放器的大致字節數
EndSize = 8    'exe文件結尾字節數,其它版本可以設置為0
FlashFileName = ArgObj(0)'傳遞路徑

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))

'新文件名
dim newFileName
'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf"
newFileName = FlashFileName & ".swf"

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

上一篇：用vbs判斷系統補丁的腳本

下一篇：vbs教程 chm下載

發表評論

共有條評論