前段時間，同學接了一個項目，在網頁上顯示autoCAD的圖。在做項目的過程中，遇到一個棘手的問題。在使用vb語言開發的第三方插件中，有一個函數是地址傳值的方式傳參。想在js中調用該函數，但是，js不支持類似指針的概念。后來在網上百度，發現可以使用dll封裝的方式解決該問題。即把這個ocx（插件）用Activex封裝一層。 JavaScript –> ActiveX –> 第三方ocx。??做一個ActiveX來調用第三方ocx，給它來個引用傳遞就行了。詳見：http://blog.sina.com.cn/s/blog_704d0c1c0100mft7.html

?

在制作該dll的過程中，遇到了很多問題。開發環境為vb。首先打開vb，選擇新建AvtiveX dll。在出來的界面中編寫代碼。

dll是一個函數庫，他不能獨立運行，沒有main函數。但是dll有一個dllMain函數，該該函數即為該dll的入口函數。如果缺少該入口函數，那么該dll在加載的時候即會報”找不到入口點

dllRegisterServer“的錯誤。

Public Function DllMain(ByVal hInst As Long, ByVal fdwReason As Long, ByVal lpvReserved As Long) As Boolean
Select Case fdwReason
Case DLL_PROCESS_DETACH
Case DLL_PROCESS_ATTACH
DllMain = True
Case DLL_THREAD_ATTACH
Case DLL_THREAD_DETACH
End Select
End Function

?

在添加了dllMain入口函數后，又出現了問題，即在調用dll中的函數時在js報“對象不支持此屬性或方法的錯誤”。經過一番調試，找到了錯誤所在，DllMain函數沒有處理線程加載的情況。修改DllMain函數

Public Function DllMain(ByVal hInst As Long, ByVal fdwReason As Long, ByVal lpvReserved As Long) As Boolean
Select Case fdwReason
Case DLL_PROCESS_DETACH
Case DLL_PROCESS_ATTACH
DllMain = True
Case DLL_THREAD_ATTACH

DllMain=True

Case DLL_THREAD_DETACH
End Select
End Function

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

至于dll文件的編譯，參考：

?

?

轉帖]?VB創建能作為輸出函數的DLL

DLL,?函數,?輸出

QQ：594363468

?

DLL文件（即Dynamic?Link?Library，動態鏈接庫）作為系統的一個重要的組成部分，除了一些小程序外，我們幾乎能在所有軟件中看到DLL文件，而且如果使用VB寫的一些收費軟件有一個DLL代替關鍵函數，想破解都難了。因此，我們就有必要來學習如何編寫DLL。

對于很多初學VB的網友來說，VB是一門比較簡單的語言，而MicroSoft公司在開發VB時，也增添了很多功能。所以，我個人覺得VB除了部分不足之外還是挺不錯的，當然我指的不足是主要是VB運行庫方面的問題。

對于很多VB初學者來說，都會有這么一個錯誤的認識——VB中創建的DLL只是COM組件，無法作為輸出函數的DLL（即VB寫的DLL是不完整的DLL）。然而，對于一些VB的高手來說,他們就知道應該如何寫具有返回值的DLL。其實，國外早已經有人做出了在VB中制作標準DLL的Add-Ins了，而且在網上也有對于寫VB創建能作為輸出函數的DLL的相關文章。今天，我再來講講這個話題——VB創建能作為輸出函數的DLL

?

對于VB編寫DLL，按照我的經驗，主要分為兩步：一、“安內”，二、“攘外”

?

首先，“攘外必先安內”

我們要知道如何使DLL擁有一個能被調用的API函數。很簡單，我不想多說，就是在Module里面寫一個Public的Function

?

接下來，我們就可以“攘外”了

?

那么，先來介紹一下編譯技術

?

編譯器的編譯技術可以分為Native?Compile（自然編譯）與P-Code?Compile（偽編譯）兩種。

????自然編譯是編譯器將高級語言轉換為匯編代碼，并經鏈接生成EXE程序的過程。

????偽編譯是編譯器將高級語言轉換為某種編碼后，將能解釋、執行此編碼的一段程序一同鏈接，生成EXE程序。

????偽代碼P-Code，最早應該叫做Pascal-Code，其名稱起源于一個Pascal編譯器使用的“中間代碼”編譯技術。現在一般作為Pseudo-code（偽代碼）或Packed-code（壓縮代碼）簡稱。

采用偽代碼編譯時，每個VB源文件（包括.frm（窗體）、.bas（標準模塊）、.cls（類模塊））經VB?IDE編譯后各自生成相應的.obj文件，交鏈接程序Link.exe生成偽編譯的可執行文件（EXE、DLL、OCX等）。

????而用自然編譯時，每個VB源文件由C2.exe編譯生成匯編代碼，生成相應的obj文件，再由Link.exe鏈接成為完整的可執行文件。

?

別看編譯只有兩步，其實，有大玄奧在里頭。。。

MicroSoft公司，可以說是十分的狡猾，因為在默認的方式下，VB編譯的兩步使用到的命令行都是他們設定好的，所以，跳過了很多有用的部分，包括我們今天講的輸出函數部分。如果在LINK的時候添加EXPORT選項，實際上是可以輸出函數的。但是，在VBLinkd的命令行中將這個選項部分跳過了。而且過分的是：VB在構造EXE后會將編譯出來的OBJ文件刪除，這樣就無法手動通過Link來創建我們需要的DLL了。

?

