Vb6免注册调用dm.dll

最新推荐文章于 2024-07-01 14:10:07 发布

最亮的心

最新推荐文章于 2024-07-01 14:10:07 发布

阅读量3.2k

点赞数 1

分类专栏： dm-dll vb6 文章标签： vb6.0 dm-dll

本文链接：https://blog.csdn.net/cs840610862/article/details/78387449

版权

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

2 篇文章 0 订阅

订阅专栏

vb6

2 篇文章 0 订阅

订阅专栏

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