SWF to EXE 工具制作

转载

zhangxinglong12 2023-05-15 10:18:30 博主文章分类：vb.net

文章标签 Public Text App 文章分类 JavaScript 前端开发

最近要做一个电子书,利用的是FlashPaper将Word文件转换为SWF格式文件，因为需要在光盘上自动运行，所以在网上寻找Swf 转 Exe文件的工具，找到JerkFlashV2，试了一下，才发现该工具转换成的EXE文件是基于Flash Player 6.0的，有许多Flash Palery的新功能无法使用，找了一下其它的工具，均为基于6.0版本的，无奈，只好动手自己编写一个。:)

点此下载EXE文件

参照《FLASH工具的秘密》所说的方法，用VB6编写了一个，改掉了该方法中处理速度慢的问题，并能够在没有COMDLG32.OCX(该控件为VS6中用来显示各种对话框的，如打开文件、保存文件、显示打印机设置等)的计算机上运行。工作摘要如下：

1、准备最新版本的Flash Player,我用的是8.0(文件名为SAFlashPlayer.exe)，9.0的我还没用到

。

2、用VB6新建一个EXE项目，将SAFlashPlayer.exe添加为该工程的资源文件，在此，我使用了其默认属性：
类型：CUSTOM
编号：101
语言：中文（中国）

3、新建一窗体，如下所示：

SWF to EXE 工具制作_App

3、该窗体代码如下，基本上类似于《FLASH工具的秘密——SWF2EXE》一文所说，但作了一些改动，并优化了一些部分：

