XProfan

Español

Penguin
Tux

¡Hola,

Yo möchte mich ersteinmal vorstellen. Mein Name es Tony, Yo bin 15 Jahre alt y besuche una Realschule en Chemnitz. Desde que ahora Sommerferien habe y yo nichts más a tun habe, Yo me vorgenommen una kleines Netzwerkanalysetool a escribir. Auf el búsqueda después de uno einfachen Lenguaje de programación bin I XProfan gestoßen.

Yo habe alles nötige gedownloaded y installiert, anschließen Yo una Pingcode gesucht y habe esta:

Kompilieren Marca Separación

declarar pingstring$,ping$,ping%
********************************************************************

Proc Ping

    Parámetros nic$,pingdatei1$,pingdatei2$
    let pingstring$="PING.EXE",nic$,">",pingdatei1$
    Asignar #6,pingdatei2$
    Rewrite #6
    Imprimir #6,pingstring$
    Cerrar #6
    WinExecwait(pingdatei2$,0)
    Asignar #5,pingdatei2$
    Borrar #5
    ASSIGN #3,pingdatei1$
    RESET #3
    Ping%=0

    WHILENOT EOF(#3)

        input #3,ping$
        ping$=mid$(ping$,1,11)
        caso equ$(ping$,"Antwort von"):Ping%=1

    WEND

    CLOSE #3
    Asignar #1,pingdatei1$
    Borrar #1

ENDPROC

********************************************************************
Descripción:
Lo son zwar ya una schnelle y schöne Onlineabfrage über API,
aber desafortunadamente son el Función sólo 1 para Online zurück, si
uno über una Standart DFÜ eingewählt es.
Diese Procedimiento es sólo sólo algo langsamer aber uno kann incluso DSL
(also - no DFÜ-Verbindung) oder el alte T-Online u.s.w abfragen!!
alles con una Stern umrandete es wichtig para el Abfrage
Rolf Koch - Rokosoftware - Koblenz 2002
BEISPIEL
WINDOWSTYLE 31
Ventana 200,200-300,80
Windowtitle "Onlinstatus-Prüfung sin Api"
Color del texto 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
Parámetro
1.) Webadresse - una siempre vorhandene como www.nic.de
2.) Dateiname, en welche Pingergebnis geschrieben se - se otra vez gelöscht!
3.) Dateiname, en Ping korrekt aufzurufen. - se otra vez gelöscht!
********************************************************
Color del texto RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10,"                                "
UseFont "TIMES NEW ROMAN",25,20,1,0,0
Color del texto RGB(0,0,255),-1
Ping "192.168.0.7","PINGTEST.TXT","PING.BAT"

if equ(ping%,1)

    DRAWTEXT 25,10,"Erreichbar"

más

    DRAWTEXT 25,10,"Nicht erreichbar"

endif

waitinput

Diesen Code Yo me después de media Bedürfnissen zurechtgeschnitten y él sieht como folgt de. Dazu debería Yo el de me ausgedachte Funktionsweise erklären.

Es geplant, dass Yo una Tool escribir, welches möglichst simplemente una erste Ayuda para Schüler y Lehrer bietet. Bemerkt una User el él no Internetzugang ha, führt él el Tool de, welches el Reihe después de sólo el Server anpingt, entonces una otro Client en el Netzwerk y luego todavía una Rechner de außerhalb (z.B. Google). Wenn lo en uno el Schritte no Rückmeldung son, se una Meldung con Tips a Behebung en el Bildschrim erscheinen.

Nun para Code:

Kompilieren Marca Separación

declarar pingstring$,ping$,ping%

