Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
test_ping.bas
| Uploader: |  ThePuppetMaster |
| Datum/Zeit: | 02.10.2011 05:57:41 |
Hinweis: Dieser Quelltext ist Bestandteil des Projekts TSNE V2 / V3, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
Warnung: Es steht bereits eine neuere Version des Quelltexts zur Verfügung. Die hier vorliegende alte Version könnte Fehler enthalten, die in der neuen Version vielleicht ausgebessert wurden.
'##############################################################################################################
'TEST-PING für TSNE_V3
'##############################################################################################################
'##############################################################################################################
#include once "TSNE_V3.bi" 'Die TCP Netzwerkbibliotek integrieren
'##############################################################################################################
Dim TRunTime as Double
Dim RV as Integer
'Ping Ausführen
RV = TSNE_Ping("192.168.0.1", TRunTime)
'Statusrückgabe auswerten
If RV <> TSNE_Const_NoError Then
Print "[FEHLER] " & TSNE_GetGURUCode(RV) 'Fehler ausgeben
End -1 'Programmbeenden
End If
Print "Runtime: "; Str(TRunTime); " seconds"
End 0