3个回答
展开全部
给你源码,窗口里加个时钟就行了,下面的完全复制到程序集里,有用就给分吧
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 1000
时间判断 () ' 用于时间型判断
.子程序 时间判断
.局部变量 软件时间, 整数型
.局部变量 现在时间, 整数型
.局部变量 月份整理, 文本型
.局部变量 日期整理, 文本型
.局部变量 小时, 文本型
.局部变量 分钟, 文本型
软件时间 = 201011041838 ' 软件使用到期日期
.如果 (取月份 (取现行时间 ()) < 10)
月份整理 = “0” + 到文本 (取月份 (取现行时间 ()))
.否则
月份整理 = 到文本 (取月份 (取现行时间 ()))
.如果结束
.如果 (取日 (取现行时间 ()) < 10)
日期整理 = “0” + 到文本 (取日 (取现行时间 ()))
.否则
日期整理 = 到文本 (取日 (取现行时间 ()))
.如果结束
.如果 (取小时 (取现行时间 ()) < 10)
小时 = “0” + 到文本 (取小时 (取现行时间 ()))
.否则
小时 = 到文本 (取小时 (取现行时间 ()))
.如果结束
.如果 (取分钟 (取现行时间 ()) < 10)
分钟 = “0” + 到文本 (取分钟 (取现行时间 ()))
.否则
分钟 = 到文本 (取分钟 (取现行时间 ()))
.如果结束
现在时间 = 到数值 (到文本 (取年份 (取现行时间 ())) + 月份整理 + 日期整理 + 小时 + 分钟)
调试输出 (现在时间)
.如果 (现在时间 < 软件时间)
_启动窗口.标题 = “软件正常使用中”
.否则
信息框 (“软件过期”, 0, “提示”) ' _启动窗口.标题 = “软件已过期”
销毁 ()
.如果结束
.子程序 _时钟1_周期事件
标签1.标题 = 到文本 (取现行时间 ())
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 1000
时间判断 () ' 用于时间型判断
.子程序 时间判断
.局部变量 软件时间, 整数型
.局部变量 现在时间, 整数型
.局部变量 月份整理, 文本型
.局部变量 日期整理, 文本型
.局部变量 小时, 文本型
.局部变量 分钟, 文本型
软件时间 = 201011041838 ' 软件使用到期日期
.如果 (取月份 (取现行时间 ()) < 10)
月份整理 = “0” + 到文本 (取月份 (取现行时间 ()))
.否则
月份整理 = 到文本 (取月份 (取现行时间 ()))
.如果结束
.如果 (取日 (取现行时间 ()) < 10)
日期整理 = “0” + 到文本 (取日 (取现行时间 ()))
.否则
日期整理 = 到文本 (取日 (取现行时间 ()))
.如果结束
.如果 (取小时 (取现行时间 ()) < 10)
小时 = “0” + 到文本 (取小时 (取现行时间 ()))
.否则
小时 = 到文本 (取小时 (取现行时间 ()))
.如果结束
.如果 (取分钟 (取现行时间 ()) < 10)
分钟 = “0” + 到文本 (取分钟 (取现行时间 ()))
.否则
分钟 = 到文本 (取分钟 (取现行时间 ()))
.如果结束
现在时间 = 到数值 (到文本 (取年份 (取现行时间 ())) + 月份整理 + 日期整理 + 小时 + 分钟)
调试输出 (现在时间)
.如果 (现在时间 < 软件时间)
_启动窗口.标题 = “软件正常使用中”
.否则
信息框 (“软件过期”, 0, “提示”) ' _启动窗口.标题 = “软件已过期”
销毁 ()
.如果结束
.子程序 _时钟1_周期事件
标签1.标题 = 到文本 (取现行时间 ())
展开全部
给你个思路,没有分,怎么花时间给你写源码,取现行时间,和软件用的时间做对比
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在软件第一次运行的时侯可以记录时间并写入注册表。以后每次运行的时候就用这个时间来跟现行时间对比!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询