Proc Ping

    Parámetros nic$,pingdatei1$,pingdatei2$
    let pingstring$="PING.EXE",nic$,">",pingdatei1$
    Asignar #6,pingdatei2$
    Rewrite #6
    Imprimir #6,pingstring$
    Cerrar #6
    WinExecwait(pingdatei2$,0)
    Asignar #5,pingdatei2$
    Borrar #5
    ASSIGN #3,pingdatei1$
    RESET #3
    Ping%=0

    WHILENOT EOF(#3)

        input #3,ping$
        ping$=mid$(ping$,1,11)
        caso equ$(ping$,"Antwort von"):Ping%=1

    WEND

    CLOSE #3
    Asignar #1,pingdatei1$
    Borrar #1

ENDPROC

WINDOWSTYLE 31
Ventana 200,200-500,80
Windowtitle "Onlinstatus-Prüfung sin Api"
Color del texto RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
Color del texto RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10,"                                "
UseFont "CANDARA",25,20,1,0,0
Ping "127.0.0.1","PINGTEST.TXT","PING.BAT"

if equ(ping%,1)

    Color del texto RGB(0,255,0),-1
    DRAWTEXT 25,10,"Server Erreichbar"

más

    Color del texto RGB(255,0,0),-1
    DRAWTEXT 25,10,"Server No erreichbar"

endif

Ping "192.168.0.1","PINGTEST.TXT","PING.BAT"

if equ(ping%,1)

    Color del texto RGB(0,255,0),-1
    DRAWTEXT 25,10,"Client Erreichbar"

más

    Color del texto RGB(255,0,0),-1
    DRAWTEXT 25,10,"Client No erreichbar"

endif

Ping "www.google.de","PINGTEST.TXT","PING.BAT"

if equ(ping%,1)

    Color del texto RGB(0,255,0),-1
    DRAWTEXT 25,10,"Google Erreichbar"

más

    Color del texto RGB(255,0,0),-1
    DRAWTEXT 25,10,"Google No erreichbar"

endif

waitinput

Ein Problema, welches se a Tiempo auftut, Es el Tatsache el el Fensterinhalt no gelöcht se. Das heißt el "Server Erreichbar", "Client Erreichbar" y "Google Erreichbar" übereinander geschrieben voluntad, also brauche Yo una Möglichkeit el Inhalt la ventana después de cada Schritt a löschen. Dabei bin en

Kompilieren Marca Separación

Cls

gestoßen. Nutze Yo esta Möglichkeit antes o. después de "Server Erreichbar" se "Server Erreichbar" nada adecuado.

Für una kleine Hilfestellung wäre Yo muy dankbar.

Gracias
Tony

OS: Win XP/Debian
XProfan 10

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 3 -

Penguin
Tux

@tony
hm,
ne Yo glaub hinter el waitinput wäre el mejor aufgehoben.
Luego se nämlich sólo dein bildschirm con el ergebnissen adecuado.
y si una continuación una taste drückt erscheint el infotext.

como anregung para dein programm:
- el schrift en el ergebnisfenster es bastante langgezogen.puede ser tal vez ändern.
- super wäre lo auch todavía si la schrift rot wäre si la IP no erreichbar es.

Gut entonces werd Yo el veces así hacer y gucken qué passiert.

Um el Schrift voluntad Yo mich kümmern.
No antwortende IP´s voluntad ya rot gekennzeichnet, mach veces de www.google.de www.google.xy

OS: Win XP/Debian
XProfan 10

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

hier todavía una Vorschlag simplemente sólo así

Kompilieren Marca Separación

 $P+
SET("ERRORLEVEL",0)
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.6a
DATUM  20.07.2008    um  18:56 Uhr
VERWENDETE PROFANVERSION IST 11.0ß S16-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS VISTA
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
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 ping$="Antwort von":Ping%=1

    WEND

    CLOSE #3
    Assign #1,pingdatei1$
    Erase #1

EndProc

DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE TEXT1&
DECLARE TEXT2&
DECLARE TEXT3&
DECLARE TEXT4&
DECLARE TEXT5&
DECLARE EDIT1&
DECLARE EDIT2&
DECLARE EDIT3&
DECLARE EDIT4&
DECLARE EDIT5&
DECLARE EDIT6&
DECLARE BUTTON1&
DECLARE BUTTON2&
WINDOWSTYLE 63
WINDOWTITLE "Online Status"
WINDOW 167,154-302,267
SET("TRUECOLOR",1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
TEXT1& = CREATE("TEXT",%HWND,"Server",0017,0047,0070,0020)
TEXT2& = CREATE("TEXT",%HWND,"Client",0017,0077,0070,0020)
TEXT3& = CREATE("TEXT",%HWND,"Google",0017,0107,0070,0020)
TEXT4& = CREATE("TEXT",%HWND,"Prozess",0107,0017,0070,0020)
TEXT5& = CREATE("TEXT",%HWND,"Status",0197,0017,0070,0020)
EDIT1& = CREATE("EDIT",%HWND,"",0107,0047,0067,0020)
EDIT2& = CREATE("EDIT",%HWND,"",0107,0077,0067,0020)
EDIT3& = CREATE("EDIT",%HWND,"",0107,0107,0067,0020)
EDIT4& = CREATE("EDIT",%HWND,"",0197,0047,0067,0020)
EDIT5& = CREATE("EDIT",%HWND,"",0197,0077,0067,0020)
EDIT6& = CREATE("EDIT",%HWND,"",0197,0107,0067,0020)
BUTTON1& = CREATE("BUTTON",%HWND,"beenden",0017,0197,0265,0030)
BUTTON2& = CREATE("BUTTON",%HWND,"Status checken",0017,0157,0129,0030)
SETFOCUS(%HWND)
REPAINT

WHILENOT ENDE%

    WAITINPUT

    If %KEY=2

        ENDE%= 1

    ELSEIF %KEY=4

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        ende%=1

    ELSEIF GETFOCUS(BUTTON2&) BUTTON

        settext edit4&,""
        settext edit5&,""
        settext edit6&,""
        settext edit1&,"ermittele"
        settext edit2&,"wartend"
        settext edit3&,"wartend"
        Ping "127.0.0.1","PINGTEST.TXT","PING.BAT"

        if ping%=1

            settext edit4&,"erreicht"

        else

            settext edit4&,"fehler"

        endif

        settext edit1&,"fertig"
        settext edit2&,"ermittele"
        settext edit3&,"wartend"
        Ping "192.168.0.1","PINGTEST.TXT","PING.BAT"

        if ping%=1

            settext edit5&,"erreicht"

        else

            settext edit5&,"fehler"

        endif

        settext edit1&,"fertig"
        settext edit2&,"fertig"
        settext edit3&,"ermittele"
        Ping "https://www.google.de","PINGTEST.TXT","PING.BAT"

        if ping%=1

            settext edit6&,"erreicht"

        else

            settext edit6&,"fehler"

        endif

        settext edit3&,"fertig"

    <

s=s4 href='./../../function-references/XProfan/endif/'>ENDIF ENDWHILE

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Como kannich en efecto igual el código nehmen, aber como Yo selber en el Beine stellen voluntad. Über ne Gui kann Yo todos veces Gedanken hacer.

Yo werd entonces ahora veces el probieren, Yo el todo Tiempo ya porbieren voluntad.

OS: Win XP/Debian
XProfan 10

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Vollkommen richtige Einstellung! Aber como hier Fragen de wegen createtext y Co auftauchen, hättet Ihr ne poco Referenz

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Kompilieren Marca Separación

if equ(ping_1%,0)

    print Der Infotext

else

    print Alles OK
    oder einfach das else weglassen

Macht gar nichts, außer me 2 Error-Meldungen geben. Es, denke Yo, auch no Yo búsqueda, lo se spezifisch para el fehlgeschlagenen Schritt adecuado voluntad. Yo habe con gerade überlegt, dass uno después de el fehlgeschlagenen Schritt una Art Link a uno Hilfedatei conjunto podría.

Yo such veces en el Ayuda después de ner Möglichkeit Links su conjunto, pero yo hätte auch nichts dagegen, si hier schonmal alguien algo dazu escribir podría.

OS: Win XP/Debian
XProfan 10

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Syntaxfehler, Strinkonstanten son con " a umschliessen.

imprimir "Hallo Welt", no imprimir hallo welt.

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Usted hast ya otra vez el Anführungszeichen vergessen.
Kompilieren Marca Separación

print "Der Infotext"
print "Alles OK"e>

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stefan
Landsberg

@tony
sorry , He incluso no gesehen dass du para no erreichbar ya rot como farbe gewählt hast.

@rolf
Yo kann deinen quelltext (para glück) no uso, porque Yo profano 6.6 tener. Yo wills auch más bien incluso zusammenbasteln. y si yo nen monat dafür brauche

el erste fehlermaeldung el con beim ausführen adecuado se es, dass el befehl SET no bekannt es. soweit Yo weiß heißt lo en profano 6.6 auch todavía createtext y no simplemente create. trotzdem danke para deine mühe.

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

@Stefan
Sagte Yo ya, dass dies una super Einstellung es?

Como ya he dicho sólo a Referenz.
Naja para Glück aber sólo en el Bezug de Selbstmachen, oder? Denn qué es 6.6 porque ya gegen el aktuelle Versión *lol*

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stefan
Landsberg

sí Yo weiß el profano 6.6 gegenüber XProfan 11 viel weniger a bieten ha. aber al anfang reichts todavía locker de. si yo entonces sólo una bisschen mejor programa kann hole Yo tal vez el neuste version.

ne todavía pequeño frage: hast du tal vez de el object creator o ne- alte version el con profano 6.6 funktioniert oder muss Yo sólo sin auskommen?

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita