admin 管理员组文章数量: 887021
2024年3月1日发(作者：while的一般格式)
如何用vb实现软件使用时间限制
悬赏分：100 - 解决时间：2006-6-28 18:31
如何用vb实现软件使用时间限制
如以30天为例，如何用vb实现使软件有30天的使用时间限制
要源代码，在线等。
答得好有追加分。
提问者： 爱上燕子的鱼 - 二级
最佳答案
A: 应有的功能:
1) 给定一个试用期限,在系统每次启动时会判断软件已经使用了几天,还有几天可用以及启动的次数.
2) 当系统日期被修改成往日的日期后,系统能自动判别,禁止修改日期,不于正常启动.
3) 当试用期到,显示信息,不于启动程序.B:简单的思路
1) 在系统第一次运行时,在一个隐蔽的地方(如: c:windowssystem)建立一个用以记录系统信息的数据库文件,如,使用一张表date,有三个字段first_time,last_time和times.其中first_time为系统第一次启动时的日期,即试用期的第一天.last_time为系统最近一次启动的时间,而times为记录系统启动的次数.
2) 系统每次启动会检测当前的日期同last_time做比较,如果当前的日期(如00/09/30)比last_time(如00/10/01)还旧,说明系统的日期被推后,显示信息,不于启动系统.反之,则转入第三步.
3) 取出数据库中的first_time,同当前的日期做减法运算,看所的的天数是否在使用期限内.如果在,则转入第四步,否则显示信息,不于启动系统.
4) 修改数据库的last_time字段为当前的日期,显示系统已经使用的情况,正常启动系统.
好了,罗罗嗦嗦讲了一大统,我想,大家一定都明白了,怎么样,我说不难吧,根本不用修改系统的注册表.只要大家把藏好了,不被发现就万事大吉了.而且你可以给这个数据库加上密码,然后把first_time,last_time,times的字段名改个面目全非,就算有高手发现了数据库,破解了密码,他也不知道这三个字段的含义和这个数据库是那个软件所带的文件,呵呵,不说了,还是看看我的源码吧:
在您的工程中,请以SUB MAIN()启动程序.(什么,怎么设置,呵呵,"工程"==>"工程属性"==>"启动窗体")
Sub main()
On Error GoTo error
'系统检测是否有文件,如果没有,则是系统第一次启动,则建立之
If Dir("c:") = "" Then
'注意在开始,您要确定您的工程引用了Microsoft dao 2.5/3.5 compatibility library 在"工程"==>"引用"中.
Dim WS As Workspace
Dim DB As Database
Dim TD As Tabledef
Dim FLD As Field
Dim IDX As Index
Dim rd As Recordset
Set WS = aces(0)
Set DB = Database("c:", dbLangGeneral)
t = ";pwd=andy"
Set TD = TableDef("date")
utes = 0
t = ""
TableName = ""
tionRule = ""
tionText = ""
' Field first_time
Set FLD = Field("first_time", 8, 8)
utes = 1
tValue = ""
lPosition = 0
ed = False
tionRule = ""
tionText = ""
FLD
' Field last_time
Set FLD = Field("last_time", 8, 8)
utes = 1
tValue = ""
lPosition = 1
ed = False
tionRule = ""
tionText = ""
FLD
' Field times
Set FLD = Field("times", 3, 2)
utes = 1
tValue = ""
lPosition = 2
ed = False
tionRule = ""
tionText = ""
FLD
TD
Set DB = tabase("c:")
Set rd = cordset("date")
With rd
.AddNew
.Fields("first_time") = Date
.Fields("last_time") = Date
.Fields("times") = 1
.Update
End With
MsgBox "这是您第一次启动本系统!您的试用期为30天,今天是第一天.谢谢使用!", 48, "天华电脑艺术创意工作室"
'效果如图1 (见附件1)
'启动您的主窗体
Else '系统有文件,则不是第一次运行,就不用建立数据库文件了.
Dim WS2 As Workspace
Dim DB2 As Database
Dim rd2 As Recordset
Set WS2 = Workspaces(0)
Set DB2 = tabase("c:", pwd = "springlover")
Set rd2 = cordset("date")
'开始检测用户是否修改了系统日期
rst
If ("last_time") > Date Then
MsgBox "对不起,您在本软件的试用期内不可以修改系统日期,否则将取消您对不系统的试用权.如果您想继续使用本软件,请您恢复系统日期.谢谢合作!", 48, "天华电脑艺术创意工作室"
'效果如图3 (见附件3)
End
End If
'开始检测是否超期
If Date - ("first_time") >= 30 Then '设定试用期为30天
MsgBox "您已经启动本系统" & ("times") & "次了,而且已经到了30天的试用期,如果您想继续使用本软件,请您到本公司注册并购买正版的软件!", 48, "天华电脑艺术创意工作室"
'效果如图4 (见附件4)
End
Else
'仍在试用期内
num％ = ("times")
("last_time") = Date
("times") = num + 1
MsgBox "这是您第" & ("times") & "次使用本系统,您还有" & 30 - (Date -
("first_time")) & "天的试用期,祝您今天工作愉快!", 48, "天华电脑艺术创意工作室"
'
'启动您的主窗体
End If
End If
Exit Sub
error:
MsgBox "系统错误!"
End Sub
4
回答者： neuteam - 二级 2006-6-27 15:50
版权声明：本文标题：如何用vb实现软件使用时间限制 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1709247653h541291.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论