Question

VB以序列号方式激活成功后，第二次运行不再提示激活怎么做？

我自己用VB做了个软件，供客户用，现在需要以序列号方式激活！请问怎样做才能在激活成功后，第二次运行不再提示激活？
我现在已经做好以硬盘序号方式计算激活码，但是不知道怎么做可以激活成功后第二次以后运行就不需要激活，除非重装系统。
求解答，100财富值奉上。

Answer 1

将序列号保存到ini文件中，每次运行都检查，没有序列号则提示激活。如果想重装系统要激活，保存到系统盘中，隐秘点就是

追问

我想做以注册表方式的，你会弄吗？

追答

保存
SaveSetting "MyApp","Startup", "a", a
取出
a=GetSetting("MyApp", "Startup", "a")
不知道是不是，

追问

辛苦了，虽然不知道是不是，但是不是注册表方式始终不方便，我做的软件是单一EXE的，最好不要有任何附属文件或DLL控件。

追答

我试了下可以

追问

myapp startup a 分别填什么？

追答

保存位置是HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyApp
这三个随便你填什么，a是序列号

追问

怎样的话肯定第一次运行的时候，注册表是没有这个文件的。
那如果VB发现没有这个文件，则跳过这个操作进入激活界面，怎么做？
我现在弄的结果是，第一次运行时，提示找不到该注册表，然后报错。

追答

读取时找不到返回的应该是“”吧，返回空时我这里没有报错，你用if处理下不就行了。if GetSetting("MyApp", "Startup", "a")=“” then t调用激活语句的代码

追问

你这是返回那个注册表为空时的条件语句。

但是若这个注册表整个路径都不存在的时候怎么搞呢？

追答

On Error Resume Next
在读取前面加上这句，错误后继续运行，linkname就等于默认值“”，你再加以判断

Answer 2

第一次激活后，把序列号储存到文件，注册表，数据库，或网络中，当然要加密。下次运行的时候，再到这些地方取出序列号，解密后检测是否正确(也就是把激活的动作再做一次，但不提示)，正确就继续运行，错误就说明系统被重装了，要求用户重新激活

Answer 3

新手的想法：

　　直接把激活码之类的放在程序目录下的一个文本文件中，如果不放心，可以在存取激活码的时候做加密解密，每次运行都检查硬盘进行计算，比较激活码是否正确。这样就不用写注册表了，即使重新安装都不需要再激活，既方便，又安全，也减少了对注册表的操作，减少对客户系统的影响。
　　供参考。

追问

思路我明白，但是不知道怎么做。

追答

参考下面这些，看有没有帮助。VB 6.0的代码。

Public yjh As Boolean
Public xlhS As String

Private Sub Form_Initialize()
Dim jhmS As String
jhmS = ""
yjh = False
xlhS =jsxlh '你的计算序列号方式过程
yjh = yjjh '判断是否已经激活
While yjh = False ‘未激活时要求输入激活码
jhmS = InputBox("序列号是" & xlhS & "请输入激活码:", "请激活后使用")
If jhmS "" Then
If jhmS = jsjhM(xlhS) Then
yjh = True
Open App.Path & "\bcjhxx" For Output As #1 '正确激活后，保存激活信息
Write #1, jhmS
Close #1
End If
Else
End '不输入任何信息时退出
End If
Wend
End Sub

下面的函数通过读取文件信息，判断是否已经激活
Private Function yjjh() As Boolean
Dim yjjhm As String
If Dir(App.Path & "\bcjhxx") "" Then
Open App.Path & "\bcjhxx" For Input As #1
If LOF(1) > 0 Then
Line Input #1, yjjhm
Close #1
Else
yjjh = False
Close #1
End If
yjjhm = Mid(yjjhm, 2, Len(yjjhm) - 2) '去掉写入文件时，激活码 两端加上的引号
If yjjhm = jsjhM(xlhS) Then
yjjh = True
End If
Else
yjjh = False
End If
End Function

下面的函数是你自己设定的计算激活码的方式，由此判断是否可以正确激活
Private Function jsjhM(XLH As String) As String

End Function

下面的函数是你自己设定的计算序列号的方式，由此计算得出序列号
Private Function jsxlh() As String

End Function

Answer 4

我做过把程序文件运行后获取运行商硬盘序列号，由运行商发给序列号，你再做一个激活码生成程序计算一个此序列号的激活码，再这个激活码去激活运行商的程序，这样一机一个激活码，很管用，而且简单

追问

问题是，第二次运行这个软件，怎样做才能不显示注册框直接进入主界面？

追答

我的思路是第一次注册成功后生成一个文件放在C:\WINDOWS\system32比如X.reg,因为注册表容易被找到，程序第二次运行时读取文件内容再反计算硬盘序列号是否与运行机的硬盘序列号相同，相同通过，否则出现重新注册。

Answer 5

参考这段程序，看看有没有帮助。VB 6.0的代码。

 

　　直接把激活码之类的放在程序目录下的一个文本文件中，如果不放心，可以在存取激活码的时候做加密解密，每次运行都检查硬盘进行计算，比较激活码是否正确。这样就不用写注册表了，即使重新安装都不需要再激活，既方便，又安全，也减少了对注册表的操作，减少对客户系统的影响。
　　供参考。

追问

试了下，感觉不太好，谢谢你。