前段時間，同學接了一個項目，在網頁上顯示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時的工程名一樣