设计自己的注册系统出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 设计自己的注册系统出错

共有9932人关注过本帖树形打印复制链接主题：设计自己的注册系统出错

pyh6918

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1128 积分：11029 威望：0 精华：2 注册：2008/9/1 10:45:00

设计自己的注册系统出错 发帖心情

Post By：2011/2/10 11:14:00 [只看该作者]

Dim c As Row = Tables("保存").Current
Dim code As String= c("注册码")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
    Messagebox.Show("注册成功!")
    c("注册标识")="y"
    Forms("注册").Close()
Else
    Messagebox.Show("注册码不正确!")
    c("注册标识")="n"
End If

用 Output.Show(EncryptText("用户提供的机器码","pln","jjxx")) 生成的注册码，按理说应该提示“注册码不正确”，实际出现了一个系统错误提示：

dvubb 此主题相关图片如下：zc.png