这个是注册代码：
If e.Form.Controls("注册码").Text = EncryptText(e.Form.Controls("机器码").Text, "acbd", "cad") Then
Registry.SetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskId, e.Form.Controls("注册码").Value)
MessageBox.show("注册成功,感谢您的使用!")
e.Form.Close()
Else
MessageBox.show("无效的注册码,请重新输入")
End If
如果没有注册，只能添加10行记录，下面代码好像不正确，麻烦老师指导下
Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
If Code > "" AndAlso DecryptText(Code,"acbd","cad") <> HardDiskID Then '如果注册码不正确
If e.DataTable.DataRows.Count > 9 '若DataTable的总行数超过10条
msgbox("试用版只能添加10条记录")
e.Cancel = True
Return
End If
End If
加好友 
发短信
Post By：2019/10/12 20:16:00 [只看该作者]
