Foxtable(狐表)用户栏目专家坐堂 → 软件注册报错如何修改


  共有2281人关注过本帖树形打印复制链接

主题:软件注册报错如何修改

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


加好友 发短信
等级:三尾狐 帖子:659 积分:5363 威望:0 精华:0 注册:2018/5/19 22:27:00
软件注册报错如何修改  发帖心情 Post By:2018/8/15 8:51:00 [只看该作者]

软件注册时,注册码填写的错误位数后弹出如下框,关键时点击关闭报错框不显示注册窗口。
希望关闭报错框后弹出注册窗口如何修改代码
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180815084900.png
图片点击可在新窗口打开查看

Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean 
If Code > "" AndAlso DecryptText(Code,"yzz","yzz") = ComputerId Then '如果注册码正确
    OK = True
Else
    If n > 30 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"yzz","yzz") = 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)     '用户注册试用次数限制

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/15 9:01:00 [只看该作者]

重写解密函数,在全局代码加入这句代码

 

Public function DecryptText(s As String, m1 As String, m2 As String) As String
try
    Return Foxtable.DecryptText(s,m1,m2)
catch ex As Exception
    Return Nothing
End try
End Function


 回到顶部