SOCK --gethostbyname# &V;www.baidu.com

IFEX #%&V%>0, MESS~ 已连网! MESS~ 未连网

527104427 SOCK --gethostbyname# &V;www.baidu.com IFEX #%&V%>0, MESS~ 已连网! MESS~ 未连网

老大，内网呢，服务器地址不固定

//http://bbs.wuyou.net/forum.php?mod=redirect&goto=findpost&ptid=205402&pid=4612331

//https://www.cnblogs.com/kybs0/p/12971567.html

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

527104427 //http://bbs.wuyou.net/forum.php?mod=redirect&goto=findpost&ptid=205402&pid=4612331 //h ...

谢谢老大