小編給大家分享一下怎么用vbs實(shí)現(xiàn)的exe2swf工具腳本代碼，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

創(chuàng)新互聯(lián)公司制作網(wǎng)站網(wǎng)頁(yè)找三站合一網(wǎng)站制作公司,專注于網(wǎng)頁(yè)設(shè)計(jì),成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè),網(wǎng)站設(shè)計(jì),企業(yè)網(wǎng)站搭建,網(wǎng)站開(kāi)發(fā),建網(wǎng)站業(yè)務(wù),680元做網(wǎng)站,已為上千服務(wù),創(chuàng)新互聯(lián)公司網(wǎng)站建設(shè)將一如既往的為我們的客戶提供最優(yōu)質(zhì)的網(wǎng)站建設(shè)、網(wǎng)絡(luò)營(yíng)銷推廣服務(wù)!

代碼如下:

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 "文件錯(cuò)誤" 
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

以上是“怎么用vbs實(shí)現(xiàn)的exe2swf工具腳本代碼”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

當(dāng)前標(biāo)題：怎么用vbs實(shí)現(xiàn)的exe2swf工具-創(chuàng)新互聯(lián)
當(dāng)前URL：http://weahome.cn/article/dpdghd.html