怎样获取电脑有没有接上互联络网

许锦华_gHav7 · 发表于 2018-8-31 19:27:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教下各位怎样获取电脑有没有接上互联网

aisong220 · 发表于 2018-9-1 00:36:43

看看能否打开网页就知道了

LoveArx · 发表于 2018-9-1 01:06:02

开源函数库，现成的

（XD::Internet-p）判断是否连接到INTERNET

28 个回复 - 280 次查看

**** 本内容被作者隐藏 ****

2018-3-16 16:19 - marting - 开源函数库

王子 · 发表于 2018-9-1 07:45:20

晓东工具箱蛮强大。

许锦华_gHav7 · 发表于 2018-9-1 08:41:52

谢谢啊！！！学到东西了

namezg · 发表于 2018-9-1 13:35:39

;判断是否连接到Internet
(defun zg-InternetP (/ WBEM WMI rtn)
(vl-load-com)
(setq WBEM (vlax-create-object "WbemScripting.SWbemLocator"));C:\WINDOWS\system32\wbem\wbemdisp.dll;#<VLA-OBJECT ISWbemLocator 0d3bb7a8>
(setq WMI (vlax-invoke WBEM 'ConnectServer));#<VLA-OBJECT ISWbemService** 0d39e5e0>
(vlax-for obj (vlax-invoke WMI 'ExecQuery "Select * From Win32_PingStatus Where Address='www.baidu.com'")
(if (= (setq status (vlax-get obj 'statuscode)) 0)
(setq rtn T)
)
)
(vlax-release-object WMI)
(vlax-release-object WBEM)
rtn
)

许锦华_gHav7 · 发表于 2018-9-1 19:50:25

namezg 发表于 2018-9-1 13:35
;判断是否连接到Internet
(defun zg-InternetP (/ WBEM WMI rtn)
(vl-load-com)

谢谢你啊！！！

账号		自动登录	找回密码
密码			立即注册

[求助] 怎样获取电脑有没有接上互联络网

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评