书我也是借别人的,切已送还。不过第一种方法我记了下来,列在下面供参考:
WinSock控件的LocalIP属性可以返回本地计算机的IP地址,如果没有网络连接,该属性将返回"127.0.0.1"或为空,根据这个特点可以来判断计算机是否连接到网络,参考下列代码:
oWinSock=CREATEOBJECT("MSWinSock.WinSock")
IF type(oWinSock)#"O"
=MESSAGEBOX("初始化WinSock错误!")
RETURN
ENDIF
IF oWinSock.LocalIP="127.0.0.1" OR EMPTY(oWinSock.LocalIP)
=MESSAGEBOX("网络连接错误!")
ELSE
=MESSAGEBOX("已经正确地连接到网络,本地IP:"+oWinSock.LocalIP)
ENDIF
RELEASE oWinSock