to Jeckyl: Long long age ,there was a software named EXE2SWF, aha. It
could turn exe files into swf files. And Now my friend Haiwa find another way
to finish this, use vbscript: You can copy follow code into notepad and
rename the file as *.vbs :
'exe2swf tools?check your .exe file property?you can find out the vesion of
flash player ?then modify Variable PlayerSize below.
'Usage?drag your .exe file onto this file.
'author: haiwa@
http://www.51windows.Net dim AsoR,FlashFileName
Set ArgObj = WScript.Arguments
dim PlayerSize,EndSize
PlayerSize = 987136 'Macromedia Flash Player 7.0 r14
'PlayerSize = 1003520 'Macromedia Flash Player 7.0 r19
'PlayerSize = 819200 'Macromedia Flash Player 6.0 r21
EndSize = 8
FlashFileName = ArgObj(0)
set AsoR=CreateObject("Adodb.Stream")
AsoR.Mode=3
AsoR.Type=1
AsoR.Open
set AsoW=CreateObject("Adodb.Stream")
AsoW.Mode=3
AsoW.Type=1
AsoW.Open
AsoR.LoadFromFile(FlashFileName)
if AsoR.size>int(PlayerSize) then
AsoR.Position = PlayerSize
AsoW.write AsoR.read(AsoR.size-int(PlayerSize)-int(EndSize))
AsoW.SaveToFile FlashFileName&".swf", 1 '1 don't overwrite original file?4
rewrite original file.
else
msgbox "file error ,please check your file or Variable PlayerSize"
end if
AsoR.close
set AsoR=nothing
AsoW.close
set AsoW=nothing