如何对系统中已安装的软件进行时间限制？

Question

如标题！
谢谢

Answer 1

看看这段代码是否可用:
'时间限制的（如３０天）
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "day", 0)
If RemainDay = 30 Then
  MsgBox "试用期已过，请注册"
  Unload Me
End If
MsgBox "现在剩下：" & 30 - RemainDay & "试用天数，好好珍惜！"
if day(now)-remainday>0 then RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub 

Answer 2

2L的方法首先肯定一下是可以实施的，但现在的软件一般都不这么做因为这么做太容易破了
我开发的软件采用与GOOGLE在线时间对比的技术，文件一旦被安装则在服务器端产生一个
唯一的ID及对应的时间，软件启动得到ID号发送信息给服务器服务器开始对比时间，过期就OVER了
本地软件：）！
不过这样做的话，一定需要能上外网！是不是固定IP这无所谓

Answer 3

RemainDay = RemainDay + 1,这个在什么条件下执行是个问题。是一开机就执行，还是运行程序就执行，要是没有开机呢，没有运行程序呢，那过去的天数算不算，当然也要算。所以4楼说的有道理！ 

Answer 4

1）把自己的程序写入启动项那边，所有运行的程序都经过你的程序来检验。2）当检验到之前没有运行过的程序，你就自己做一个记录，并且重新记录期限。3）如果之前已经有案底的程序，那就比较日期是否还在运行期限内？4）检验程序的方法可以按照视窗的标题，或者进程来检验。5）安全的做法就是取消TaskManager，防止用户来关闭你的检验程序。