Private Sub Command1_Click()
 Dim strFile As String
 strFile = ShowOpenFileDialog(Me, "动画文件(*.swf)|*.swf|所有文件(*.*)|*.*", "")
 If strFile <> "" Then
 Text1.Text = strFile
 End If
 End SubPrivate Sub Command2_Click()
 If Trim(Text1.Text) <> "" Then Text2.Text = Left(Text1.Text, InStr(1, Text1.Text, ".")) & "exe"

 Dim strFile As String
 strFile = ShowSaveFileDialog(Me, "EXE文件(*.exe)|*.exe", "")
 If strFile <> "" Then
 Text2.Text = strFile
 End If

 End SubPrivate Sub Command3_Click()
 '暂时Disable掉按钮
 Command1.Enabled = False
 Command2.Enabled = False
 Command3.Enabled = False

 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中
 Put #2, , copy
 '将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
 MsgBox "转换完毕！"
 Command1.Enabled = True
 Command2.Enabled = True
 Command3.Enabled = True
 End Sub另外，为了能够在没有COMDLG32.OCX的计算机上运行，该程序没有使用CommonDialog控件，而采用API方式，为此建立了一个模块General，内容如下：Public Const OFN_ALLOWMULTISELECT = &H200
 Public Const OFN_CREATEPROMPT = &H2000
 Public Const OFN_ENABLEHOOK = &H20
 Public Const OFN_ENABLETEMPLATE = &H40
 Public Const OFN_ENABLETEMPLATEHANDLE = &H80
 Public Const OFN_EXPLORER = &H80000
 Public Const OFN_EXTENSIONDIFFERENT = &H400
 Public Const OFN_FILEMUSTEXIST = &H1000
 Public Const OFN_HIDEREADONLY = &H4
 Public Const OFN_LONGNAMES = &H200000
 Public Const OFN_NOCHANGEDIR = &H8
 Public Const OFN_NODEREFERENCELINKS = &H100000
 Public Const OFN_NOLONGNAMES = &H40000
 Public Const OFN_NONETWORKBUTTON = &H20000
 Public Const OFN_NOREADONLYRETURN = &H8000
 Public Const OFN_NOTESTFILECREATE = &H10000
 Public Const OFN_NOVALIDATE = &H100
 Public Const OFN_OVERWRITEPROMPT = &H2
 Public Const OFN_PATHMUSTEXIST = &H800
 Public Const OFN_READONLY = &H1
 Public Const OFN_SHAREAWARE = &H4000
 Public Const OFN_SHAREFALLTHROUGH = 2
 Public Const OFN_SHAREWARN = 0
 Public Const OFN_SHARENOWARN = 1
 Public Const OFN_SHOWHELP = &H10
 Public Const OFS_MAXPATHNAME = 256

 Public Const LF_FACESIZE = 32

 'OFS_FILE_OPEN_FLAGS and OFS_FILE_SAVE_FLAGS below
 'are mine to save long statements; they're not
 'a standard Win32 type.
 Public Const OFS_FILE_OPEN_FLAGS = OFN_EXPLORER Or OFN_LONGNAMES Or OFN_CREATEPROMPT Or OFN_NODEREFERENCELINKS Or OFN_HIDEREADONLY Or OFN_ALLOWMULTISELECT
 Public Const OFS_FILE_SAVE_FLAGS = OFN_EXPLORER Or OFN_LONGNAMES Or OFN_OVERWRITEPROMPT Or OFN_HIDEREADONLYDeclare Function GetOpenFileName Lib "comdlg32.dll" Alias _
 "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongDeclare Function GetSaveFileName Lib "comdlg32.dll" Alias _
 "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As LongType OPENFILENAME
 lStructSize As Long
 hwndOwner As Long
 hInstance As Long
 lpstrFilter As String
 lpstrCustomFilter As String
 nMaxCustFilter As Long
 nFilterIndex As Long
 lpstrFile As String
 nMaxFile As Long
 lpstrFileTitle As String
 nMaxFileTitle As Long
 lpstrInitialDir As String
 lpstrTitle As String
 flags As Long
 nFileOffset As Integer
 nFileExtension As Integer
 lpstrDefExt As String
 lCustData As Long
 lpfnHook As Long
 lpTemplateName As String
 End TypePublic Function ShowOpenFileDialog(Form As Form, Filter As String, Optional OldFileName As String = "") As String
 Dim ofn As OPENFILENAME
 Dim rtn As Long

 ofn.hwndOwner = Form.hWnd
 ofn.hInstance = App.hInstance
 ofn.lpstrFilter = Replace(Filter, "|", Chr(0))
 ofn.lpstrFile = Space(2047)
 ofn.nMaxFile = Len(ofn.lpstrFile) + 1
 ofn.lpstrFileTitle = Space(510)
 ofn.nMaxFileTitle = Len(ofn.lpstrFileTitle) + 1
 ofn.lpstrInitialDir = App.Path
 ofn.lpstrTitle = "打开文件"
 ofn.flags = OFS_FILE_OPEN_FLAGS
 ofn.lStructSize = Len(ofn)
 rtn = GetOpenFileName(ofn)

 If rtn >= 1 Then
 Dim il As Integer
 il = InStr(1, ofn.lpstrFile, Chr(0))
 If il <= 0 Then il = Len(ofn.lpstrFile)

 ShowOpenFileDialog = Left(ofn.lpstrFile, il)
 Else
 ShowOpenFileDialog = OldFileName
 End If
 End FunctionPublic Function ShowSaveFileDialog(Form As Form, Filter As String, Optional OldFileName As String = "") As String
 Dim ofn As OPENFILENAME
 Dim rtn As Long

 ofn.hwndOwner = Form.hWnd
 ofn.hInstance = App.hInstance
 ofn.lpstrFilter = Replace(Filter, "|", Chr(0))
 ofn.lpstrFile = Space(2047)
 ofn.nMaxFile = Len(ofn.lpstrFile) + 1
 ofn.lpstrFileTitle = Space(510)
 ofn.nMaxFileTitle = Len(ofn.lpstrFileTitle) + 1
 ofn.lpstrInitialDir = App.Path
 ofn.lpstrTitle = "打开文件"
 ofn.lpstrDefExt = ""
 ofn.flags = OFS_FILE_SAVE_FLAGS
 ofn.lStructSize = Len(ofn)
 rtn = GetSaveFileName(ofn)

 If rtn >= 1 Then
 Dim il As Integer
 il = InStr(1, ofn.lpstrFile, Chr(0))
 If il <= 0 Then il = Len(ofn.lpstrFile)

 ShowSaveFileDialog = Left(ofn.lpstrFile, il)
 Else
 ShowSaveFileDialog = OldFileName
 End If
 End Function

经测试运行，该程序可以很好的进行Swf到Exe的转换，支持较高版本的的Swf文件，并且比《FLASH工具的秘密——SWF2EXE》一文中所编译的程序要快几十倍，算是一个比较好用的小工具。（自卖自夸，大家勿怪噢。