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 4 -

Stefan
Landsberg

@dietmar
super entonces lad Yo el veces rápidamente runter.

@tony
danke para el ermutigende schadenfreude

nein scherz

@all
irgendwie tener Yo el gefühl dass tony y yo hier el halbe community en trab halten

Yo hoffe el nimmt uns keiner übel!

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

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

WINDOWSTYLE 31
Window 200,200-500,180
Windowtitle "PiRePro by penguin"
TextColor RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
TextColor 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)

    TextColor RGB(0,255,0),-1
    DRAWTEXT 25,10,"Server Erreichbar"

else

    TextColor RGB(255,0,0),-1
    DRAWTEXT 25,10,"Server Nicht erreichbar"

endif

Hier Code für Fehlermeldung/Tipbox
Ping "192.168.0.1","PINGTEST.TXT","PING.BAT"

if equ(ping%,1)

    TextColor RGB(0,255,0),-1
    DRAWTEXT 25,40,"Client Erreichbar"

else

    TextColor RGB(255,0,0),-1
    DRAWTEXT 25,40,"Client Nicht erreichbar"

endif

Hier Code für Fehlermeldung/Tipbox
Ping "www.google.de","PINGTEST.TXT","PING.BAT"

if equ(ping%,1)

    TextColor RGB(0,255,0),-1
    DRAWTEXT 25,70,"Extern Erreichbar"

else

    TextColor RGB(255,0,0),-1
    DRAWTEXT 25,70,"Extern Nicht erreichbar"

endif

Hier Code für Fehlermeldung/Tipbox
Hier Code für Meldung des Erfolgs
TextColor RGB(0,0,0),-1
UseFont "CANDARA",15,10,1,0,0
DRAWTEXT 25,120,"Zum Beenden drücken Sie bitte eine beliebige Taste&quo

a> waitinput

Hab "Zum Beenden drücken Sie Por favor, una beliebige Taste" veces algo schöner gestaltet.

Yo voluntad veces más después de ner Möglichkeiten suchen Links a conjunto.

OS: Win XP/Debian
XProfan 10

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stefan
Landsberg

así jetz Es el schrift mejor.
frage: qué se eigentlich el abfrage de 127.0.0.1 bringen. soweit Yo weiß es el el propio pc y dadurch IMMER erreichbar.

Yo bin en mi programm steckengeblieben porque Yo no weiß wo Yo weitermachen se. Yo tener jetz el object creator y tener así una fenster gestaltet. aber Yo con el code su hacer se weiß Yo no. Yo weiß auch no Yo inhalte de textfeldern abfrage oder buttons funktionen zuordne.

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Diese IP`sind auch sólo Test-IP`s el el Funktionalität zeigen debería. Yo podría ahora el IP des Servers el Schule reinschmeißen, el brungt en me a Casa sí nichts.

Solange Yo no weiß si el con el Links va, versuche Yo mich otra vez a nem Ventana.

Wenn Yo el Ventana fertig tener, tener Todavía una Code el Yo media Ver código fuente einfügen muss el sería Yo al liebsten con "if" hacer, como se el Ventana sí sólo abierto se, si z.B. "Server NIcht Erreichbar" es.

Was muss Yo dafür escribir?

Editar: Yo habe me ahora überlegt me ROC una Ventana a bauen, welches en el Hilfedatei verlinkt, aber dazu necesidad Yo sí otra vez el Función para Verlinken en una *.doc datei. Im Internet Yo auch nichts gefunden, ahora costumbre Yo wirklich veces Ayuda *liebguck*

OS: Win XP/Debian
XProfan 10

20.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stefan
Landsberg

ya klar, dass el (interne) ip des schulservers jetz nichts bringt. Yo pensamiento bloss du wolltest el programm entonces con esta ips compilieren. pero si du ellos vorher änderst es el sí qué más

para verlinken:
Yo denke veces el va al einfachsten encima una button. como el genau va versuche ih aber auch rauszufinden.

y ne doc datei sería Yo entonces sólo nehmen si en allen pcs el schule garantiert word en él es. ne alternative wäre (simplemente) una fenster a hacer y como el texto einzufügen (algo como ähnliches como ne messagebox).

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Bueno Morgen Stefan,

Word o. OpenOffice es en allen Rechnern installiert, aber alles en un Messagebox a stecken, halte Yo letztendlich auch para sinnvoller.

Yo escribir also alles en una Ventana y escribir como Aktion para el Button simplemente "waitinput", el debería sí entonces el Ventana schließen.

Editar: Yo brauche nocheinmal Ayuda beim Einrichten de ROC. Am Anfang voluntad ihc después de el Standartinterpreter y algunos otro Einstellungen gefragt. Jetzt weiß Yo no wo Yo, el Interpreter finde y welche el otro Optionen Yo al besten wähle.

OS: Win XP/Debian
XProfan 10

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stefan
Landsberg

así kann mans hacer. y en deine frage a el if abfrage a beantworten, el debería meiner bescheidenen meinung después de
Kompilieren Marca Separación

if equ(ping_1%,0)re>

oder
Kompilieren Marca Separación

if ping_1%=0re>

lauten.

el interpreter findest du en el installationsverzeichnis de (x)profano. wo en el dir es weiß Yo no. normalerweise en el ordner C

rogramme*hier el name des profano ordners*

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Yo habe el Concepto con el "if" ersteinmal en Página geschoben, porque lo doch unnötig wäre. Solange Yo "if/else" habe kann Yo el Ventana doch auch todavía a "else" escribir. Wenn Yo ahora Mist erzählt habe, freue Yo mich natürlich si mich alguien mejorado.

Editar: Den Interpreter Yo ahora gefunden. Will Yo aber mein Ventana testen, bekomme Yo una Fehlermeldung (Es todavía el Versión de los Hilfedokumenten):

Bild: [...]

OS: Win XP/Debian
XProfan 10

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Tja, sieht de, como si D u irgendwo una ENDPROC vergessen hast. An Deiner Punto sería Yo más todavía una bischen "zu Fuß" programa, y el Ventana sin grafische Ayuda aufbauen. Dabei lernst Usted mehr, como si el Programa zusammenklickst. Si usted lo doch machst, sieh Usted el erzeugten Code genau a. Como kannst Es usted un Menge en Strukturierung uno Programmes aprender.
Saludo
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Das ENDPROC fehlt en uno Expediente, el en el Ordner de ROC liegt. Und a el Yo nichts gemacht. Also muss a algo anderem mentira.

OS: Win XP/Debian
XProfan 10

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Tony: Archivos (como z.B. auch Bilder) Por favor, hier hochladen, en Drittanbietern me está siempre unklar como largo el Inhalt gehostet se y welcher Qualität. Usted puede encima el Beitrageditor así viel hochladen como Usted möchtest, qué auch el Vorteil ha, dass Usted una Downloadzähler adecuado bekommst.

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Yo voluntad lo me merken