Foxtable(狐表)用户栏目专家坐堂 → 关于注册问题


  共有2520人关注过本帖平板打印复制链接

主题:关于注册问题

帅哥哟,离线,有人找我吗?
lgz518
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1152 积分:7712 威望:0 精华:0 注册:2019/6/13 9:57:00
关于注册问题  发帖心情 Post By:2020/5/8 14:50:00 [只看该作者]

4、最后将项目的AfterOpenProject事件设为:

Dim n As Integer = GetConfigValue("Count",1)
Dim
 Code As String = GetConfigValue("Register" & ComputerId,"")
Dim
 Ok As Boolean
If
 Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
    OK = 
True
Else
    If
 n > 30 Then
        Forms(
"注册").Open()
        Code = GetConfigValue(
"Register" & ComputerId,"")
        If
 Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
            OK = 
True
        End
 If
    End
 If
    If
 n > 60 AndAlso Ok = False Then
        Messagebox.Show(
"您正在使用的产品已经超出试用次数!")
        Syscmd.Project.
Exit()
    End
 If
End
 If
n = n + 
1
SaveConfigValue(
"Count",n)



问题:下面"abc","abc"是可以,是否有长度要求,是只有三个字符?最长多少字节?是否只能写字母,还是可以字母大小写和数字,中文一起混合?


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

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



 回到顶部