FLASH工具的秘密——SWF2EXE

原创 2002年08月28日 09:00:00

    在网上我们能下载到很多精彩的FLASH动画,它们通常*.SWF形式的,如果我们的电脑中没有安装FLASH或FLASH播放器,那么它们就无法在我们的电脑中闪耀。这将是一件非常遗憾的事,我们能否自己用VB写一个工具,将SWF形式的FLASH动画转变成可执行(EXE)形式的呢?当然可以啊,下面我们就一起一步一步的去制作这个小工具——SWF2EXE。
    为了编写这个小工具,我们有必要先分析一下SWF形式和EXE形式FLASH文件的基本格式。由于篇幅所限,鉴于网上有很多介绍SWF形式和EXE形式的FLASH文件格式的文章,,我这里仅仅将本程序中所要用到的知识简单说明一下,其他的不再细说,请大家自己参阅相关文章。大家也可使用UltraEdit自行分析。EXE形式文件分为四个部分:FLASH自带的播放器、SWF文件、EXE形式的标识符(16进制表示为56 34 12 FA)和对应SWF文件的大小。
    了解了EXE形式FLASH文件的格式,下面我们就用一步一步的编程实现。
第一步:定义资源文件
    打开VB,建立一个EXE文件。将FLASH5中自带的播放器FlashPla.EXE添加为自定义资源,保存为工程1.res。属性如下:
      类型:"CUSTOM"
      编号:101
      语言:中文(中国)
第二步:创建程序界面()图一
       控件添加如图一,控件属性默认。
第三步:编写代码
       以下内容为本程序代码部分,比较简单,而且注释也较为详细,相信大家能很容易理解。
Private Sub Command1_Click()
    Const FILESIZE = 376832 '定义生成的播放器部分大小
    Dim exetog As Long '定义EXE形式标识符
    Dim filelong As Long
    Dim copy() As Byte
    copy = LoadResData(101, "CUSTOM") '将资源文件存放在copy()中
    Open Text1.Text For Binary As #1 '打开待转换的SWF文件
    Open Text2.Text For Binary As #2 '创建将生成的EXE文件
    '将播放器以二进制形式写入到中的内容写入文件2中
    For filelong = 0 To FILESIZE - 1
    Put #2, , copy(filelong)
    Next filelong
    '将SWF文件写入到文件2中
    filelong = LOF(1)
    ReDim copy(filelong - 1) As Byte
    Get #1, , copy
    Put #2, , copy
    '写入EXE形式文件标识符
    filelong = LOF(2)
    exetog = 1193046 '1193046是EXE形式的标识符(56 34 12 FA)中的前三个字节56 34 12的十进制值
    Put #2, , exetog
    Seek #2, filelong + 4 '调整文件指针到filelong+4字节处
    exetog = 250 '250是EXE形式的标识符的最后一个字节FA的十进制值
    Put #2, , exetog
    Seek #2, filelong + 5 '调整文件指针到filelong+5字节处
    '写入SWF文件长度
    filelong = LOF(1)
    Put #2, , filelong
    Close #1
    Close #2
End Sub

Private Sub Command2_Click()
    End '退出
End Sub

Private Sub Form_Load()
    '初始化
    form1.caption = "EXE2SWF"
    Label1.Caption = "SWF文件路径:"
    Label2.Caption = "EXE文件路径:"
    Text1.Text = ""
    Text2.Text = ""
    Command1.Caption = "转换"
    Command2.Caption = "退出"
End Sub

http://sl_zyy.y365.com

JavaScript 基础之: JavaScript 秘密花园

简介 对象 对象使用和属性 原型 hasOwnProperty 函数 for in 循环 函数 函数声明与表达式 this 的工作原理 闭包和引用 argumen...
  • xllily_11
  • xllily_11
  • 2016年04月29日 10:48
  • 7953

luogu2666 Bessie的秘密牧场

题目背景 背景就是描述,描述就是背景。 题目描述 Farmmer John最近收割了几乎无限多块牧草,将它们堆放在空地上。这些牧草都是正方形的,而且都有非负整数长度的边长(当然有0)。一天它的奶...
  • xh_0319
  • xh_0319
  • 2017年09月28日 18:58
  • 69

纪录片--现代算法的秘密规则

全名是"The Secret Rules of Modern Living Algorithms",主要内容为: 1. haar人脸检测 2. 巧克力、辣椒游戏 3. 求最大公约数 4. 搜索引擎ra...
  • dlhlSC
  • dlhlSC
  • 2017年01月11日 10:02
  • 829

Flash内存清理、建议以及查找内存泄露的方法

转自:http://binary-house.spaces.live.com/blog/cns!A2B1EFCF718495C4!269.entry 一、Flash内存清理   Fla...
  • Manketon
  • Manketon
  • 2014年12月19日 17:57
  • 862

《做单--成交的秘密》有感

“当当网上架7天后雄踞小说类排行榜第一名,30天内荣登小说类五星榜第一名;10余家影视公司接洽版权、100家媒体跟踪报道、200余家大型书店联合推荐……”,一连串吸引眼球、扣人心弦的数据,足以让自己迫...
  • benpaobagzb
  • benpaobagzb
  • 2015年08月28日 22:33
  • 528

探索推荐引擎内部的秘密系列文章

探索推荐引擎内部的秘密,第 1 部分: 推荐引擎初探 探索推荐引擎内部的秘密,第 2 部分: 深入推荐引擎相关算法 - 协同过滤 探索推荐引擎内部的秘密,第 3 部分: 深...
  • hmy1106
  • hmy1106
  • 2015年02月14日 16:07
  • 1491

《探索推荐引擎内部的秘密》

推荐一下IBM软件工程师赵晨婷和马春娥的系列文章探索推荐引擎内部的秘密IBM Developworks探索推荐引擎内部的秘密第 1 部分 推荐引擎初探探索推荐引擎内部的秘密第 2 部分 深入推荐引擎相...
  • a925907195
  • a925907195
  • 2017年08月10日 19:28
  • 172

《银行的秘密》读书札记(二)

第五章:货币需求         商品和服务的供给、发薪频率、清算系统、货币信心、通胀或者通缩预期都会导致货币需求发生变化,其中通胀或者通缩预期是一个重要的因素。通缩预期会降低价格,通胀预期会抬高价...
  • flyfeifei66
  • flyfeifei66
  • 2012年02月06日 00:17
  • 1152

《女教授的隐秘魅力》影片参数

2006.9.17 07:29 中文片名女教授的隐秘魅力外文片名Hot Lady类型情色导演李河编剧李河主演文素利、池珍熙、朴元尚、刘承睦国家韩国发行公...
  • mybirdsky
  • mybirdsky
  • 2008年01月19日 16:21
  • 316

|洛谷|搜索|P2666 Bessie的秘密牧场

https://www.luogu.org/problem/show?pid=2666 直接搜索即可。 #include #include #include #include using name...
  • Darost
  • Darost
  • 2016年11月27日 10:45
  • 287
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:FLASH工具的秘密——SWF2EXE
举报原因:
原因补充:

(最多只允许输入30个字)