XProfan

Français

Stefan Landsberg

...

je hab là mais nix sur ping trouvé! gibts pour keinen befehl

ou bien muss je erstmal gründlich lesen avec cela je cela finde?

Ping wirst Du imho pas trouver, dass quoi Du Ping nennst ist Netzwerkkommunikation et pour cet devoir gibt es direct dans XProfan bisher aucun eingebaute Funktion. qui Codesuche trop Ping ist aussi pas wirklich très ergiebig: [...]

mais un (si aussi pas so plus beau) Workaround wäre
Kompilieren Marque Séparation

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 on ping.exe de Windows utilise (Konsolenanwendung) et qui Ausgaben dans un Dossier umgelenkt einläd.

06.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Hi Stefan,

Ping ist ne...aucune Befehl dans Profan. il peut mais alles avec Profan realisieren.
quelques Codes aussi pour Débutant findest Du sous Profan sur meiner page
[...]

ici un quelque chose älterer Pingcode de mir:
Kompilieren Marque Séparation

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

là wohin 192.168.0.7 steht peux Du Votre Zieladresse angeben.

06.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Stefan
Landsberg

Salut,
je voudrais dans mon akuellen (ersten) projet den Code de Rolf verwenden et hab ihn un peu umgeschrieben, sodass il jetz so aussieht:
Kompilieren Marque Séparation

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 serait je mais volontiers derrière den dos Befehl ping encore den paramètre -a mettons avec cela qui Hostname qui ip aussi ausgegeben wird.

maintenant sais je mais pas comment je es faire soll, dass dans qui ersten la ligne qui pingtest.txt cela Ping et cela sur elle folgende leerzeichen übersprungen volonté et alle puis folgende marque jusqu'à zum prochain leerzeichen dans une variable lire volonté (z.B.: hostname$).

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

qui liest oui eigentlich ab dem ersten marque qui folgenden 11 marque dans qui variable ping$ un. chez einer erfolgreichen ping abfrage lautet qui le contenu de ping$ alors "Antwort von".

qui le contenu qui pingtest.txt sieht so aus:

Ping wird ausgefhrt fr 127.0.0.1 avec 32 Bytes données:

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% perte),

Ca. Zeitangaben dans Millisek.:

Minimum = 0ms, maximum = 0ms, Mittelwert = 0ms

meiner attitude pour devrait qui le contenu de ping$ ensuite mais "Ping wird a" lauten.

peux mir cela quelqu'un expliquer?

je hoffe nie gemacht jetz verständlich geschrieben. si pas ensuite fragt simple nochmal pour.

22.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Kompilieren Marque Séparation

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

22.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Stefan
Landsberg

ok je hab pas verständlich geschrieben

comment je cela fais dass qui hostname ausgegeben wird sais je.
mon frage était comment Je l' hostnamen anschließend dans qui variable hostname$ einlesen peux.

ah aussi:
Kompilieren Marque Séparation

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>