Question

求教 VB 调用含有传递指针参数的 DLL 函数

DLL名称：Susi.dll

函数原型如上：
我在VB，一个form里声明如下：
Public D1, D2 As Long
Private Declare Function SusiIOCountEx Lib "Susi.dll" (ByVal L1 As Long, ByVal L2 As Long) As Boolean
private Declare Function VarPtr Lib "MSVBVM60" (var As Any) As Long
程序调用函数：
SusiIOCountEx D1, D2
时，系统内存报错，不能Written.
请教有经验的人，我哪里写错了。函数传递的时指针，我也尝试过这样写
SusiIOCountEx VarPtr(D1), VarPtr(D2)
但是程序报错“DLL 调用约定错误”。

Answer 1

Private Declare Function SusiIOCountEx Lib "Susi.dll" (ByRef L1 As Long, ByRef L2 As Long) As Boolean
Byval是值调用，Byref才是地址调用，Dword *传递的是地址指针，要用byref才正确。

追问

还是不可以，试了很多次

追答

dll编译的时候要加 _stdcall，否则VB无法调用

Answer 2

请注意看它的两个参数是输出参数
SusiIOCountEx