（XD::Internet:Ping）判断一个URL是否可PING

marting

1. (defun XD::Internet:Ping (address / out ws)
   
2.   (and (setq ws (vlax-get-or-create-object "WScript.Shell"))
   
3.        (setq out (vlax-invoke
   
4.                    ws
   
5.                    'run
   
6.                    (strcat "ping.exe -n 1 " address)
   
7.                    0
   
8.                    :vlax-true
   
9.                  )
   
10.        )
    
11.        (vlax-release-object ws)
    
12.        (zerop out)
    
13.   )
    
14. )
    
15. 
    

(defun XD::Internet:Ping (address / out ws)<br />   (and (setq ws (vlax-get-or-create-object "WScript.Shell"))<br />        (setq out (vlax-invoke<br />                    ws<br />                    'run<br />                    (strcat "ping.exe -n 1 " address)<br />                    0<br />                    :vlax-true<br />                  )<br />        )<br />        (vlax-release-object ws)<br />        (zerop out)<br />   )<br /> )<br /> <br />

newer

如果安装了express ，可以用下面的ping

1. (defun ping (target)
   
2.   (= 0 (acet-sys-spawn 3 "ping" target))
   
3. )
   

(defun ping (target)<br />   (= 0 (acet-sys-spawn 3 "ping" target))<br /> )<br />