html运行flash脚本,HTML_用vbs实现的exe2swf工具脚本代码，复制代码 代码如下:dim AsoR,Flash - phpStudy...

用vbs实现的exe2swf工具脚本代码

复制代码 代码如下:

dim AsoR,FlashFileName

Set ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize

PositionStart = 920000'flash 4的播放器的大致字节数

EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0

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)

OKed = true

dim filesize

filesize = AsoR.size

if filesize>PositionStart then

while OKed

AsoR.Position = PositionStart

Tag = Bin2Str(AsoR.read(20))

if instr(Tag,"0000000") >0 then

PositionStart = PositionStart + 1

else

PositionStart = PositionStart + 20

end if

if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then

OKed = false

end if

'if PositionStart > filesize then

' OKed = false

'end if

wend

else

msgbox "文件错误"

end if

PositionStart = PositionStart + 16

'msgbox PositionStart

AsoR.Position = PositionStart

AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名

dim newFileName

'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf"

newFileName = FlashFileName & ".swf"

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(newFileName)) Then

overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本")

if overwrite=6 then

AsoW.SaveToFile newFileName, 2

else

msgbox "操作被取消",0,"exe2swf脚本"

end if

else

AsoW.SaveToFile newFileName, 1

end if

AsoR.close

set AsoR=nothing

AsoW.close

set AsoW=nothing

Function Bin2Str(Bin)

Dim I, Str

For I=1 to LenB(Bin)

clow=MidB(Bin,I,1)

if ASCB(clow)<128 then

Str = Str & (ASCB(clow))

else

I=I+1

if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow))

end if

Next

Bin2Str = Str

End Function相关阅读:

Linux环境下Apache与Tomcat共存

winXP系统安装SQLServer2005开发版具体过程与注意问题

制作 Windows XP 的USB启动盘

通过DOM脚本去设置样式信息

HTML5和CSS3让网页设计提升到下一个高度

Ubuntu中特效设置和快捷键的应用

网页中图片应用CSS的滤镜的效果

全球信息网服务器 ( Web Server)

在ACCESS中LIKE的用法

DedeCms栏目内容过多分为2行显示

Iframe和FRAME的区别分析

javascript 自定义常用方法

JS 遮照层实现代码

JS版常见问题--层(或下拉菜单)被select框遮住怎么办?