Ping über CMD

David Strutz, 06.04.2008 20:03:   Zitat von ""Stefan Löwen"": „...
Ich hab da aber nix über ping gefunden! gibts dafür keinen befehl oder muss ich erstmal gründlich lesen damit ich das finde? “
Ping wirst Du imho nicht finden, dass was Du "Ping" nennst ist Netzwerkkommunikation und für diese Aufgabe gibt es direkt in XProfan bisher keine eingebaute Funktion. Die Codesuche zu "Ping" ist auch nicht wirklich sehr ergiebig: [...] aber ein (wenn auch nicht so schöner) Workaround wäre

cls
winExecWait(getEnv$("COMSPEC")+" /c ping -n 1 -w 1 google.de>outp",0)
if fileExists("outp")
   assign #1,"outp"
   reset #1
   var s$=""
   whileNot eof(#1)
      input #1,s$
      print s$
   wend
   close #1
endIf
waitInput
'Datei outp noch löschen...
end
indem man ping.exe von Windows nutzt (Konsolenanwendung) und die Ausgaben in eine Datei umgelenkt einläd.

Rolf Koch, 06.04.2008 20:09: Hi Stefan,
Ping ist kein Befehl in Profan. Man kann aber alles mit Profan realisieren.
Einige Codes auch für Anfänger findest Du unter Profan auf meiner Seite
[...]
Hier ein etwas älterer Pingcode von mir:

declare pingstring$,ping$,ping%
'********************************************************************
Proc Ping
   Parameters nic$,pingdatei1$,pingdatei2$
   let pingstring$="PING.EXE",nic$,">",pingdatei1$
   Assign #6,pingdatei2$
   Rewrite #6
   Print #6,pingstring$
   Close #6
   WinExecwait(pingdatei2$,0)
   Assign #5,pingdatei2$
   Erase #5
   ASSIGN #3,pingdatei1$
   RESET #3
   Ping%=0
   WHILENOT EOF(#3)
      input #3,ping$
      ping$=mid$(ping$,1,11)
      case equ$(ping$,"Antwort von"):Ping%=1
   WEND
   CLOSE #3
   Assign #1,pingdatei1$
   Erase #1
EndProc
'********************************************************************
'Beschreibung:
'Es gibt zwar schon eine schnelle und schöne Onlineabfrage über API,
'aber leider gibt die Funktion nur 1 für Online zurück, wenn
'man über ein Standart DFÜ eingewählt ist.
'Diese Prozedur ist halt nur etwas langsamer aber man kann sogar DSL
'(also - keine DFÜ-Verbindung) oder das alte T-Online u.s.w abfragen!!
'alles mit einem Stern umrandete ist wichtig für die Abfrage
'Rolf Koch - Rokosoftware - Koblenz 2002
'BEISPIEL
WINDOWSTYLE 31
Window 200,200-300,80
Windowtitle "Onlinstatus-Prüfung ohne Api"
TextColor RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
' HIER JETZT DER AUFRUF DER PROZEDUR:********************
'PING ADRESSE,ERGEBNISDATEI,BATCHDATEI
'Parameter
'1.) Webadresse - eine immer vorhandene wie www.nic.de
'2.) Dateiname, in welche Pingergebnis geschrieben wird - wird wieder gelöscht!
'3.) Dateiname, um Ping korrekt aufzurufen. - wird wieder gelöscht!
'********************************************************
TextColor RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10,"                                "
UseFont "TIMES NEW ROMAN",25,20,1,0,0
TextColor RGB(0,0,255),-1
Ping "192.168.0.7","PINGTEST.TXT","PING.BAT"
if equ(ping%,1)
   DRAWTEXT 25,10,"Erreichbar"
else
   DRAWTEXT 25,10,"Nicht erreichbar"
endif
waitinput
Dort wo 192.168.0.7 steht kannst Du Deine Zieladresse angeben.

Dies ist die Offlinevariante vom Thread [Ping über CMD].