UC知道看段关于注册的VB程序。如何得到注册码?
来源：百度知道 编辑：UC知道 时间：2024/07/03 04:50:39
Public Sub 注册()
n = MsgBox("是否注册?", 4 + 32, "提示")
If n = 6 Then
aaa: num = InputBox("请输入注册码:", "提示")
If Mid(num, 4, 1) <> 2 Then q = -1
If Val(Mid(num, 2, 2)) > Day(Now()) + Month(Now()) + 10 Then q = -1
If Val(Right(num, 2)) < Day(Now()) + 49 Then q = -1
For i = 1 To 9
s = s + Val(Mid(num, i, 1))
Next
If Right(s, 1) <> 1 Then q = -1
If q = 0 Then
Sheets("属性").Cells(7, 2) = num
SaveSetting "S111.net", "Xiaomishu", "Zhucema", num
Sheets("属性").Cells(8, 2) = Val(Mid(num, 4, 1)) + Val(Mid(num, 5, 1)) + Val(Mid(num, 6, 1))
MsgBox "注册成功！", 0 + 64, "提示"
Exit Sub
Else:
MsgBox "注册码不正确！"
n = MsgBox("是否注册?", 4 + 32, "提示")
If n = 6 Then
aaa: num = InputBox("请输入注册码:", "提示")
If Mid(num, 4, 1) <> 2 Then q = -1
If Val(Mid(num, 2, 2)) > Day(Now()) + Month(Now()) + 10 Then q = -1
If Val(Right(num, 2)) < Day(Now()) + 49 Then q = -1
For i = 1 To 9
s = s + Val(Mid(num, i, 1))
Next
If Right(s, 1) <> 1 Then q = -1
If q = 0 Then
Sheets("属性").Cells(7, 2) = num
SaveSetting "S111.net", "Xiaomishu", "Zhucema", num
Sheets("属性").Cells(8, 2) = Val(Mid(num, 4, 1)) + Val(Mid(num, 5, 1)) + Val(Mid(num, 6, 1))
MsgBox "注册成功！", 0 + 64, "提示"
Exit Sub
Else:
MsgBox "注册码不正确！"
注册码有这么几个条件：
1、第四位必须是2
2、第二、三位组成的数字必须小于等于今天的月份和日期的和
3、最后两位组成的数字必须大于等于今天的日期与49的和
4、注册码至少有9位，并且前九位的数字加起来和的最后一位必须为“1”
以今天10月21日为例，一个可行的注册码为：
831200070