只需提供一个简单而完整的源代码，即可将注册代码添加到vb软件中，然后只需绑定机器代码即可. 非常感谢你！

仅出于完整性考虑，绑定机器代码非常简单:

生成机器码，根据硬盘/网卡，一切正常----------然后我给他注册码---如果未注册，它将不起作用，如果已注册，它将直接运行程序----- OK！

这只是写注册表判断吗？但是，如果只是判断注册表项是正确的注册码vb，则如果注册表项错误注册码vb，它将无法运行. 这似乎很容易破解. 人们只需要将此注册表项复制到计算机即可. 代码不相关吗？

已联系哪个英雄，请帮助发布. 非常感谢你！

------解决方案--------------------

以下是直接比较给定值和计算机上网卡的MAC地址的简单示例.

Option Explicit



Private Function MAC_Match(strRegister) As Boolean



    Dim strComputer As String

    Dim objWMI      As Object

    Dim colIP       As Object

    Dim IP          As Object

    Dim i           As Integer

       

    strComputer = "."

    Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")

    Set colIP = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

    

    For Each IP In colIP

        If Not IsNull(IP.IPAddress) Then

            

        For i = LBound(IP.IPAddress) To UBound(IP.IPAddress)

            If strRegister = Replace(IP.Macaddress(i), ":", "") Then MAC_Match = True

        Next i

        End If

    Next IP

    

End Function



Private Sub Command1_Click()

    MsgBox "registered value " & IIf(MAC_Match("14DAE976BD07"), "matched", "mismatched")

End Sub

例如，您可以加密用户提供的MAC地址，以便在连接长字符串（在Internet上可以找到MD5和SHA-1）之后获得哈希值. 结果就是您提供给用户的注册码. 该值可以保存在注册表或初始化文件中.

当然，在比较功能中，还需要对获取的用户计算机的MAC地址进行相同的加密.

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-248938-1.html