Since I have written a player before, there are many flash files in the hard disk, there are many exe formats. I also downloaded some small program conversions. Now I have n'thing to do, I also wrote a small program ... but. ... '' '' 'function: input SWF or EXE format Flash file 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 = filelentsh to filelenth - 3 Step -1 Seek # filenum1, i '' file pointer position T = ascb (StrConv ((INPUT (1, # filenum1 )) > "& Time '' 'Record Time Swfsize = VAL s) '' SWF file size SWFStartPOStion = filelents - swFSIze - 7 '' SWF file start address seek # filenum1, swfStartPOStion strvar = ASC (INPUT (3, # filenum1)) if strvar = 70 or strvar = 67 Then '' ' Find correctly to FWS Tag Dim StartByte &: StartByte = SWFStartPOSTION SSS = SSS & ">" &
