[分享]：使用VL调用VB编写的AcitveX DLL

王咣生

太好了,找了好久了@

bridgewind

请楼主公布一下dll的源码，如何？

王咣生

用VB建立ActiveX DLL类型的工程就可以了,再加入一个类模块,添加前面的代码(不需要其它的了),
编译成dll,就可以在VL下使用了!

tcsl9621

太好了，谢谢！正找着。

不过如果参数中有一个是传递值的。那该如何做才对。CAD中老是报错。

'获取GUID
    For i = 0 To 16
        szGUID(i) = 0
    Next i
   
    result = AppAPI.DAM3GetGUID(nKeyHandle, szGUID(0))
    If result = 0 Then
        i = 0
        Do While i < 16
            sStr = sStr + Chr(szGUID(i))
        i = i + 1
    Loop
        lMessage.AddItem "获取加密锁GUID成功 GUID：" + sStr
    Else
        lMessage.AddItem "获取加密锁GUID失败 错误码：" + Str(AppAPI.DAM3GetLastError)
        Exit Sub
    End If
    sStr = ""

我想在CAD调用AppAPI.DAM3GetGUID。并要取得szGUID值。
请高手指点。

mjtd_7777

z真是高手如云

xyz518mm

真是利害的程序
来去用看看吧