下面是我在网上找的代码 不起作用
请帮我看看是哪里有问题 网络连接包括 无线网络（加路油器） 拨号（没有加路油器）
#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

我用的是这一段，我也不懂，反正好使。
******检查网络链接**
Public intnetlj
intnetlj=.F.
Do cslj
******************************
If     intnetlj=.T.
    Do lj
    Release intnetlj
Else
    Return
ENDIF
**************************
Procedure lj
*连接后处理代码


*************
Procedure cslj
Declare Integer InternetGetConnectedState In wininet.Dll ;
    Integer @lpdwFlags, ;
    Integer dwReservednReserved
If internetgetconnectedstate(7, 0) = 0
*Messagebox("未连结到互联网！请进行拨号连接或检查网络状态。", 0, "错误")
    intnetlj=.F.
Else
    Do Case
    Case internetgetconnectedstate(7, 0) = 1
*Messagebox("拨号已经连通!",0,"提示")
        intnetlj=.T.
    Case internetgetconnectedstate(7, 0) = 2
*Messagebox("网络已经连通",0,"提示")
        intnetlj=.T.
    Otherwise
*Messagebox("通过代理连通！")
        intnetlj=.T.
    Endcase
Endif

一楼的，有反应啊

一楼＆二楼的都是好使的，但看不懂

请问三楼：#DEFINE INTERNET_CONNECTION_MODEM        1
如果是Modem连接通是什么？