在网上我们能下载到很多精彩的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
