下面是我在网上找的代码 不起作用
请帮我看看是哪里有问题 网络连接包括 无线网络（加路油器） 拨号（没有加路油器）
#DEFINE INTERNET_CONNECTION_MODEM        1
#DEFINE INTERNET_CONNECTION_LAN          2
#DEFINE INTERNET_CONNECTION_PROXY        4
#DEFINE INTERNET_CONNECTION_MODEM_BUSY   8
#DEFINE INTERNET_RAS_INSTALLED           16
#DEFINE INTERNET_CONNECTION_OFFLINE      32
#DEFINE INTERNET_CONNECTION_CONFIGURED   64

DECLARE SHORT InternetGetConnectedState IN Wininet.dll;
    INTEGER @lpdwFlags,;
    INTEGER dwReserved

LOCAL nState,lpdwFlags
lpdwFlags=0
nState=InternetGetConnectedState(@lpdwFlags,0)

IF nState=1
netzt=.T.
=MESSAGEBOX("Modem 连接："+_Ok(lpdwFlags,INTERNET_CONNECTION_MODEM)+;
       CHR(13)+"LAN   连接："+_Ok(lpdwFlags,INTERNET_CONNECTION_LAN)+;
      CHR(13)+"代理服务器："+_Ok(lpdwFlags,INTERNET_CONNECTION_PROXY)+;
     CHR(13)+"离线连接 ："+_Ok(lpdwFlags,INTERNET_CONNECTION_OFFLINE)+;
    CHR(13)+"连接配置 ："+_Ok(lpdwFlags,INTERNET_CONNECTION_CONFIGURED))
ELSE
netzt=.f.
    =MESSAGEBOX("网络连接错误！")
ENDIF                        

FUNCTION _Ok(nBase,nValue)
    RETURN IIF(BITAND(nBase,nValue)=nValue,"是","否")
ENDFUNC