教你如何在VB.NET可执行文件中嵌入一个文本文件

经过长时间学习VB.NET，于是和大家分享一下，看完本文你肯定有不少收获，希望本文能教会你更多东西。以前我做程序，版权使用协议信息总是放在一个txt文本文件中，打包时和可执行文件放在一起，在安装时释放到程序的安装路径，然后再打开使用。这种做法有两大坏处，一是这个文件很容易被其它人修改，二是话这种做法太不成熟了。现在我使用一个新的方法，就是将协议和可执行文件结合在一起，在程序运行时读出使用，当然这就全靠资源的作用了。

10年积累的网站建设、成都网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有克州免费网站建设让你可以放心的选择与我们合作。

示例 在net中可执行文件中嵌入一个文本文件步骤如下：

1、在VB.net中新建一个项目，类型选择windows应用程序,项目名称改为resourcesample2。

2、点击项目菜单，选择添加现有项，接着会弹出一个文件对话框，将文件类型改为所有文件后，选择要嵌入的txt文件（其实这时你可选择任意文件，只要你喜欢*-）。接着你会在解决方案资源管理器中发现你新加入的文件名。如图：

3、关键的一步到了，在解决方案资源管理器中点击你刚加入的文件名，然后在属性窗体中将 "加成操作" 这一属性改为"嵌入的资源"，这将告诉net，刚加入的文件将会作为资源链接进VB.NET可执行文件中。留意一下文件名哦，这在后面的程序中也很重要，强烈建议使用小写文件名！如下图：

4、接下就是在程序中用代码读出这个文件的内容。

在Form1_Click事件中加入代码，如下所示：

 
 
 
 

  
  
  
  
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click  
  
  
  
  
Dim tobjStream As IO.Stream = Me.GetType.Assembly.GetManifestResourceStream("resourcesample2.License.txt")  
  
  
  
  
Dim tobjStreamReader As New IO.StreamReader(tobjStream, System.Text.Encoding.Default)  
  
  
  
  
Dim tstrLicense As String = tobjStreamReader.ReadToEnd  
  
  
  
  
'如果是图象就可以使用dim tobjBMP as new bmp(tobjstrem)的方法直接得到资源内容  
  
  
  
  
MessageBox.Show(tstrLicense)'显示刚才读得的结果  
  
  
  
  
End Sub  
 
 
 
 

在此对上述代码进行一点解释，net是通过Assembly的GetManifestResourceStream读出嵌入在VB.NET可执行文件的资源并以IO.Stream对象返回（反正得到了这个流，就好象你时进行文件流操作，读/写到磁盘或象我一样在程序内部处理都由你自己决定了）。这个方法的唯一参数是资源的唯一标识，是按如下方式组成的：程序集的根命名空间+"."+资源在属性窗口显示的文件名（这是区分大小写的，在上文已提醒你注意了哦，而且这个标识法在C#中是不同的，别问我为什么，谁叫你不和我一样使用VB.net，哼8-）。

程序集的根命空间的名你可以从项目菜单下的XXXX（XXXX是你的项目名称，可不要认为是骂人的话8-）属性中看到：

其余的代码就是以流方式读文件了，很简单吧。

5、按生成菜单下的生成解决方案，然后到你可执文件的目录下看看，你会发现除了可执行文件外没有别的文本文件，因为文本文件已以资源的方式存在于VB.NET可执行文件中啦。运行一下看看效果啊（一些想做黑客的菜鸟又有什么怪怪的想法，藏木马？……）

资源的使用就介绍到此为至吧，窗外依然小雨菲菲，在虚幻的网络和残酷的现实边缘排徊久了，写文章都有点怪怪的，请大伙儿原谅，祝大伙编程愉快。

文章标题：教你如何在VB.NET可执行文件中嵌入一个文本文件
URL链接：http://www.mswzjz.cn/qtweb/news38/549738.html

攀枝花网站建设、攀枝花网站运维推广公司-贝锐智能，是专注品牌与效果的网络营销公司；服务项目有等

广告

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