社区 › 源码共享 › lisp函数判断电脑是否联网

jun353835273 发表于 2020-9-10 12:48:29

lisp函数判断电脑是否联网

本帖最后由 jun353835273 于 2020-9-11 21:26 编辑

lisp函数判断电脑是否联网

baitang36 发表于 2020-9-11 09:53:38

下载一下备用

ssyfeng 发表于 2020-9-11 17:10:04

这个好像不太准确，这种情况时应该是没有联网的，本地连接有问题。

jun353835273 发表于 2020-9-11 20:28:56

本帖最后由 jun353835273 于 2020-9-11 21:22 编辑

ssyfeng 发表于 2020-9-11 17:10
这个好像不太准确，这种情况时应该是没有联网的，本地连接有问题。
win7 64位测试的没有问题，你是win10吗，win10要修改程序，我测试了。附件已经更新
win10是 "以太网"

luohonghe 发表于 2020-9-12 16:08:01

这个什么作用？

jun353835273 发表于 2020-9-12 21:14:14

luohonghe 发表于 2020-9-12 16:08
这个什么作用？

其实没有多大的实际用处

wzg356 发表于 2020-9-13 17:20:38

luohonghe 发表于 2020-9-12 16:08
这个什么作用？

可以联网核对一下，是否已交钱，服务时效

东升铮 发表于 2020-9-15 05:57:20

;;说明:判断是否连接到网络
;;返回:T or nil
(DEFUN ATX-INTERNET-P (/ OBJ RTN URL)
(setq URL "http://baidu.com/")
(AND (setq OBJ (vlax-get-or-create-object "winhttp.winhttprequest.5.1"))
       (NOT
         (VL-CATCH-ALL-ERROR-P
         (setq RTN (VL-CATCH-ALL-APPLY
                     '(lambda ()
                        (vlax-invoke OBJ 'OPEN "GET" URL :vlax-true)
                        (vlax-invoke OBJ 'SEND)
                        (vlax-invoke OBJ 'WAITFORRESPONSE 1)
                        (vlax-get OBJ 'STATUS)
                        )
                     )
         )
         )
       )
       (vlax-release-object OBJ)
       (= 200 RTN)
)
)

hi-kit 发表于 2022-5-6 14:21:24

东升铮 发表于 2020-9-15 05:57


cad2007测试成功！2016测试失败！

utopio 发表于 2022-6-6 21:41:03

东升铮 发表于 2020-9-15 05:57


简洁明了。

查看完整版本: lisp函数判断电脑是否联网