SWF to EXE 工具制作

最近要做一个电子书,利用的是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、新建一窗体，如下所示：

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 Sub

Private 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 Sub

Private 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_HIDEREADONLY

Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _
"GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

Type 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 Type

Public 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 Function

Public 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