Aufruf: API Funktionen

LONG = APIIcmpPing(cArrayName AS STRING , cHost AS STRING , nTTL AS LONG , nTOS AS LONG , nTimeout AS LONG , nDatasize AS LONG , bDontFragment AS LONG , nPingCount AS LONG)

Rückgabe: API Funktionen

Rückgabe der Funktion: LONG

Code: API Funktionen

FUNCTION APIIcmpPing (cArrayName AS STRING ,cHost AS STRING ,nTTL AS LONG ,nTOS AS LONG ,nTimeout AS LONG ,nDatasize AS LONG ,bDontFragment AS LONG ,nPingCount AS LONG ) AS LONG
	*/ DECLARE LONG IcmpPing IN vfp2c32.fll AS APIIcmpPing STRING cArrayName,STRING cHost,LONG nTTL,LONG nTOS,LONG nTimeout,LONG nDatasize,LONG bDontFragment,LONG nPingCount
	DO CASE
		CASE !My.lIsVfp2c32
			RETURN .NULL.
		CASE PCOUNT()=0
			RETURN IcmpPing()
		CASE PCOUNT()=1
			RETURN IcmpPing(m.cArrayName)
		CASE PCOUNT()=2
			RETURN IcmpPing(m.cArrayName,m.cHost)
		CASE PCOUNT()=3
			RETURN IcmpPing(m.cArrayName,m.cHost,m.nTTL)
		CASE PCOUNT()=4
			RETURN IcmpPing(m.cArrayName,m.cHost,m.nTTL,m.nTOS)
		CASE PCOUNT()=5
			RETURN IcmpPing(m.cArrayName,m.cHost,m.nTTL,m.nTOS,m.nTimeout)
		CASE PCOUNT()=6
			RETURN IcmpPing(m.cArrayName,m.cHost,m.nTTL,m.nTOS,m.nTimeout,m.nDatasize)
		CASE PCOUNT()=7
			RETURN IcmpPing(m.cArrayName,m.cHost,m.nTTL,m.nTOS,m.nTimeout,m.nDatasize,m.bDontFragment)
		CASE PCOUNT()=8
			RETURN IcmpPing(m.cArrayName,m.cHost,m.nTTL,m.nTOS,m.nTimeout,m.nDatasize,m.bDontFragment,m.nPingCount)
	ENDCASE
ENDFUNC