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


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

主题:关于注册问题

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


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/8/29 17:23:00 [只看该作者]

不好意思还是不明白,每次登陆程序后累加的值在注册表中能找到,存到项目文件中怎么找不到呀?注册成功后注册码存放到哪里了?在哪能找到呢?

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


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

以下是引用peibaomin在2017/8/29 17:23:00的发言:
不好意思还是不明白,每次登陆程序后累加的值在注册表中能找到,存到项目文件中怎么找不到呀?注册成功后注册码存放到哪里了?在哪能找到呢?

 

存放在项目里面一个隐蔽的地方,你无法找到。


 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2019/3/13 0:08:00 [只看该作者]

Dim n As Integer = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Count",0)
Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID AndAlso Tables("注册用户信息表").Current IsNot Nothing Then '如果注册码正确
    StatusBar.DefaultMessage ="POS机进销存管理系统 2.0    " & Tables("注册用户信息表").Current("公司名称")
    OK = True
Else
    If n >=20 AndAlso  n < 30  Then
        Forms("系统注册窗体").Open()
        Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
        If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then '如果注册码正确
            StatusBar.DefaultMessage ="POS机进销存管理系统 2.0    " & Tables("注册用户信息表").Current("公司名称")
            OK = True
        End If
    ElseIf n >= 30 AndAlso Ok = False Then
        Dim Result As DialogResult
        Result = MessageBox.Show("您使用的软件已经超过使用次数,需要注册才能使用,是否注册?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Forms("系统注册窗体").Open()
            Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
            If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID AndAlso Tables("注册用户信息表").Current IsNot Nothing Then '如果注册码正确
                StatusBar.DefaultMessage ="POS机进销存管理系统 2.0    " & Tables("注册用户信息表").Current("公司名称")
                OK = True
            Else
                Return
            End If
        Else
            System.Diagnostics.Process.GetCurrentProcess().Kill
        End If
    End If
    StatusBar.DefaultMessage ="POS机进销存管理系统 2.0     " & "              试用版"
End If
Registry.SetValue("HKEY_CURRENT_USER\Software\MyAPP","Count",)

麻烦看看拿错了n 值到21就不加了


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


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

这个代码,现在前面去

 

Registry.SetValue("HKEY_CURRENT_USER\Software\MyAPP","Count", n+1)

 


 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2019/3/13 9:19:00 [只看该作者]

我是每个条件内都加入了此代码,后来实现了

 回到顶部
总数 25 上一页 1 2 3