VB学习:嵌入文件的非常规实现

领测软件测试网

下一页 1 2 

　　 

       在文件中嵌入文件，一般都是通过资源文件来实现的，至于具体的实现步骤，我想就不用我罗嗦了，网上有很多这样的文章，不清楚的朋友可以自己搜索一下。

但是有些情况下，用资源文件无法解决问题，就不得不迂回一下，比如要实现所谓的绿色软件（在这里我要说明的是，这篇文章没有涉及任何高级技巧，因此，您略过不看，我也不会感到难过），事实上，大家知道，vb程序的运行需要vb运行库的支持，所以，用vb做绿色软件几乎是不可能的事，幸运的是，某些版本的window预装了vb的运行库支持文件，为不可能变为可能，提供了机会。然而，一旦我们使用了第3方控件或在其他类似情况下，这种实现绿色软件的可能就微乎其微了，怎么办？如果用资源文件就称不上绿色软件了，那么，是不是就意味着我们必须放弃这种诱人的想法呢？别着急，往下看就知道应该如何去做了。：）

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

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

     写文件的大致程序如下：

     Dim buff() As Byte
     接下来写根据要嵌入的文件内容给数组赋值的语句
     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)

文章来源于领测软件测试网 https://www.ltesting.net/