Codesys涓嬬殑Ping浣跨敤

PROGRAM Pro_Ping
VAR
        bCheck        : BOOL;
        bPingOK       : BOOL ;
        sIPAddress    : STRING := '192.168.1.81';
        UdiReplayTime : UDINT;
END_VAR
IF bCheck THEN
        IF SysSockPing(szIPAddress:= sIPAddress, ulTimeout:= TIME_TO_UDINT(T#50MS), pulReplyTime:= ADR(UdiReplayTime)) = 0 THEN
                bPingOK:= TRUE ;
        ELSE
                bPingOK:= FALSE ;
        END_IF
        bCheck := FALSE ;
END_IF