VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 549|回复: 1

[求助] VB如何调用此DLL中的某个函数

[复制链接]
发表于 2017-2-18 09:14:07 | 显示全部楼层 |阅读模式
8金钱
Private Sub Command1_Click()
Dim LibHand As Long '载入的dll句柄
Dim funcAddress As Long '函数地址
LibHand = LoadLibrary(Trim(Text1.Text))      '将dll载入到内存。此步成功,libhand是一个内存地址值
funcAddress = GetProcAddress(LibHand, Trim(Text2.Text))   这步不成功,funcAddress是空值
MsgBox Hex(funAddress)
FreeLibrary LibHand '释放映射库的地址
End Sub
写了段小程序,目的是想调用dll中的一个函数
ADll.zip (55.76 KB, 下载次数: 28)

发表于 2017-2-21 23:03:14 | 显示全部楼层
Private Declare Function Hahaha Lib "adll.dll" Alias "#9" (ByVal Hehe As Long) As Long
这种奇怪的函数名,我的习惯是写成我看得惯的函数名,然后用Ordinal来导入函数。
至于GetProcAddress嘛,也是可以通过Ordinal获取函数地址的。这个函数甚至可以自己用VB实现
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2017-4-27 18:58

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表