易语言判断程序是否联网源码

.版本 2
.支持库 eAPI

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

.判断开始 (是否与互联网连接 () ＝ 真)
    信息框 (“网络已连接”, 0, )
    .如果 (取时间部分 (取现行时间 (), #小时) ＝ 9)
        信息框 (“当前为程序开放时间”, 0, )
    .否则
        .如果 (取时间部分 (取现行时间 (), #小时) ＝ 21)
            信息框 (“当前为程序开放时间”, 0, )
        .否则
            信息框 (“程序未开放，请等待开放时间”, 0, )
            结束 ()
        .如果结束

    .如果结束

.默认
    信息框 (“无网络”, 0, )
    结束 ()
.判断结束

@依然是海洋