又是问答区写好的源码，主题已关闭。判断程序是否联网，且在指定时间段开放

i织梦

下载看看               

猥琐的小弟弟

洃铯‰感伤 发表于 2014-10-24 22:36
[e=4].版本 2
.支持库 spec
.支持库 internet

卧槽，高大尚啊，利用百度的北京时间，  又学了一招。 哈哈  好牛逼。。

依然是海洋

许你，一世承诺 发表于 2014-10-25 14:21
修改本地时间，你的方法不就破了？

这只是供新手学习的一个写法而已，别认真。

E族x叶玄

好棒的人！

火麟

不错  顶一下      

许你，一世承诺

修改本地时间，你的方法不就破了？

依然是海洋

心若相依 发表于 2014-10-24 22:28
你别老写那么完整          不就可以快些了

不完整他们又看不懂了

洃铯‰感伤

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (通信测试 (“www.baidu.com”, 2000) ＞ 0)
如果真 (判断时间 (取北京时间 (), 9, 23))
调试输出 (“现在是开放时间”)

信息框 (“没联网”, 0, )

子程序名	返回值类型	公开	备 注
取北京时间	日期时间型

变量名	类 型	静态	数组	备 注
局_返回数据	文本型
局_起始位置	整数型
局_结束位置	整数型
局_取出字符	文本型
局_字符长度	整数型

局_返回数据 ＝ 到文本 (HTTP读文件 (“http://open.baidu.com/special/time/”))
局_起始位置 ＝ 寻找文本 (局_返回数据, “window.baidu_time(”, , 假) ＋ 取文本长度 (“window.baidu_time(”)
局_结束位置 ＝ 寻找文本 (局_返回数据, “)”, 局_起始位置, 假)
局_字符长度 ＝ 局_结束位置 － 局_起始位置
局_取出字符 ＝ 取文本中间 (局_返回数据, 局_起始位置, 局_字符长度)
返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_取出字符) ÷ 1000))

子程序名	返回值类型	公开	备 注
判断时间	逻辑型		开放时间返回真，否则返回假
参数名	类 型	参考	可空	数组	备 注
时间	日期时间型
最小时间	整数型				9
最大时间	整数型				21

如果 (时间 ≥ 到时间 (到文本 (取日期 (时间)) ＋ 到文本 (最小时间) ＋ “时”) 且 时间 ≤ 到时间 (到文本 (取日期 (时间)) ＋ 到文本 (最大时间) ＋ “时”))
返回 (真)
返回 (假)

i支持库列表	支持库注释
spec	特殊功能支持库
internet	互联网支持库

.版本 2<br /> .支持库 spec<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果 (通信测试 (“<a href="http://www.baidu.com" rel="nofollow" rel="nofollow" target="_blank">www.baidu.com</a>”, 2000) ＞ 0)<br />     .如果真 (判断时间 (取北京时间 (), 9, 23))<br />         调试输出 (“现在是开放时间”)<br />     .如果真结束<br /> <br /> .否则<br />     信息框 (“没联网”, 0, )<br /> .如果结束<br /> <br /> <br /> .子程序 取北京时间, 日期时间型<br /> .局部变量 局_返回数据, 文本型<br /> .局部变量 局_起始位置, 整数型<br /> .局部变量 局_结束位置, 整数型<br /> .局部变量 局_取出字符, 文本型<br /> .局部变量 局_字符长度, 整数型<br /> <br /> 局_返回数据 ＝ 到文本 (HTTP读文件 (“<a href="http://open.baidu.com/special/time/" rel="nofollow" rel="nofollow" target="_blank">http://open.baidu.com/special/time/</a>”))<br /> 局_起始位置 ＝ 寻找文本 (局_返回数据, “window.baidu_time(”, , 假) ＋ 取文本长度 (“window.baidu_time(”)<br /> 局_结束位置 ＝ 寻找文本 (局_返回数据, “)”, 局_起始位置, 假)<br /> 局_字符长度 ＝ 局_结束位置 － 局_起始位置<br /> 局_取出字符 ＝ 取文本中间 (局_返回数据, 局_起始位置, 局_字符长度)<br /> 返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_取出字符) ÷ 1000))<br /> <br /> .子程序 判断时间, 逻辑型, , 开放时间返回真，否则返回假<br /> .参数 时间, 日期时间型<br /> .参数 最小时间, 整数型, , 9<br /> .参数 最大时间, 整数型, , 21<br /> <br /> .如果 (时间 ≥ 到时间 (到文本 (取日期 (时间)) ＋ 到文本 (最小时间) ＋ “时”) 且 时间 ≤ 到时间 (到文本 (取日期 (时间)) ＋ 到文本 (最大时间) ＋ “时”))<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束

E族X

我来混个熟脸

afd

你别老写那么完整          不就可以快些了