VB.NET嵌入文件操作技巧分享
VB.NET嵌入文件的應用方式有很多種。大家可以根據(jù)開發(fā)中的不同需求來進行選擇應用。下面我們就會對這一應用方式進行一個詳細的解讀，方便大家理解，提高大家的編程效率。#t#
在文件中嵌入文件，一般都是通過資源文件來實現(xiàn)的，至于具體的實現(xiàn)步驟，我想就不用我羅嗦了，網(wǎng)上有很多這樣的文章，不清楚的朋友可以自己搜索一下。但是有些情況下，用資源文件無法解決問題，就不得不迂回一下，比如要實現(xiàn)所謂的綠色軟件（在這里我要說明的是，這篇文章沒有涉及任何高級技巧，因此，您略過不看，我也不會感到難過），事實上，大家知道，VB程序的運行需要VB運行庫的支持，所以，用VB做綠色軟件幾乎是不可能的事。
幸運的是，某些版本的window預裝了VB的運行庫支持文件，為不可能變?yōu)榭赡?，提供了機會。然而，一旦我們使用了第3方控件或在其他類似情況下，這種實現(xiàn)綠色軟件的可能就微乎其微了，怎么辦？如果用資源文件就稱不上綠色軟件了，那么，是不是就意味著我們必須放棄這種誘人的想法呢？別著急，往下看就知道應該如何去做了。：）
我的答案是直接以代碼的形式，將VB.NET嵌入文件應用到到我們的VB程序中，下面我假設(shè)您已經(jīng)知道了如何用api函數(shù)注冊控件（當然在程序中調(diào)用regsvr32也可），知道了如何讀寫文件和注冊表，這些問題和本問題息息相關(guān)，您有必要知道，如果不知道也不要緊，可以通過搜索引擎獲取答案。
具體的實現(xiàn)步驟是：首先在程序加載時根據(jù)注冊表中的鍵值，判斷是否是第一次運行，如果是第一次運行，則將在您指定的路徑生成需要的文件并寫入數(shù)據(jù)，然后，調(diào)用api函數(shù)注冊控件，同時，寫注冊表，標記已運行過本程序。
寫文件的大致程序如下：
- Dim buff() As Byte
接下來寫根據(jù)VB.NET嵌入文件的內(nèi)容給數(shù)組賦值的語句
- Open 文件名 For Binary As #1
- Put #1, , buff
- Close #1
看到這里，有些朋友要被我氣樂了，會憤怒的對我說：你說的這些我都知道，關(guān)鍵是怎么給數(shù)組賦值，難道你要我用16進制的編輯器查看文件數(shù)據(jù)，進行賦值嗎？這時，我會回答：是的，不過這個過程可以通過程序?qū)崿F(xiàn)，看看下面的代碼：
- 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
這段代碼的作用是自動將你需要手動輸入的代碼寫入一個文本文件，您剩下的工作就是，調(diào)用這段代碼，手動打開剛剛生成的文件，把文字全部選中，復制，并粘貼到VB中您需要手動編寫代碼的地方。其中參數(shù)FileName為您需要嵌入的文件的文件名，ByteArrayName為您程序中用到的數(shù)組名（如果用我那段讓您生氣的代碼，您就傳入"buff"），TxtFile為要生成的文本文件的文件名。假如，您要將您磁盤上的c:test.ocx嵌入程序，您在程序中的數(shù)組名稱為"buff",您可以這樣調(diào)用：
writetext "c:test.ocx", "buff", "d:mcmcbuff.txt"，然后打開文件d:mcmcbuff.txt，進行，全選，復制，粘貼。
不得不說的是，盡管您可以在程序中釋放文件，自動注冊，但是如果您用的第3方控件是您畫到窗體上的，您的程序還是不會正常運行，也就是說，您必須在完成上面的步驟后，用代碼在窗體上添加控件（用controls.add，需要知道progid，可用api讀注冊表獲取，如果是activex dll的話，則用createobject進行綁定）。但是，這樣的話，您不得不解決對控件事件的響應問題，這時只能用VBControlExtender解決問題。
總而言之，盡管用VB可以實現(xiàn)綠色軟件，但是對第3方控件的處理實在是太麻煩了，而且文件體積會急劇增大，我的意見是這個綠色軟件不實現(xiàn)也罷，其實用我上面說的方法，VB.NET嵌入文件到一個不需要注冊的文件倒是一個不錯的主意，不過，希望不要做危害別人安全的事，比如說，嵌入一段木馬程序。
