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

咸鱼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 /> 返回 (假)

诺言55

额 通信测试 和你这个区别在哪里..............

jinyiquan

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

灵海雪缘

FUYUEPC

非常不错，继续 努力

已注销612711

学习学习

holyboy

我用的返回Ping值

东方优源

请问 CoUninitialize () 的是不是该加到末尾？

外星星人

支持支持。感谢分享

咸鱼666

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

嗯嗯漏加了