Vb6免注册调用dm.dll

最新推荐文章于 2026-05-11 10:56:20 发布

原创最新推荐文章于 2026-05-11 10:56:20 发布 · 3.4k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#vb6.0 #dm-dll

收录于

dm-dll 同时被 2 个专栏收录

2 篇文章

订阅专栏

vb6

2 篇文章

订阅专栏

本文提供了一个使用VBA进行DLL注册的示例代码。通过调用特定的API函数SetDllPathA，该代码能够在VBA环境中加载并注册指定路径下的dm.dll文件。注册过程涉及创建dmsoft对象并调用其reg方法，最终通过消息框显示注册结果。

Private Declare Function SetDllPathA Lib "DmReg.dll" (ByVal path As String, ByVal mode As Long) As Long

Public Sub regDm()
Call SetDllPathA("dm.dll", 0)
Dim dm As Object
Dim reg
Set dm = CreateObject("dm.dmsoft")
reg = dm.reg("cs840610862d15d7c738767d51b3b23a0917d5fb7f8", "K9HyXeY")
If reg = 1 Then
MsgBox "注册成功"
Else
MsgBox "注册失败"
End If
End Sub

Private Sub Command1_Click()
Call regDm
End Sub
End Sub