<<< 返回 access911.net 编程静态资料库索引页

如何写注册表限次?如何做到限制使用要注册后才能正常使用?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2002-12-20  浏览人次:3635


专题地址:http://access911.net/fixhtm/71FAB51E10DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:《函数》如何写注册表限次?

 


问题:

如何写注册表限次?
如何通过写注册表限制数据库使用时间?比如到某年某月某日过期。
如何做到限制使用要注册后才能正常使用?

 

回答:

在模块中加入如下代码,然后再启动时用名字为Autoexec的宏执行一个操作名为 RunCode 操作来启动。
当然,你也可以在第一个启动的窗体的 OPEN 事件中调用。启动窗体在 菜单 -> 工具 -> 启动 中设置。
'其实本例非常简单,你只要弄懂 SaveSetting和GetSetting即可
'本例会修改注册表。

Option Compare Database
Option Explicit
Dim HowMany As String
Dim addTimes As Integer


Sub Times()
    '初始注册表,在注册表写入键值
    SaveSetting "HerdsboyTimeLimit", "Settings", "Times", "1"

    '把这句改为写入时间,以后通过datediff比对now
    '与第一次写入的时间就可以达到限制时间的目的
    MsgBox "欢迎第1次程序使用本程序!", , "通用限次程序"
End Sub

Sub Changetimes(.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB51E10DC.htm

 


上一篇:新手来看:在报表中不显示重复的内容

下一篇:如何用 Sendkeys 发送 “+” ?

2017年2月22日生成静态资料