怎么用vbs实现的exe2swf工具-创新互联

小编给大家分享一下怎么用vbs实现的exe2swf工具脚本代码，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！

创新互联公司制作网站网页找三站合一网站制作公司,专注于网页设计,成都网站建设、网站建设,网站设计,企业网站搭建,网站开发,建网站业务,680元做网站,已为上千服务,创新互联公司网站建设将一如既往的为我们的客户提供最优质的网站建设、网络营销推广服务!

代码如下:

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

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实现的exe2swf工具脚本代码”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注创新互联行业资讯频道！

分享名称：怎么用vbs实现的exe2swf工具-创新互联
标题URL：http://6mz.cn/article/dpdghd.html

网站建设知识

怎么用vbs实现的exe2swf工具-创新互联

其他资讯