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

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

判断 (是否与互联网连接 () ＝真)

信息框 (“网络已连接”, 0, )

如果 (取时间部分 (取现行时间 (), #小时 ) ＝ 9)

信息框 (“当前为程序开放时间”, 0, )

如果 (取时间部分 (取现行时间 (), #小时 ) ＝ 21)

信息框 (“当前为程序开放时间”, 0, )

信息框 (“程序未开放，请等待开放时间”, 0, )

结束 ()

信息框 (“无网络”, 0, )

结束 ()

i支持库列表	支持库注释
eAPI	应用接口支持库

窗口程序集名	保留	保留	备注
窗口程序集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	互联网支持库