代码测试 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码测试

共有1835人关注过本帖树形打印复制链接主题：代码测试

大红袍

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

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/14 16:57:00 [显示全部帖子]

If n > 20 AndAlso Ok = False Then

Messagebox.Show("您正在使用的产品未注册,请注册后使用!")

Forms("注册表").Open()

Code = GetConfigValue("Register" & ComputerId,"")

If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确

OK = True

End If

MessageBox.Show(3)

If Ok = False Then

Syscmd.Project.Exit()

End If

大红袍

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

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/14 17:13:00 [显示全部帖子]

你这个注册窗口肯定不是模式窗口，要弄成模式的

大红袍

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

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/14 17:37:00 [显示全部帖子]

不可能，如果注册码正确，肯定提示的是1。

你注册窗口肯定没有把注册码保存起来啊

主题：代码测试