XProfan

English

Stefan Landsberg

...

I Have there but nothing over ping found! Gibts for none commands

or must I first thoroughly reading so I the find?

Ping become You imho not find, that what You Ping name is Netzwerkkommunikation and these task there directly in XProfan yet no installed function. The Codesuche To Ping is neither really very ergiebig: [...]

but one (if neither so schöner) Workaround would
Compile Mark Separation

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

because one ping.exe Windows uses (Konsolenanwendung) and the expenses in a File umgelenkt einläd.

04/06/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

Hi Stefan,

Ping is no commands in Profan. one can but everything with Profan release.
some Codes too for Beginner find You under Profan on of my Page
[...]

here one something älterer Pingcode of me:
Compile Mark Separation

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

there where 192.168.0.7 standing can You your Zieladresse indicate.

04/06/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Stefan
Landsberg

Hi,
i want in my akuellen (first) proposition whom Code Rolf use and Have it a little bit rewritten, so it jetz so looks:
Compile Mark Separation

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 would I but gladly behind whom dos commands ping yet whom parameter -a settle so the Hostname the ip too outputted becomes.

now white I but not How I it make should, that in the first row the pingtest.txt the Ping and the on it following space übersprungen and be any hereon following characters until next space in a variable be read (z.B.: hostname$).

In Rolfs code confused me this commands "ping$=mid$(ping$,1,11)".

The reads Yes really ex the first characters The subesquent 11 characters into variable ping$ one. with of/ one erfolgreichen ping request sounds the content of ping$ means "Antwort von".

The content the pingtest.txt sees so from:

Ping becomes ausgefhrt fr 127.0.0.1 with 32 Bytes data:

response of 127.0.0.1: Bytes=32 Zeit<1ms TTL=64

response of 127.0.0.1: Bytes=32 Zeit<1ms TTL=64

response of 127.0.0.1: Bytes=32 Zeit<1ms TTL=64

response of 127.0.0.1: Bytes=32 Zeit<1ms TTL=64

Ping-Statistik fr 127.0.0.1:

Pakete: Gesendet = 4, receive = 4, lost = 0 (0% wastage),

ca. Zeitangaben in Millisek.:

minimum = 0ms, maximum = 0ms, story = 0ms

in my opinion should the content of ping$ then but "Ping becomes a" lauten.

can me the someone explain?

I hope I Have the jetz verständlich written. unless then asks simply again to.

07/22/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Compile Mark Separation

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

07/22/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Stefan
Landsberg

ok I Have not verständlich written

How I the make that the hostname outputted becomes white I.
my question was How I the hostnamen subsequently into variable hostname$ reading can.

alas moreover:
Compile Mark Separation

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>