是否与互联网连接 系统_是否已联网 优化

咸鱼666

看了别人刚分享的通过InternetGetConnectedState获取状态，查了一下只表示本地电脑是否有网络连接不能表示一定有网络。
看了下精易的系统_是否已联网，发现可以再优化一下，不知道这样是否有问题，把访问方式改成HEAD，取返回状态来判断是否已联网

  

子程序名	返回值类型	公开	备 注
系统_是否已联网2	逻辑型

变量名	类 型	静态	数组	备 注
局_http	对象
局_结果	变体型
局_返回	长整数型

CoInitialize (0)
如果 (局_http.创建 (“WinHttp.WinHttpRequest.5.1”, ))
局_http.方法 (“open”, “HEAD”, “https://www.baidu.com”, 假)
局_http.方法 (“send”, )
局_结果 ＝ 局_http.读属性 (“status”, )
返回 (到整数 (局_结果.取数值 ()) ＝ 200)
CoUninitialize ()
返回 (假)
返回 (假)

.版本 2<br /> <br /> .子程序 系统_是否已联网2, 逻辑型, 公开<br /> .局部变量 局_http, 对象<br /> .局部变量 局_结果, 变体型<br /> .局部变量 局_返回, 长整数型<br /> <br /> CoInitialize (0)<br /> .如果 (局_http.创建 (“WinHttp.WinHttpRequest.5.1”, ))<br />     局_http.方法 (“open”, “HEAD”, “<a href="https://www.baidu.com" rel="nofollow" rel="nofollow" target="_blank">https://www.baidu.com</a>”, 假)<br />     局_http.方法 (“send”, )<br />     局_结果 ＝ 局_http.读属性 (“status”, )<br />     返回 (到整数 (局_结果.取数值 ()) ＝ 200)<br /> .否则<br />     CoUninitialize ()<br />     返回 (假)<br /> .如果结束<br /> 返回 (假)

灵感吖

精彩文章希望继续努力

一尘天下

好东西啊   学习学习

shituo

.版本 2

.子程序 取HTTP状态, 整数型, 公开, 对象方法
.参数 url, 文本型, , 网址
.局部变量 http, 对象
.局部变量 p, 变体型

_初始化COM_CoInitialize (0)
.如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))
    http.写属性 (“Option”, 6, 0)
    http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)  ' 解析响应时间  连接响应时间 接受数据响应时间 发送请求数据响应时间
    http.方法 (“open”, “GET”, url, 假)
    http.方法 (“setRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)”)
    http.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)
    http.方法 (“setRequestHeader”, “Connection”, “Keep-Alive”)
    http.方法 (“setRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, */*”)
    http.方法 (“send”, )
    p ＝ http.读属性 (“status”, )
    _卸载COM_CoUninitialize ()
    返回 (p.取数值 ())
.如果真结束
_卸载COM_CoUninitialize ()
返回 (0)

美丽星空

我觉得用DNS测试会更好

yuxuanju

这个有参考价值。非常好。

咸鱼666

AMEN.@ 发表于 2021-7-20 00:10
你这样。我只能说如果没网的时候很卡。易语言自带：通信测试()这个。简单明了。用ping ...

这个有bug的，你可以论坛搜一下

917622157

支持开源 感谢分享！

fanggeaaa

真的很不错啊

AMEN.@

你这样。我只能说如果没网的时候很卡。易语言自带：通信测试()这个。简单明了。用ping