UC知道VB制作需要注册的软件
来源：百度知道 编辑：UC知道 时间：2024/06/09 01:21:52
次数限制（如30次）如下：
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "times", 0)
If RemainDay = 30 Then
MsgBox "试用次数已满，请注册"
Unload Me
End If
MsgBox "现在剩下：" & 30 - RemainDay & "试用次数，好好珍惜！"
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub
比如我的注册码是43657-46532-25552-33346
3这样就能做没注册前的,要怎么做消除他?我的意思是注册他..
我要的是代码.
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "times", 0)
If RemainDay = 30 Then
MsgBox "试用次数已满，请注册"
Unload Me
End If
MsgBox "现在剩下：" & 30 - RemainDay & "试用次数，好好珍惜！"
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub
比如我的注册码是43657-46532-25552-33346
3这样就能做没注册前的,要怎么做消除他?我的意思是注册他..
我要的是代码.
首先程序在启动的时候不要先获取还剩有多少天需要注册
而是先检测是否已经注册！
不管你是把注册码放进注册表还是利用注册文件
如果已经注册，读出注册码并验证是否正确
如果未注册，再获取还有多少天需要注册
这样就解决问题了。
function 验证(Byval key as String)As Boolean
验证传入的码
if 通过 then
验证 = true
else
验证 = false
endif
End Function
Private Sub Form_Load()
Dim RemainDay As Long
if 验证(注册表中另一键值 key) <> truethen
RemainDay = GetSetting("MyApp", "set", "times", 0)
If RemainDay = 30 Then
MsgBox "试用次数已满，请注册"
Unload Me
End If
MsgBox "现在剩下：" & 30 - RemainDay & "试用次数，好好珍惜！"
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
end
End Sub