Ping Request in VFP 5?

17/03/2008 - 11:36 von Simon Grimm | Report spam
Hallo zusammen,

gibt es eine möglichkeit einen Ping Request in FoxPro 5 zu senden bzw auszuwerten?
Ich möchte so Probleme im Netzwerk abfangen.

Gruß Simon

PS: Rechtschreibfehler dürfen gesammelt werden, wer 100 Stück bekommt eine Überraschung.
-
|\_/|
(.. )
- /
 

Lesen sie die antworten

#1 Jan Bucek
17/03/2008 - 11:48 | Warnen spam
DECLARE INTEGER GetRTTAndHopCount IN Iphlpapi;
INTEGER DestIpAddress, LONG @HopCount,;
INTEGER MaxHops, LONG @RTT
DECLARE INTEGER inet_addr IN ws2_32 STRING cp
LOCAL nDst, nHop, nRTT
nDst = inet_addr(m.cIpnum)
STORE 0 TO nHop, nRTT
IF GetRTTAndHopCount(nDst, @nHop, 5, @nRTT)=0
MESSAGEBOX("keine Antwort von IP-Adresse ";
+ALLTRIM(m.cIpnum)+".",0+64,"PING",10000)
ELSE
MESSAGEBOX("Antwort von IP-Adresse "+ALLTRIM(m.cIpnum);
+" nach "+ALLTRIM(STR(m.nRTT))+" msec";
+IIF(m.nHop>1," ["+ALLTRIM(STR(m.nHop))+"]. ",". "),0+64,"PING",5000)
ENDIF


Simon Grimm napsal(a):
Hallo zusammen,

gibt es eine möglichkeit einen Ping Request in FoxPro 5 zu senden bzw auszuwerten?
Ich möchte so Probleme im Netzwerk abfangen.




Jan Bucek
17. listopadu 2657
544 01 Dvùr Králové n. L.
www.bucek.info

Ähnliche fragen