易语言应用接口支持库->网络通信中有个是否与互联网连接命令,但是延迟太高,如果掉线了,会一直卡在那里。

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

易语言 判断网络是否连接

.版本 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, , , , 局_提交协议头, , , , , , 局_超时时间, , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果, , , ))
调试输出 (局_返回)
.如果 (局_返回 = “”)
    调试输出 (“网络连接失败”)
    返回 (假)
.否则
    调试输出 (“网络连接成功”)
    返回 (真)
.如果结束