lisp函数判断电脑是否联网

jun353835273

lisp函数判断电脑是否联网

baitang36

下载一下备用

ssyfeng

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

jun353835273

ssyfeng 发表于 2020-9-11 17:10
这个好像不太准确，这种情况时应该是没有联网的，本地连接有问题。

win7 64位测试的没有问题，你是win10吗，win10要修改程序，我测试了。附件已经更新
win10是 "以太网"

luohonghe

这个什么作用？

jun353835273

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

其实没有多大的实际用处

wzg356

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

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

东升铮

1. ;;说明:判断是否连接到网络
   
2. ;;返回:T or nil
   
3. (DEFUN ATX-INTERNET-P (/ OBJ RTN URL)
   
4.   (setq URL "http://baidu.com/")
   
5.   (AND (setq OBJ (vlax-get-or-create-object "winhttp.winhttprequest.5.1"))
   
6.        (NOT
   
7.          (VL-CATCH-ALL-ERROR-P
   
8.            (setq RTN (VL-CATCH-ALL-APPLY
   
9.                        '(lambda ()
   
10.                           (vlax-invoke OBJ 'OPEN "GET" URL :vlax-true)
    
11.                           (vlax-invoke OBJ 'SEND)
    
12.                           (vlax-invoke OBJ 'WAITFORRESPONSE 1)
    
13.                           (vlax-get OBJ 'STATUS)
    
14.                         )
    
15.                      )
    
16.            )
    
17.          )
    
18.        )
    
19.        (vlax-release-object OBJ)
    
20.        (= 200 RTN)
    
21.   )
    
22. )

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

hi-kit

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

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

utopio

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

简洁明了。