這篇文章主要講解了“理解exe2swf工具”，文中的講解內(nèi)容簡單清晰，易于學(xué)習(xí)與理解，下面請大家跟著小編的思路慢慢深入，一起來研究和學(xué)習(xí)“理解exe2swf工具”吧！

成都創(chuàng)新互聯(lián)是一家專業(yè)的成都網(wǎng)站建設(shè)公司，我們專注成都做網(wǎng)站、網(wǎng)站建設(shè)、網(wǎng)絡(luò)營銷、企業(yè)網(wǎng)站建設(shè)，友情鏈接，1元廣告為企業(yè)客戶提供一站式建站解決方案，能帶給客戶新的互聯(lián)網(wǎng)理念。從網(wǎng)站結(jié)構(gòu)的規(guī)劃UI設(shè)計到用戶體驗提高，創(chuàng)新互聯(lián)力求做到盡善盡美。

Exe2swf ,將exe 格式的 flash文件轉(zhuǎn)為swf 格式。網(wǎng)上有很多這方面的工具，這個是用vbscript寫的。
用法：
將下面代碼存為 exe2swf.vbs 
將exe格式的flash拖放在此文件上，即可生成swf文件，
更新日期：2005-01-20 09:30

代碼如下:

'exe2swf工具，
'用法：將exe格式的flash拖放在此文件上，即可生成swf文件，
'haiwa@/tupian/20230522/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é)尾字節(jié)數(shù),其它版本可以設(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

感謝各位的閱讀，以上就是“理解exe2swf工具”的內(nèi)容了，經(jīng)過本文的學(xué)習(xí)后，相信大家對理解exe2swf工具這一問題有了更深刻的體會，具體使用情況還需要大家實踐驗證。這里是創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司，，小編將為大家推送更多相關(guān)知識點的文章，歡迎關(guān)注！

文章標題：理解exe2swf工具-創(chuàng)新互聯(lián)
網(wǎng)站URL：http://www.chinadenli.net/article8/djohop.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計公司、手機網(wǎng)站建設(shè)、全網(wǎng)營銷推廣、關(guān)鍵詞優(yōu)化、網(wǎng)站導(dǎo)航、網(wǎng)站內(nèi)鏈

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)