从EXE文件提取出Flash(SWF格式)

本文主要是介绍从EXE文件提取出Flash(SWF格式)，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

由于以前写过个播放器,硬盘里也放着不少Flash文件,不少是EXE格式的.
也下载过一些小程序转换,现在闲着没事,自己也写了一个小程序...但 ....

'''''函数功能:输入SWF或EXE格式的Flash文件
Private Sub OutputFlash(InputFile As String,  Outputfile As String)
   Dim bittmp() As Byte
    Dim FileLenth&, I&, J&
    Dim FileNum1 As Integer
    Dim FileNum2 As Integer
    Dim strFwsFlag As String
    Dim strHexFlag As String
    Dim strVAR As String
    Dim bitVAR As Byte
    Dim swfSize As Long
    Dim swfStartPostion As Long
  
   FileLenth = FileLen(InputFile)
    S = "&H"
   FileNum1 = FreeFile: Open InputFile For Binary As #FileNum1
   FileNum2 = FreeFile: Open Outputfile For Binary As #FileNum2
  
   Dim sss$: sss = Time
         For I = FileLenth To FileLenth - 3 Step -1
           

这篇关于从EXE文件提取出Flash(SWF格式)的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---