- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]试用30天后就打不开系统 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49224)
-- 发布时间：2014/4/14 16:36:00
-- [求助]试用30天后就打不开系统
想做一个系统，30天试用后打不开，怎么设置呢？谢谢~
-- 发布时间：2014/4/14 16:40:00
--
还是按次数靠谱,按日期,如果获取系统时间别人更改系统时间就无限试用了,获取网络时间,启动速度慢并且无法断网使用
-- 发布时间：2014/4/15 10:29:00
--
嗯，我想简单些就可以了，我在beforeopenproject中写了（超过2月15日就打不开系统）
Dim d As Date
If d.Year > "2014" Then
Messagebox.Show("您正在使用的产品已经超出试用天数!")
Syscmd.Project.Exit()
End If
If d.Year = "2014" And d.month > "2" And d.day > "15" Then
Messagebox.Show("您正在使用的产品已经超出试用天数!")
Syscmd.Project.Exit()
End If
可是项目还是可以打开的，哪个地方还欠妥？
-- 发布时间：2014/4/15 10:31:00
--
你D都没值
Dim d As Date=Date.today
-- 发布时间：2014/4/15 10:33:00
--
d 是空值。
-- 发布时间：2014/4/15 10:35:00
--
嗯，忘赋值了，事情一多，头脑紊乱。
-- 发布时间：2014/4/15 10:46:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:档案管理.rar |
开发者，密码1
试了几次，没有效果。没觉得不对啊。
-- 发布时间：2014/4/15 10:47:00
--
Dim d As Date=date.today
If d> #2014/02/15# Then
Messagebox.Show("您正在使用的产品已经超出试用天数!")
Syscmd.Project.Exit()
End If