精易论坛

标题: 是否与互联网连接 系统_是否已联网 优化 [打印本页]

---

作者: 咸鱼666    时间: 2021-7-18 23:01
标题: 是否与互联网连接 系统_是否已联网 优化
看了别人刚分享的通过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" target="_blank">https://www.baidu.com</a>”, 假)<br />     局_http.方法 (“send”, )<br />     局_结果 ＝ 局_http.读属性 (“status”, )<br />     返回 (到整数 (局_结果.取数值 ()) ＝ 200)<br /> .否则<br />     CoUninitialize ()<br />     返回 (假)<br /> .如果结束<br /> 返回 (假)

---

作者: 诺言55    时间: 2021-7-18 23:35
额 通信测试 和你这个区别在哪里..............

---

作者: jinyiquan    时间: 2021-7-18 23:50
百d也有宕机的时候，我曾经也试过在自己软件里只用百d测试，后来想想还是同时两个安全点，一个百d(或,且)一个TX，至于是否已经连接的判断，就基于自己的需求拉，我要求简单，只要一个通，就判断通，严格的话就2个都通，小小意见，莫怪莫怪

---

作者: 灵海雪缘    时间: 2021-7-19 09:53

---

作者: FUYUEPC    时间: 2021-7-19 09:55
非常不错，继续 努力

---

作者: 已注销612711    时间: 2021-7-19 10:35
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: holyboy    时间: 2021-7-19 10:47
我用的返回Ping值

---

作者: 东方优源    时间: 2021-7-19 10:52
请问 CoUninitialize () 的是不是该加到末尾？

---

作者: 外星星人    时间: 2021-7-19 14:23
支持支持。感谢分享

---

作者: 咸鱼666    时间: 2021-7-19 15:32

东方优源 发表于 2021-7-19 10:52
请问 CoUninitialize () 的是不是该加到末尾？

嗯嗯漏加了

---

作者: cdsdsghh    时间: 2021-7-19 22:19
这个不错呀 感谢

---

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

---

作者: fanggeaaa    时间: 2021-7-20 08:49
真的很不错啊

---

作者: 917622157    时间: 2021-7-20 10:35
支持开源 感谢分享！

---

作者: 咸鱼666    时间: 2021-7-20 13:46

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

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

---

作者: yuxuanju    时间: 2021-7-20 21:15
这个有参考价值。非常好。

---

作者: 美丽星空    时间: 2021-7-22 17:55
我觉得用DNS测试会更好

---

作者: shituo    时间: 2021-7-23 23:48
.版本 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)

---

作者: 一尘天下    时间: 2021-8-1 15:11
好东西啊   学习学习

---

作者: 灵感吖    时间: 2021-8-13 12:39
精彩文章希望继续努力

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4