VB6.0 调用dll 如何声明如下两个函数

[JerryVVang]

调用dll文件，遇见有回调函数的，新手不知道该怎么写声明了，大神来帮个忙

[舉杯邀明月]

楼上赵四复读机的这种回复，看着就恶心 ！！！！！

' 第1个：　API函数声明
Private Declare Function OpenSDK_AllocSession Lib "XXX.dll" (ByVal pHandle As Long, _
                           ByRef pUser As Any, _
                           ByRef pSession As Long, _
                           ByRef iSessionLen As Long, _
                           Optional ByVal bSync As Boolean = False, _
                           Optional ByVal iTimeOut As Long = &HEA60&) As Long
' 参数说明：
' pHandle      你的“回调函数”地址，使用时传入：  AddressOf OpenSDK_MessageHandler
' pUser        你要向“回调函数”传递的信息数据，可以是任意的（按你的需要定义）“自定义类型”，
'                    也可以是VB6中“标准”的数据类型。如果不需要传数据，可传递 ByVal 0& 。
' pSession     指向一个“字符串数据”，估计是ANSI格式编码的，用CopyMemory( )把数据拷贝到一个字
'                    节数组中，再用 StrConv( ) 函数转换成UTF16编码字符串就行了。
' iSessionLen  从上一个参数（pSession）指向的内存地址，字符数据有多少字节。
' bSync        略
' iTimeOut     “同步操作”的“超时”参数，时间单位是毫秒。默认值为6万毫秒（1分钟）。




'  第2个：　你自己要实现的“回调函数”，必须写在某“标准模块”中
Public Sub OpenSDK_MessageHandler(ByVal szSessionId As Long, ByVal iMsgType As Long, _
                           ByVal iErrorCode As Long, ByVal pMessageInfo As Long, _
                           ByVal pUser As Long)
' 参数说明：
' szSessionId  见上面的 pSession ，只是这儿没有“数据长度”数据，可按 SessionId格式，选取一个
'                    “最大长度”的字节数组，用CopyMemory( )把数据拷贝出来，转换成字符串后，
'                    找“vbNullChar”的位置，从那儿截断。
' pUser        VB6中“自己的函数”参数类型不能是 Any 。如果是Long类型的一个值，可以直接使用，
'                    如果是其它类型（包括自定义数据类型），可定义一个相应类型的变量，然后用
'                    CopyMemory( )把pUser指向的数据拷贝到相应的变量中，拷贝长度就是变量数据
'                    类型的字节数。如果是“自定义类型”、并且成员中包含动态数组、字符串类型
'                    的成员，在使用后最好用ZeroMemory() 把这个变量“清空”，还有：对字符串成
'                    员最好不要赋以新值、动态数组不要重定义大小（元素不是字符串时可改变值）。
'                    如果“不需要”，直接忽略这个参数就行了。
'
' 这个函数（回调过程）的其它参数没必要再多说了。
'
End Sub

[赵4老师]

不要做A语言代码修改为B语言代码的无用功。 也不要做用A语言代码直接调用B语言代码库这样复杂、这样容易出错的傻事。 只需让A、B语言代码的输入输出重定向到文本文件，或修改A、B语言代码让其通过文本文件输入输出。 即可很方便地让A、B两种语言之间协调工作。 比如： A将请求数据写到文件a.txt，写完后改名为aa.txt B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，改名为bb.txt A发现bb.txt存在时，读取其内容，读完后删除bb.txt 以上A可以替换为任何一种开发语言或开发环境，B可以替换为任何一种与A不同的开发语言或开发环境。 除非A或B不支持判断文件是否存在、文件读写和文件更名。 但是谁又能举出不支持判断文件是否存在、文件读写和文件更名的开发语言或开发环境呢？ 可以将临时文件放在RamDisk上提高效率减少磨损磁盘。 数据的结构很复杂的话，文本文件的格式问题可参考json或xml 共享临时文本文件这种进程之间的通讯方法相比其它方法的优点有很多，下面仅列出我现在能想到的： ·进程之间松耦合 ·进程可在同一台机器上，也可跨机，跨操作系统，跨硬件平台，甚至跨国。 ·方便调试和监视，只需让第三方或人工查看该临时文本文件即可。 ·方便在线开关服务，只需删除或创建该临时文本文件即可。 ·方便实现分布式和负载均衡。 ·方便队列化提供服务，而且几乎不可能发生队列满的情况（除非硬盘空间满） ·…… “跨语言、跨机，跨操作系统，跨硬件平台，跨国，跨*.*的”苦海无边， 回头是“使用共享纯文本文件进行信息交流”的岸！

[赵4老师]

越恶心的解决方案，没准越灵。 参考《阿波罗13号》

[舉杯邀明月]

那按照你这狗Ｐ逻辑： 操作系统中的dll几乎全是C++开发的，那么众多的计算机语言，都没存在的价值了！只能用C++开发软件？ 这VB6也不能用来开发什么具体的应用了，只能用来搞个“计算器”什么的，做点加减乘除就行了？

[赵4老师]

总有一天，Chen8013会掉到A语言B语言的坑里。