VB 动态调用未注册DLL

最新推荐文章于 2023-05-17 20:51:43 发布

yeuegi

最新推荐文章于 2023-05-17 20:51:43 发布

阅读量900

点赞数 1

CC 4.0 BY-SA版权

分类专栏： vb 文章标签： VB

本文链接：https://blog.youkuaiyun.com/yeuegi/article/details/83852293

vb 专栏收录该内容

90 篇文章

订阅专栏

本文介绍了一种通过API调用实现DLL文件加载的方法。利用LoadLibrary、GetProcAddress和CallWindowProc函数来加载并调用DLL中的函数。示例中演示了如何加载名为text.dll的文件，并调用其内部的ExploreMap函数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long

Private Sub Command1_Click()
On Error Resume Next
Dim lb As Long, pa As Long
'以 text.dll 为例,设 text.dll 功能跟 user32.dll 完全相同。
lb = LoadLibrary(App.Path & "\text.dll")
'取得 text.dll 中 SetWindowTextA 函数的地址
pa = GetProcAddress(lb, "ExploreMap")
'调用 SetWindowTextA 函数过程
pa = CallWindowProc(pa, ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&)
'释放...
FreeLibrary lb
Me.Caption = pa
End Sub