| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]自己编的程序,如何实现时限功能? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43137) |
| -- 作者：czgtiger -- 发布时间：2013/11/30 10:42:00 -- [求助]自己编的程序,如何实现时限功能? 自己编的小程,如何像FOXTAB LE那样,试用半年后,程序停止运行呢? |
| -- 作者：Bin -- 发布时间：2013/11/30 10:46:00 -- 获取网络时间判断吧.http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=27052&skin=0 |
| -- 作者：czgtiger -- 发布时间：2013/11/30 11:27:00 -- 获取网络时间后,如何处理呢?是定义一个变量,取到当前的网络时间,通过时间计算,比较,然后关闭程序吗?请给出思路或大体代码参考一下,不胜感激 |
| -- 作者：Bin -- 发布时间：2013/11/30 11:29:00 -- 把初始使用时间保存到注册表中去http://www.foxtable.com/help/topics/2051.htm 然后每次打开获取网络时间和初始时间对比,超过半年就不允许打开.自动关闭程序
|
| -- 作者：czgtiger -- 发布时间：2013/11/30 11:50:00 -- 思路是明白了,具体操作还是茫然,以前没有接触过,只能一点一点的学,能否编一段小代码呢?知道BIN总比较忙,恳请抽一点时间解疑 |
| -- 作者：Bin -- 发布时间：2013/11/30 12:00:00 -- 获取时间的代码已经给你发了例子了 dim s as string = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyApp","Date","0001-01-01") if s="0001-01-01" then Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyApp","Date",date.today) else dim d as date = s if (date.today-d).Totaldays>180 then Syscmd.Project.Exit(False) end if end if
这里暂且用DATE.today来替代网络时间,实际运行你用前面给你发的网络时间替代. [此贴子已经被作者于2013-11-30 12:00:29编辑过]
|
| -- 作者：czgtiger -- 发布时间：2013/11/30 12:02:00 -- 非常感谢,买FOXTABLE一点也不亏,有人指导,比自己瞎捉摸要快多了 |