exe2swf 工具(Adodb.Stream版) - 达人(乱世狂闪)

2005/01/18 | exe2swf 工具(Adodb.Stream版)
类别(藏经阁) | 评论(2) | 阅读(318) | 发表于 13:16: Exe2swf ,将exe 格式的 flash文件转为swf 格式。网上有很多这方面的工具，这个是用vbscript写的。

用法：

将下面代码存为 exe2swf.vbs
更改程序的一些参数
将exe格式的flash拖放在此文件上，即可生成swf文件

代码：
'exe2swf工具，首先查看exe格式的flash播放器的版本，修改　PlayerSize　为播放器的字节数
'用法：将exe格式的flash拖放在此文件上，即可生成swf文件，
'haiwa@http://www.51windows.Net
dim AsoR,FlashFileName
Set ArgObj = WScript.Arguments
dim PlayerSize,EndSize
PlayerSize = 987136    'Macromedia Flash Player 7.0 r14字节数
'///////////////////////
'感谢Jimbob 提供播放器大小信息:)
'PlayerSize = 1003520    'Macromedia Flash Player 7.0 r19字节数
'PlayerSize = 819200    'Macromedia Flash Player 6.0 r21 字节数
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)
if AsoR.size>int(PlayerSize) then
    AsoR.Position = PlayerSize
    AsoW.write AsoR.read(AsoR.size-int(PlayerSize)-int(EndSize))
    AsoW.SaveToFile FlashFileName&".swf", 1    '1为不覆盖，4为覆盖存在文件
else
    msgbox "文件格式错误或程序参数设置不正确"
end if
AsoR.close
set AsoR=nothing
AsoW.close
set AsoW=nothing

转自：51windows™.Net; 0

http://Lorsxin.5d.cn/

闪闪~~

评论Comments