你自己编写一段代码就行!具体流程如下: 1.编写程序在form_load里,让其在第一次运行时在目录下创建个文件并把当前日期输入进去,以后还可以检测此文件,有,说明不是第一次用,没有,说明是第一次用(东方快车98就是这样). 2.以后启动此程序便可通过此文件中纪录的日期与程序运行时的日期做对比,得出软件使用的天数. 3.使用天数>30便提示用户并自动关闭,使用天数<=30便照常运行 1. on error goto fristuse open "blow_jj.blo" as input as #1 input #1,date close #1 goto ok fristuse: open "blow_jj.blo" as output as #1 print #1,date close #1 ok: 在此比较纪录的日期与程序运行时的日期在此设置 使用天数>30便提示用户并自动关闭 使用天数<=30便照常运行 (自己便吧,很容易的) 如果你觉得这样不安全就写注册表吧!原理都一样.
1.编写程序在form_load里,让其在第一次运行时在目录下创建个文件并把当前日期输入进去,以后还可以检测此文件,有,说明不是第一次用,没有,说明是第一次用(东方快车98就是这样).
2.以后启动此程序便可通过此文件中纪录的日期与程序运行时的日期做对比,得出软件使用的天数.
3.使用天数>30便提示用户并自动关闭,使用天数<=30便照常运行
1.
on error goto fristuse
open "blow_jj.blo" as input as #1
input #1,date
close #1
goto ok
fristuse:
open "blow_jj.blo" as output as #1
print #1,date
close #1
ok:
在此比较纪录的日期与程序运行时的日期在此设置
使用天数>30便提示用户并自动关闭
使用天数<=30便照常运行
(自己便吧,很容易的)
如果你觉得这样不安全就写注册表吧!原理都一样.