DLL调用

WZ581701

附件中的动态链接库，用VC编写可以随意调用，也曾经用VB通过LOADBIRARY成功调用过一次（能得到各个函数的地址指针），但是后来怎么也不能用VB调用了，就是上次那个成功调用的程序也不能再调用了，恳请各位高手指点迷津！

xinhunter

楼主确定是用“LOADBIRARY”函数调用的？
我倒是知道“LoadLibrary”可以用来载入Dll文件。另外，动态调用的DLL函数一定是4个long型或指针型参数，因为“CallWindowProc”函数的参数是5个，其中后4个就是dll函数的参数。

WZ581701

Option Explicit
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function lmc1_LoadEzdFile1 Lib "MarkEzd.DLL" Alias "lmc1_LoadEzdFile" (ByVal strFileName As String) As Long
Sub test()
    Dim b As String
    b = "test.ezd"
    Dim a, c, d As Long
    a = LoadLibrary("MarkEzd.dll")
    c = GetProcAddress(a, "lmc1_LoadEzdFile")
    d = lmc1_LoadEzdFile1(b)
End Sub
执行的结果是a和c都是等于0，没有得到函数的地址。而d提示没有找到MarkEzd.dll。
我们先不用管如何调用。连loadlibrary都做不了，但是VC可以做，VB也曾经做出来一次，但是同样的程序再试就不行

WZ581701

“LOADBIRARY”函数只是一个笔误，不好意思

xinhunter

"MarkEzd.dll"这个文件的位置需要指明，不管是在 declare function语句还是LoadLibrary语句。a得到0值很可能在指定位置找不到文件的原因。
另外，既然declare function，就不需要再使用LoadLibrary和GetProcAddress，直接调用就可以了。

WZ581701

按照9楼的说法，只能用vc了？可是我只会用vb，怎么办啊？有没有什么好办法，请指教

WZ581701

zhyzhsh 发表于 2012-9-10 15:20
不敢当啊  高手们大概在忙别的吧
你得到地址以后怎么使用？也说出来让我们见 ...

是啊，下午试了以后就遇到麻烦了，你给的程序确实找到了地址。但是在用CallWindowProc时出问题了MarkEzd.dll里有一个函数lmc1_LoadEzdFile(TCHAR* strFileName)是读取指定文件的。我用了各种方法（包括private type）都不能操作，一操作excel就出错。我把这个文件已经传给你了，能否帮我处理下，叩谢

zhyzhsh

1. Private Declare Function LoadLibraryEx Lib "kernel32" Alias "LoadLibraryExA" (ByVal lpFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long
   
2. Private Declare Function GetProcAddress Lib "kernel32" (ByVal hMODULE As Long, ByVal lpProcName As String) As Long
   
3. Private Const DONT_RESOLVE_DLL_REFERENCES = &H1
   
4. 
   
5. Private Sub test()
   
6. 
   
7. Dim hMODULE As Long, hProc As Long, hThreadID As Long
   
8. 
   
9. hMODULE = LoadLibraryEx("c:\MarkEzd.DLL", ByVal 0, DONT_RESOLVE_DLL_REFERENCES)
   
10. hProc = GetProcAddress(hMODULE, "lmc1_LoadEzdFile")
    
11. Debug.Print hMODULE, hProc
    
12. 
    
13. End Sub

复制代码

得到地址以后怎样运行呢？

xinhunter

C/C++程序可以定义一个变量为函数入口，给变量赋值(地址)后就可以调用。
VB程序可以使用CallWindowProc函数调用，函数的参数是5个，其中第1个参数是dll函数的地址，后4个就是dll函数的参数。这时各参数是固定的，所以应用上受到很大制约，几乎没有市场。
如果一定要使用VB按地址调用外部函数，最大可能是自己写出这个要被调用的函数，配合好参数，可以实现。

zhyzhsh

WZ581701 发表于 2012-9-10 14:02
谢谢，谢谢，zhyzhsh果然是高手，屡次得到你的帮助，非常感谢，用你的程序果然轻松得到地址了。{:soso_e179 ...

不敢当啊{:soso_e183:}  高手们大概在忙别的吧{:soso_e130:}
你得到地址以后怎么使用？也说出来让我们见识见识{:soso_e100:}