Exe2swf ,將exe 格式的 flash文件轉為swf 格式。網(wǎng)上有很多這方面的工具,這個是用vbscript寫的。
用法:
將下面代碼存為 exe2swf.vbs
將exe格式的flash拖放在此文件上,即可生成swf文件,
更新日期:2005-01-20 09:30
復制代碼 代碼如下:
'exe2swf工具,
'用法:將exe格式的flash拖放在此文件上,即可生成swf文件,
'haiwa@http://www.51windows.Net
'感謝jimbob提供幫助.
dim AsoR,FlashFileName
Set ArgObj = WScript.Arguments
dim PositionStart,OKed,Tag,EndSize
PositionStart = 920000'flash 4的播放器的大致字節(jié)數(shù)
EndSize = 8 'exe文件結尾字節(jié)數(shù),其它版本可以設置為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,"文件已經(jīng)存在 - 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
您可能感興趣的文章:- adodb.stream讀文件到數(shù)組的代碼
- JScript中使用ADODB.Stream判斷文件編碼的代碼
- 利用MSXML2.XmlHttp和Adodb.Stream采集圖片
- 使用asp下的adodb.stream 下載文件而不是打開
- asp下用ADODB.Stream代替FSO讀取文本文件
- asp adodb.stream對象的方法/屬性
- ADODB.Stream組件Charset屬性值集合
- 用ADODB.Stream轉換
- windows2008+iis7無組件上傳寫入文件失敗ADODB.Stream 錯誤 800a0bbc問題