三沣开发知识 购物 网址 游戏 小说 歌词 地图 快照 开发 股票 美女 新闻 笑话 | 汉字 软件 日历 阅读 下载 图书馆 编程 租车 短信 China
TxT小说阅读器
↓语音阅读,小说下载,古典文学↓
图片批量下载器
↓批量下载图片,美女图库↓
多播视频美女直播
↓电视,电影,美女直播,迅雷资源↓
一键清除垃圾
↓轻轻一点,清除系统垃圾↓
vbs/VBScript DOS/BAT hta htc python perl 游戏相关 VBA 远程脚本 ColdFusion ruby专题
autoit seraphzone PowerShell linux shell Lua Golang Erlang 其它教程 CSS/HTML/Xhtml
html5 CSS XML/XSLT Dreamweaver教程 经验交流 开发者乐园 Android开发资料
站长资讯 .NET新手 ASP.NET C# WinForm Silverlight WCF CLR WPF XNA VisualStudio ASP.NET-MVC .NET控件开发 EntityFramework WinRT-Metro Java C++ PHP Delphi Python Ruby C语言 Erlang Go Swift Scala R语言 Verilog 其它语言 架构设计 面向对象 设计模式 领域驱动 Html-Css JavaScript jQuery HTML5 SharePoint GIS技术 SAP OracleERP DynamicsCRM K2 BPM 信息安全 企业信息 Android开发 iOS开发 WindowsPhone WindowsMobile 其他手机 敏捷开发 项目管理 软件工程 SQLServer Oracle MySQL NoSQL 其它数据库 Windows7 WindowsServer Linux
  IT知识库 -> vbs/VBScript -> 用vbs实现的exe2swf工具脚本代码 -> 正文阅读
  vbs/VBScript 最新文章
vbscript基础篇 - vbs变量定义与使用方法
vbscript基础篇 - vbs数组Array的定义与使用
VBScript 根据IE窗口的标题输出ESC
vbscript网页模拟登录效果代码
vbs能调用的系统对象小结
VBS技术内幕:CreateObject函数详解
基于逻辑运算的简单权限系统(原理,设计,实现
VBS实现的系统服务备份优化代码
vbs wmi获取电脑硬件信息实例
用vbs 取得收藏夹里的所有链接名称和URL的脚

[vbs/VBScript]用vbs实现的exe2swf工具脚本代码

用vbs实现的exe2swf工具脚本代码 几个超据学习价值的VBS脚本用法:将exe格式的flash拖放在此vbs文件上,即可生成swf文件
复制代码 代码如下:
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 
上一篇文章      下一篇文章      查看所有文章
加:2015-01-18 11:08:01  更:2017-05-14 00:05:37 
 
技术频道: 站长资讯 .NET新手区 ASP.NET C# WinForm Silverlight WCF CLR WPF XNA Visual Studio ASP.NET MVC .NET控件开发 Entity Framework WinRT/Metro Java C++ PHP Delphi Python Ruby C语言 Erlang Go Swift Scala R语言 Verilog 其它语言 架构设计 面向对象 设计模式 领域驱动设计 Html/Css JavaScript jQuery HTML5 SharePoint GIS技术 SAP Oracle ERP Dynamics CRM K2 BPM 信息安全 企业信息化其他 Android开发 iOS开发 Windows Phone Windows Mobile 其他手机开发 敏捷开发 项目与团队管理 软件工程其他 SQL Server Oracle MySQL NoSQL 其它数据库 Windows 7 Windows Server Linux
脚本语言: vbs/VBScript DOS/BAT hta htc python perl 游戏相关 VBA 远程脚本 ColdFusion ruby专题 autoit seraphzone PowerShell linux shell Lua Golang Erlang 其它教程
网站开发: CSS/HTML/Xhtml html5 CSS XML/XSLT Dreamweaver教程 经验交流 开发者乐园 Android开发资料
360图书馆 软件开发资料 文字转语音 购物精选 软件下载 美食菜谱 新闻资讯 电影视频 小游戏 Chinese Culture 股票 租车
生肖星座 三丰软件 视频 开发 短信 中国文化 网文精选 搜图网 美图 阅读网 多播 租车 短信 看图 日历 万年历 2018年7日历
2018-7-18 3:29:21
多播视频美女直播
↓电视,电影,美女直播,迅雷资源↓
TxT小说阅读器
↓语音阅读,小说下载,古典文学↓
一键清除垃圾
↓轻轻一点,清除系统垃圾↓
图片批量下载器
↓批量下载图片,美女图库↓
  网站联系: qq:121756557 email:121756557@qq.com  IT知识库