易语言判断网络是否连接

所以可以用精易模块的网页访问对象命令，加上一个超时参数，来判断网络的连接状态。

.版本 2
.支持库 spec
 
.子程序 网络是否连接, 逻辑型
.局部变量 局_提交协议头, 文本型
.局部变量 局_超时时间, 整数型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
 
局_提交协议头 ＝ “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.90 Safari/537.36”
局_超时时间 ＝ 2
局_结果 ＝ 网页_访问_对象 (“https://www.baidu.com”, 0, , , , 局_提交协议头, , , , , , 局_超时时间, , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
调试输出 (局_返回)
.如果 (局_返回 ＝ “”)
    调试输出 (“网络连接失败”)
    返回 (假)
.否则
    调试输出 (“网络连接成功”)
    返回 (真)
.如果结束