VB.NET嵌入文件操作技巧分享

VB.NET嵌入文件的应用方式有很多种。大家可以根据开发中的不同需求来进行选择应用。下面我们就会对这一应用方式进行一个详细的解读，方便大家理解，提高大家的编程效率。#t#

成都网站设计、成都网站制作、外贸网站建设的开发，更需要了解用户，从用户角度来建设网站，获得较好的用户体验。成都创新互联多年互联网经验，见的多，沟通容易、能帮助客户提出的运营建议。作为成都一家网络公司，打造的就是网站建设产品直销的概念。选择成都创新互联，不只是建站，我们把建站作为产品，不断的更新、完善，让每位来访用户感受到浩方产品的价值服务。

在文件中嵌入文件，一般都是通过资源文件来实现的，至于具体的实现步骤，我想就不用我罗嗦了，网上有很多这样的文章，不清楚的朋友可以自己搜索一下。但是有些情况下，用资源文件无法解决问题，就不得不迂回一下，比如要实现所谓的绿色软件（在这里我要说明的是，这篇文章没有涉及任何高级技巧，因此，您略过不看，我也不会感到难过），事实上，大家知道，VB程序的运行需要VB运行库的支持，所以，用VB做绿色软件几乎是不可能的事。

幸运的是，某些版本的window预装了VB的运行库支持文件，为不可能变为可能，提供了机会。然而，一旦我们使用了第3方控件或在其他类似情况下，这种实现绿色软件的可能就微乎其微了，怎么办？如果用资源文件就称不上绿色软件了，那么，是不是就意味着我们必须放弃这种诱人的想法呢？别着急，往下看就知道应该如何去做了。：）

我的答案是直接以代码的形式，将VB.NET嵌入文件应用到到我们的VB程序中，下面我假设您已经知道了如何用api函数注册控件（当然在程序中调用regsvr32也可），知道了如何读写文件和注册表，这些问题和本问题息息相关，您有必要知道，如果不知道也不要紧，可以通过搜索引擎获取答案。

具体的实现步骤是：首先在程序加载时根据注册表中的键值，判断是否是第一次运行，如果是第一次运行，则将在您指定的路径生成需要的文件并写入数据，然后，调用api函数注册控件，同时，写注册表，标记已运行过本程序。

写文件的大致程序如下：

 
 
 
  
  
  
Dim buff() As Byte 
 
 

接下来写根据VB.NET嵌入文件的内容给数组赋值的语句

 
 
 
  
  
  
Open 文件名 For Binary As #1  
  
  
  
Put #1, , buff  
  
  
  
Close #1 
 
 

看到这里，有些朋友要被我气乐了，会愤怒的对我说：你说的这些我都知道，关键是怎么给数组赋值，难道你要我用16进制的编辑器查看文件数据，进行赋值吗？这时，我会回答：是的，不过这个过程可以通过程序实现，看看下面的代码：

 
 
 
  
  
  
Private Sub writetext(ByVal
 FileName As String, ByVal 
ByteArrayName As String, 
ByVal TxtFile As String)  
  
  
  
Dim i As Long  
  
  
  
i = FileLen(FileName)  
  
  
  
Dim arr() As Byte  
  
  
  
ReDim arr(i - 1)   
  
  
  
Open FileName For Binary As #1  
  
  
  
Get #1, , arr  
  
  
  
Close #1  
  
  
  
Dim temps As String  
  
  
  
Open TxtFile For Output As #1  
  
  
  
Print #1, "ReDim " + 
ByteArrayName + "(" + CStr(i - 1) + ")"  
  
  
  
For i = 0 To UBound(arr)  
  
  
  
temps = ByteArrayName + "
(" + CStr(i) + ")=" + CStr(arr(i))  
  
  
  
Print #1, temps  
  
  
  
Next  
  
  
  
Close #1  
  
  
  
''MsgBox "haha "  
  
  
  
End Sub 
 
 

这段代码的作用是自动将你需要手动输入的代码写入一个文本文件，您剩下的工作就是，调用这段代码，手动打开刚刚生成的文件，把文字全部选中，复制，并粘贴到VB中您需要手动编写代码的地方。其中参数FileName为您需要嵌入的文件的文件名，ByteArrayName为您程序中用到的数组名（如果用我那段让您生气的代码，您就传入"buff"），TxtFile为要生成的文本文件的文件名。假如，您要将您磁盘上的c:test.ocx嵌入程序，您在程序中的数组名称为"buff",您可以这样调用：

writetext "c:test.ocx", "buff", "d:mcmcbuff.txt"，然后打开文件d:mcmcbuff.txt，进行，全选，复制，粘贴。

不得不说的是，尽管您可以在程序中释放文件，自动注册，但是如果您用的第3方控件是您画到窗体上的，您的程序还是不会正常运行，也就是说，您必须在完成上面的步骤后，用代码在窗体上添加控件（用controls.add，需要知道progid，可用api读注册表获取，如果是activex dll的话，则用createobject进行绑定）。但是，这样的话，您不得不解决对控件事件的响应问题，这时只能用VBControlExtender解决问题。

总而言之，尽管用VB可以实现绿色软件，但是对第3方控件的处理实在是太麻烦了，而且文件体积会急剧增大，我的意见是这个绿色软件不实现也罢，其实用我上面说的方法，VB.NET嵌入文件到一个不需要注册的文件倒是一个不错的主意，不过，希望不要做危害别人安全的事，比如说，嵌入一段木马程序。

分享名称：VB.NET嵌入文件操作技巧分享
转载源于：http://www.shufengxianlan.com/qtweb/news1/23201.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联