ENVI^ EnviMode=1

HasNetLink &&RetMsg  &&Debug
MESS %&RetMsg%     / 调试信息:[%&Debug%]

//简单情况， 没有虚拟网卡等。
_SUB HasNetLink  //RetMsg
    SET$ &&lpdwFlags=*4 0SENSAPI
    CALL $--ret:&&Ret Sensapi.dll,IsNetworkAlive,*&lpdwFlags
    CALL $--ret:&&eCode Kernel32.dll,GetLastError
    SET?long lpdwFlags=&&pdwFlags
    SET &Debug=DEBUG: flags=%&pdwFlags%  ret=%&Ret% ErrCode=%eCode%
      //1722	The RPC server is unavailable.	RPC_S_SERVER_UNAVAILABLE

    //IsNetworkAlive 返回值（bool）
    //当返回值为true，且无错误Code时，表示网络已连接
    //当返回值为false，且无错误Code时，表示网络未连接

    SET &RetMsg=未知
    IFEX  #[ %&eCode%=0 & %Ret%=1 ], SET RetMsg=网络已连接
    IFEX  #[ %&eCode%=0 & %Ret%=0 ], SET RetMsg=网络未连接
    ENVI-ret %~1=%&RetMsg%
    ENVI-ret %~2=%&Debug%
_END

