给软件限制一个使用的时间段会的朋友帮下小弟谢谢

Themoder · 发表于 2013-5-22 19:43:10

神亿发表于 2013-5-22 19:38
助人为乐啊做大好人啊

等下哈，我现在有点事

神亿 · 发表于 2013-5-22 19:43:48

我爱机车战发表于 2013-5-22 19:43
等下哈，我现在有点事

好的感谢您

默默` · 发表于 2013-5-22 21:19:05

例子本地时间。.zip (1.11 KB, 下载次数: 12)

神亿 · 发表于 2013-5-22 21:37:50

三个傻瓜发表于 2013-5-22 21:19

这样肯定不行的

默默` · 发表于 2013-5-22 21:41:22

神亿发表于 2013-5-22 21:37
这样肯定不行的

LZ自己改成取网络时间吧，我睡觉了。

ziyue100 · 发表于 2013-5-22 22:02:56

.版本 2

.程序集窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量现在时间, 日期时间型

现在时间＝取现行时间 ()
.如果真 (现在时间＞ [2013年10月11日10时10分10秒])
结束 ()
.如果真结束
如果真结束

YJF · 发表于 2013-5-23 00:48:04

[e]
.版本 2

.程序集窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量时间, 整数型

时间＝取小时 (取现行时间 ()) ' 取当前日期并取出小时
.如果真 (时间＞ 6 且时间＜ 22)
信息框 (“你好，软件只能在此22:00至早上06:00 时间段使用”, 0, )
结束 ()
.如果真结束
信息框 (“恭喜你，你你已打开软件，此软件只允许在22：00至06：00时间段内使用”, 0, )

' 有个弊端就是，用户可以通过修改自身系统时间来达到软件使用目的。解决方法，可以取网页北京时间格式再进行以上这种判断就行了。不作举例。
' 如果你自己会网页代码，可以做一个页面那个页面就是动态的取出当前网页服务器上的系统时间。
' 然后你自己将那个时间日期取出来，重复用“取小时”这个命令来执行就可以了。
[/e]
今天正好学到这节VIP课程。给你弄了。本人也是新手，正在基础班。

小生怕怕啊 · 发表于 2013-5-23 02:28:47

[e]
.版本 2
.支持库 eAPI
.支持库 internet

.程序集窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 Time, 日期时间型

.判断开始 (是否与互联网连接 ())
Time ＝ GetNetTime ()
.默认
Time ＝取现行时间 ()
.判断结束
.判断开始 (取小时 (Time) ＞ 22 且取小时 (Time) ＜ 6)
信息框 (“正常使用时间段!”, 0, )
.默认
信息框 (“禁止使用时间段!”, 0, )
结束 ()
.判断结束

.子程序 GetNetTime, 日期时间型
.局部变量 Pos, 整数型, , "2"
.局部变量 Result, 文本型

Result ＝到文本 (HTTP读文件 (“http://open.baidu.com/special/time/”))
Pos [1] ＝寻找文本 (Result, “window.baidu_time(”, , 假)
Pos [1] ＝ Pos [1] ＋ 18
Pos [2] ＝寻找文本 (Result, “)”, Pos [1], 假)
Result ＝取文本中间 (Result, Pos [1], Pos [2] － Pos [1])
Result ＝取文本左边 (Result, 10)
返回 (增减时间 ([1970年1月1日8时], 8, 到数值 (Result)))

[/e]