以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]注册机制 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141866) |
-- 作者:冷泉 -- 发布时间:2019/10/12 20:16:00 -- [求助]注册机制 这个是注册代码: 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 |
-- 作者:y2287958 -- 发布时间:2019/10/13 7:26:00 -- 试试 If Code = "" OrElse DecryptText(Code,"acbd","cad") <> HardDiskID |
-- 作者:冷泉 -- 发布时间:2019/10/15 18:11:00 -- 还是不行额 |
-- 作者:有点蓝 -- 发布时间:2019/10/15 20:27:00 -- 代码在什么事件的?有没有弹出msgbox提示? msgbox(DecryptText(Code,"acbd","cad") ) msgbox(HardDiskID)
|
-- 作者:冷泉 -- 发布时间:2019/10/15 21:26:00 -- 可以了,我自己弄错了一个代码,谢谢 |