[求助]自己编的程序,如何实现时限功能? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自己编的程序,如何实现时限功能?

共有4062人关注过本帖树形打印复制链接主题：[求助]自己编的程序,如何实现时限功能?

Bin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/11/30 10:46:00 [显示全部帖子]

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/11/30 11:29:00 [显示全部帖子]

把初始使用时间保存到注册表中去http://www.foxtable.com/help/topics/2051.htm

然后每次打开获取网络时间和初始时间对比,超过半年就不允许打开.自动关闭程序

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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

这里暂且用DATE.today来替代网络时间,实际运行你用前面给你发的网络时间替代.

[此贴子已经被作者于2013-11-30 12:00:29编辑过]

主题：[求助]自己编的程序,如何实现时限功能?