vb如何限制自己生成的EXE的使用有效期？

来源：百度知道编辑：UC知道时间：2024/05/29 04:35:09

我想写一段代码，要求如下：
每次运行程序时会用设定好的日期与系统日期对比，如果一旦检测到系统的日期超过程序已经设定好的日期就提示使用期限失效。程序立即终止！
不论系统设定日期的格式如何！

只是在客户端设置的话，根本起不了什么作用，人家把系统时间修改后就可以用了，这个你没有办法去控制，除非读取网络服务器上的时间，这样就可以控制了。

可行
但是有漏洞

在form_load中加入日期判断即可，如果超过设定日期那么就直接unload me退出程序
不过，别人可以修改系统时间，譬如我改成2008-10-13，那我是不是可以多用一年呢？

Private Sub Form_Load()
Dim d As Date
d = "2009/10/13 10:00:00"
If Now > d Then MsgBox "超过"
End Sub