用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

赞 (0)

相关推荐

  • 用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&

  • vbs实现的eMule电驴自动关机脚本代码

    Set fso = CreateObject("Scripting.FileSystemObject") Set ws = WScript.CreateObject("WScript.Shell") Count = 0 Do Until Count< -1     chksize = fso.GetFolder("C:\Program Files\eMule\Temp").Size     If chksize = 0 Then      

  • 10个实用的脚本代码工具

    下面介绍10个实用的 浏览辅助 Tidy Read 复制代码 代码如下: javascript:(function(){var s=document.createElement("script");s.charset="gb2312";s.language="javascript";s.type="text/javascript";s.src="http://tidyread.com/tidyread.js?u=&q

  • 在vbs运行命令行工具后让命令窗口保持打开状态的脚本

    问: 您好,脚本专家!如何在运行像 Ping 或 Ipconfig 这样的工具后让命令窗口保持打开状态? -- DB 答: 您好,DB.这个问题让我们想起了往事.有一个脚本专家刚来 Microsoft,那时许多人认为 WMI 和 ADSI 对于脚本编写者来说太难使用.因此,人们建议这个脚本专家不使用 WMI 或 ADSI,而是干脆使用 VBScript 作为调用命令行工具的方法.事实上,这个脚本专家编写的第一章就是一个关于事件日志管理的章节,该章后来成为 Microsoft Windows 20

  • exe2swf 工具(Adodb.Stream版)

    Exe2swf ,将exe 格式的 flash文件转为swf 格式.网上有很多这方面的工具,这个是用vbscript写的.用法: 将下面代码存为 exe2swf.vbs  将exe格式的flash拖放在此文件上,即可生成swf文件, 更新日期:2005-01-20 09:30 复制代码 代码如下: 'exe2swf工具, '用法:将exe格式的flash拖放在此文件上,即可生成swf文件, 'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. dim As

  • iisvdir.vbs iis虚拟目录管理脚本使用介绍

    IIS管理器也是通过调用iisvdir.vbs来实现虚拟目录的创建和删除的.我们可以通过命令行的方式来执行iisvdir.vbs脚本 1)创建虚拟目录: cscript c:\windows\system32\iisvdir.vbs [/s server] [/u username /p password] /create [virtualRoot] Alias PhysicalPath 2)删除虚拟目录: 1cscript c:\windows\system32\iisvdir.vbs [/s

  • vbs后台运行bat删除自身的代码

    知道真实路径的情况下 复制代码 代码如下: set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\system32\run.vbs" 不知道具体的路径情况下,可以用如下代码: 复制代码 代码如下: Set fso =CreateObject(

  • 如何让动态插入的javascript脚本代码跑起来。

    首先,声明方法很多种,直接间接的方法都有,只罗列一般情况下的两种模式: 假设我们要装入的代码是a.js: var foo=function(){ document.write("I am a.js content foo() function by never-online"); }; 一.直接插入src,这种方法简单而直接,但有局限性, 1) <script> var x=document.createElement("SCRIPT"); x.src=

  • JavaScript 实现自己的安卓手机自动化工具脚本(推荐)

    一个神奇的 APP 这个软件叫做 Auto.js,只支持安卓,是一个不需要 Root 权限的 JavaScript 自动化软件.什么意思呢,就是在你的安卓手机上安装这个 APP,然后通过编写 JS 脚本的方式实现自动化操作.类似的也有其他的一些软件,比如苹果自带的快捷操作,可以通过自定义配置完成一系列的流程,但是由于其目标是所有人都可以使用,所以定制的时候就没有那么灵活. 而 Auto.js 通过写代码的方式定制,那不用多说,灵活性肯定是没的说,关键的是,竟然写 JS 就可以,不用懂 Java,

  • 一文秒懂Go 编写命令行工具的代码

    一文秒懂Go 编写命令行工具的代码

    前言 最近因为项目需要写了一段时间的 Go ,相对于 Java 来说语法简单同时又有着一些 Python 之类的语法糖,让人大呼"真香". 但现阶段相对来说还是 Python 写的多一些,偶尔还得回炉写点 Java :自然对 Go 也谈不上多熟悉. 于是便利用周末时间自己做个小项目来加深一些使用经验.于是我便想到了之前利用 Java 写的一个博客小工具. 那段时间正值微博图床大量图片禁止外链,导致许多个人博客中的图片都不能查看.这个工具可以将文章中的图片备份到本地,还能将图片直接替换到

随机推荐