如何偵測電腦的網路連線是正常的

出自VFP Wiki

在2005年4月3日 (日) 07:56由Elleryq (對話 | 貢獻)所做的修訂版本
跳轉到: 導航, 搜尋


目錄

出處

致謝

Thanks a123eric and ge8941!!

Solution

使用Windows API:InternetGetConnectedState
LOCAL nFlags AS Long, lOffline AS Boolean
DECLARE SHORT InternetGetConnectedState IN wininet INTEGER @ lpdwFlags, INTEGER dwReserved
m.nFlags = 0
m.lOffLine = !InternetGetConnectedState(@m.nFlags, 0) <> 0

return m.lOffLine
使用 ping 
local isok
ws = createobject("WScript.Shell")
isok = ws.run("ping 192.168.1.39",0,"True")
if ISOK==0
msg("連線")
else
msg("斷線")
endif
取自"http://wiki.sunyear.com.tw/index.php?title=%E5%A6%82%E4%BD%95%E5%81%B5%E6%B8%AC%E9%9B%BB%E8%85%A6%E7%9A%84%E7%B6%B2%E8%B7%AF%E9%80%A3%E7%B7%9A%E6%98%AF%E6%AD%A3%E5%B8%B8%E7%9A%84"