XProfan

Español

Stefan Landsberg

...

Yo como aber nix encima ping gefunden! gibts dafür no befehl

oder muss Yo primero gründlich lesen así Yo el finde?

Ping wirst Usted imho no encontrar, dass qué Usted Ping nennst es Netzwerkkommunikation y para esta Tarea hay direkt en XProfan bisher no eingebaute Función. El Codesuche a Ping es auch no wirklich muy ergiebig: [...]

aber una (si auch no así schöner) Workaround wäre
Kompilieren Marca Separación

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 uno ping.exe de Windows nutzt (Konsolenanwendung) y el Ausgaben en un Expediente umgelenkt einläd.

06.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hi Stefan,

Ping es kein Befehl en Profano. Se puede aber alles con Profano realisieren.
Einige Codes auch para Principiante findest Usted bajo Profano en meiner Página
[...]

Hier una algo älterer Pingcode de me:
Kompilieren Marca Separación

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

ef='./../../function-references/XProfan/waitinput/'>waitinput

Dort wo 192.168.0.7 es kannst Usted Su Zieladresse angeben.

06.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stefan
Landsberg

¡Hola,
Yo möchte en mi akuellen (ersten) Projekt el código de Rolf uso y tener ihn una wenig umgeschrieben, sodass él jetz así aussieht:
Kompilieren Marca Separación

declare ping%,ip$

Proc Ping

    declare pingdatei1$, pingdatei2$, pingstring$, ping$
    Parameters ip$
    let pingdatei1$="PINGTEST.TXT"
    let pingdatei2$="PING.BAT"
    let pingstring$="PING.EXE",ip$,">",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!!
Vielen Dank für den (von mir veränderten) Quelltext der Prozedur an:
Rolf Koch - Rokosoftware - Koblenz 2002
----------------------------------------------------------------------
HIER JETZT DER AUFRUF DER PROZEDUR:
PING ADRESSE,ERGEBNISDATEI,BATCHDATEI
Parameter
1.) Webadresse - eine immer vorhandene wie www.nic.de
Wenn die Prozedur verwendet wird muss die Variable ping%
global deklariert werden. An diese Variable wird folgender Wert übergeben:
Erreichbarkeit der IP         ---        Wert
-------------------------------------------------------
Nicht Erreichbar                        0
Erreichbar                             1
*****************************************************

n>**

Jetz sería Yo aber gerne hinter el dos Befehl ping todavía el parameter -a conjunto así el Hostname el ip auch ausgegeben se.

ahora weiß Yo pero no Yo lo hacer se, dass en el ersten zeile el pingtest.txt el Ping y el en él folgende leerzeichen übersprungen y ser todos darauf folgende zeichen a para nächsten leerzeichen en una variable leerse (z.B.: hostname$).

In Rolfs Code verwirrt mich dieser Befehl "ping$=mid$(ping$,1,11)".

Der liest sí eigentlich de el ersten zeichen el folgenden 11 zeichen en el variable ping$ una. En uno erfolgreichen ping abfrage lautet el inhalt de ping$ also "Antwort von".

Der inhalt el pingtest.txt sieht así de:

Ping se ausgefhrt fr 127.0.0.1 con 32 Bytes Daten:

Antwort de 127.0.0.1: Bytes=32 Zeit<1ms TTL=64

Antwort de 127.0.0.1: Bytes=32 Zeit<1ms TTL=64

Antwort de 127.0.0.1: Bytes=32 Zeit<1ms TTL=64

Antwort de 127.0.0.1: Bytes=32 Zeit<1ms TTL=64

Ping-Statistik fr 127.0.0.1:

Pakete: Gesendet = 4, Empfangen = 4, Verloren = 0 (0% Verlust),

Ca. Zeitangaben en Millisek.:

Minimum = 0ms, Maximum = 0ms, Mittelwert = 0ms

meiner meinung después de debería el inhalt de ping$ entonces aber "Ping se a" lauten.

Kann me alguien erklären?

Yo hoffe Yo tener el jetz verständlich geschrieben. si no entonces fragt simplemente otra vez después de.

22.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

let pingstring$="PING.EXE",ip$,"-a >",pingdatei1$

22.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stefan
Landsberg

ok Yo tener no verständlich geschrieben

como yo mache dass el hostname ausgegeben se weiß Yo.
mi frage war Yo el hostnamen anschließend en el variable hostname$ einlesen kann.

ach außerdem:
Kompilieren Marca Separación

let pingstring$="PING.EXE",ip$,"-a >",pingdatei1$
das -a ist an der falschen stelle. es muss vor die ip also so:
let pingstring$="PING.EXE -a",ip$,">",pingdatei

re>