vb读出二进制文件,合并两个文件

原创 2013年12月05日 17:04:17

========================================= 
Dim FileMe() As Byte, File1() As Byte, File2() As Byte 
Dim Ii As Integer, Ss As String 
'读入程序自身 
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #11 
 ReDim FileMe(FileLen(App.Path & "\" & App.EXEName & ".exe") - 1) 
 Get #11, , FileMe 
Close #11 
'读入第一个可执行文件 
Open Text1(1).Text For Binary As #1 
 ReDim File1(FileLen(Text1(1).Text) - 1) 
 Get #1, , File1 
'============================================== 
'下面的这个循环我不知道干嘛的,望解~ 
 For Ii = 1 To 200 
 Ss = File1(Ii - 1) Xor 99 
 File1(Ii - 1) = Ss 
 Next 
'============================================== 
Close #1 
'读入第二个可执行文件 
Open Text1(2).Text For Binary As #2 
 ReDim File2(FileLen(Text1(2).Text) - 1) 
 Get #2, , File2 
'=====================同上===================== 
 For Ii = 1 To 200 
 Ss = File2(Ii - 1) Xor 99 
 File2(Ii - 1) = Ss 
 Next 
'============================================== 
Close #2 
'将程序自身+第一个exe+第二个exe合并到新文件 
Open Text2.Text For Binary As #3 
 Put #3, , FileMe 
 Put #3, , File1 
 Put #3, , File2 
 Put #3, , PSW & StrMC 
 Put #3, , App.EXEName & "|||" & FileLen(App.Path & "\" & App.EXEName & ".exe") & "////" & _ 
 Mid(Text1(1).Text, InStrRev(Text1(1).Text, "\") + 1) & "|||" & FileLen(Text1(1).Text) & "////" & _ 
 Mid(Text1(2).Text, InStrRev(Text1(2).Text, "\") + 1) & "|||" & FileLen(Text1(2).Text) & "////" 
Close #3 
MsgBox "捆绑成功: " & Text2.Text, vbInformation 
===================================================== 
此篇本人也忘了从哪里贴的,一只也没有看,先扔这边了。
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

VB.NET以二进制方式将嵌入的资源写入文件(不分文件类型)

本函数只有两个参数,资源文件的在程序集中的路径(程序集的名称.项目文件夹路径.文件名)和写入的文件路径。 请在使用前引入System.IO命名空间。 Function WriteEmbedd...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

C++合并两个有序的二进制文件

有时候很多基于文件的外部排序算法都需要合并两个有序的文件。下面就给出简单的C++实现方法。具体思路和合并两个有序的单链表的思路是一样的。 void merge_file(const string& f...

vb.net 教程 4-9 二进制文件读写 2

继续上一节讲解二进制文件的读写。 本节以实例的方式讲解二进制文件的读取。 请不要忘了加上 Imports System.IO 窗体设计如下: 按下“判断是否可执行文件”按钮时: Privat...

vb.net 教程 4-9 二进制文件读写 3

在上一节的基础上,本节做一些扩展。 判断文件是什么类型,为了简化操作,仅仅只判断是否可执行文件、png文件、gif文件、jpeg文件。 上述文件对应的前面几个字节是: 可执行文件:4D 5A    P...

vb.net 教程 4-9 二进制文件读写 1

二进制文件的读写较文本文件读写复杂一些,但是搞清楚了当前读写 流 的位置,也很简单。 二进制文件读写是通过BinaryReader和BinaryWriter来执行的。 BinaryReader...

vb.net 教程 4-9 二进制文件读写 游戏存档修改器

记得我的博客第一篇文章是写的《仙剑奇侠传3 外传》存档文件修改器(请参看:《[vb6]仙剑3外传的存档修改器》),当时是用vb6写的。 想想也是十多年过去了。 十多年过去已经很少在电脑上玩游戏了,还好...

VB 建立二进制文件的实例

  • 2010年06月07日 16:11
  • 36KB
  • 下载

查找编译在vb二进制文件

  • 2004年07月28日 00:00
  • 16KB
  • 下载

vb.net 两个PNG文件叠加处理方式

一、从文件加载 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handle...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb读出二进制文件,合并两个文件
举报原因:
原因补充:

(最多只允许输入30个字)