根據前人的方法，加上自己修改，用一個比較齷齪的方法來變通

?

打開“VB6.0”，新建一個“標準EXE?工程”，把Form移除，添加一個Module

在模塊里輸入一下代碼：

?

????Sub?Main()?

????????If?Command?=?""?Then?Exit?Sub?'命令行不為空?

????????Dim?intCMD?As?Integer?

????????'Clipboard.Clear?'清空剪貼板?

????????'Clipboard.SetText?Command?'將命令行復制到剪貼板?

????????'去掉?復制到剪貼板?LINK??速度會快些?

????????intCMD?=?MsgBox("編譯命令行如下:"?&?vbCrLf?&?Command?&?vbCrLf?&?"點擊“是”繼續編譯，點擊“否”編譯DLL，點擊“取消”中斷編譯",?vbYesNoCancel?+?vbInformation,?"編譯")?

????????Select?Case?intCMD?

????????????Case?vbYes?'選擇“是”?繼續編譯?

????????????????Shell?"VBLINK?"?&?Command,?vbHide?

????????????Case?vbNo?'選擇“否”?

????????????????Dim?FuncName?As?String,?cmd?As?String,?l?As?Integer?

????????????????FuncName?=?InputBox("請輸入?輸出的函數名稱(對個函數?請用英文半角分號“;”分開)",?_?

????????????????"非法操作出錯我不管")?'模塊內能編譯出來的輸出函數名?

????????????????'修改命令行?

????????????????If?FuncName?=?""?Then?Exit?Sub?

????????????????Do?

????????????????????FuncName?=?Replace(FuncName,?";",?"?/EXPORT:")?

????????????????Loop?Until?0?=?InStr(FuncName,?";")?

????????????????l?=?InStr(Command,?"vbaS")?

????????????????cmd?=?Left(Command,?l?+?4)?&?"/EXPORT:"?&?FuncName?&?Right(Command,?Len(Command)?-?l?-?3)?

????????????????Shell?"VBLINK?"?&?cmd,?vbHide?

????????????Case?vbCancel?'中斷編譯?

????????????????Exit?Sub?

????????End?Select?

????End?Sub?

'大家可能看出來了,??沒錯??就是在每個輸出函數前加/EXPORT:?

?

????生成MyLink.exe，復制到VB的安裝文件夾里，把安裝文件夾的LINK.EXE改成VBLink.exe，把我們寫的MyLink.exe改成Link.exe

?

????到這一步，你應該懂了吧。。。

?

????來做個示例

?

我新建了一個ActiveX?DLL的工程，添加了一個Module，寫了一個Public的Function，如下

Public?Function?Add(ByVal?A?As?Long)?As?Long

???Add?=?A?+?A

End?Function

?

生成“E:\Math.dll”

?

被截獲的命令行（VB默認命令行）如下：

"E:\Class1.OBJ"?"E:\Module1.OBJ"?"E:\Math.OBJ"?"C:\Program?Files\Microsoft?Visual?Studio\VB98\VBAEXE6.LIB"?/ENTRY:__vbaS?/OUT:"E:\Math.dll"?/BASE:0x11000000?/SUBSYSTEM:WINDOWS,4.0?/VERSION:1.0?/DLL?/INCREMENTAL:NO?/OPT:REF?/MERGE:.rdata=.text?/IGNORE:4078

?

修改后命令行（修改后的命令行）如下：

"E:\Class1.OBJ"?"E:\Module1.OBJ"?"E:\Math.OBJ"?"C:\Program?Files\Microsoft?Visual?Studio\VB98\VBAEXE6.LIB"?/ENTRY:__vbaS?/EXPORT:Add?/OUT:"E:\Math.dll"?/BASE:0x11000000?/SUBSYSTEM:WINDOWS,4.0?/VERSION:1.0?/DLL?/INCREMENTAL:NO?/OPT:REF?/MERGE:.rdata=.text?/IGNORE:4078?

?

大家對比兩行命令可以發現在/ENTRY:_vbaS后面，我增加了/EXPORT:Add，這就是關鍵所在

?

現在，我又新建了一個EXE工程，加一個VB?API聲明，代碼部分：

?

Private?Declare?Function?Add?Lib?"E:\Math.dll"?(ByVal?A?As?Long)?As?Long?'API聲明

?

Private?Sub?Form_Load()

???MsgBox?Add(2)

End?Sub

?

看到效果沒，成功了吧

?

至于String型么，投遞時StrConv(String,vbUnicode?)返回時StrConv(String,vbFromUnicode?)

?

學了這個，大家不知道有沒有什么心得呢，當然這個要看個人悟性的問題。師父領進門，修行在個人嘛，何況還是被我這種半調子的菜鳥教呢

?

這個...天好藍...水好清...外掛...Winsock...API...DLL...監視API的值...修改...嘿嘿...我什么都沒說

?

如果遇到不懂的地方...就來問我啊...QQ：594363468

?

?

?

?

?

?

?

dll的注冊：在cmd中執行Regsvr32 *.dll

注冊之后即可使用。

查看ProggId 的方法：

在網上下載一個叫OLEVIEW的軟件，在其中查找你的dll注冊信息。一般來講，你的dll應該在Automation ?Objects中，名字和你做dll時的工程名一樣

?

?

轉載于:https://www.cnblogs.com/elnino/archive/2013/01/13/2858635.html

總結

以上是生活随笔為你收集整理的制作vb dll的总结的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。