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

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.

Das scheint Usted vlt. sólo así, zeig veces el Code... (Codes puede ser auch simplemente después de [...]

hochladen - entonces costumbre uno aquí en el Beiträgen lediglich el URL para Code hinterlassen. )

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Welchen Code?

Es el de el besagten Expediente:

Moment...

[...]

OS: Win XP/Debian
XProfan 10

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Hm, Usted hast nichts al Code geändert, o ROC-Ereigniseditor eingegeben?
Dann muß Rolf wohl veces ran. Das hier kann natürlich no trabajo:
Kompilieren Marca Separación

PROC DIALOG  ---------------------------------------------------------------------------> Dialoganfang

    DECLARE DLG&, DIALOGENDE%
    DECLARE TEXT1&
    DECLARE BUTTON1&

    PROC DIALOG  ---------------------------------------------------------------------------> Dialoganfang

        DECLARE DLG&, DIALOGENDE%
        DECLARE TEXT1&
        DECLARE BUTTON1&

        PROC DIALOG  ---------------------------------------------------------------------------> Dialoganfang

            DECLARE DLG&, DIALOGENDE%
            DECLARE TEXT1&
            DECLARE BUTTON1&

            PROC DIALOG  ---------------------------------------------------------------------------> Dialoganfang

                DECLARE DLG&, DIALOGENDE%
                DECLARE TEXT1&
                DECLARE BUTTON1&
                DLG&=CREATE("DIALOG",%HWND,"Neues Fenster",51,135,640,500)
                USEFONT "MS Sans Serif",13,0,0,0,0
                SETDIALOGFONTa class=s2>1

Nochmal pregunta ne:
Was erwartest Usted Usted de dieser Procedimiento?
Kompilieren Marca Separación

PROC BUTTON1_ONCLICK

    GETMESSAGE
    waitinput

ENDPROC

Como se nämlich genau nix passieren.

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

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

*lol*
Nee como oben el Dialogproc aussieht, tener No programmiert. Wenn lo doch así ausgespuckt sería, wurde me jahrelang no Rückinfo gegeben y yo progge ROC doch sólo para el Katz.

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Also Yo tener ahora con Roc incluso encima el Actionwriter (Ereigniseditor) y sin veces a la oben ähnlichen Diálogo erstellt y en me kommt no solch una Errorcode heraus.

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dieter
Zornow

@Rolf
Das Tuve auch ya, el passiert meistens si du viele Elemente otra vez löschst, entonces kann así una Code rauskommen. Probiere auch veces una Choicebox a mover, entonces ellos weg.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Aha, es correcta schön, dass uno algo como veces dijo bekommt.
Apéndice: Yo erstelle erstelle erstelle zerstöre zerstöre zerstöre y alles restos en me korrekt. Shit.
Auch el Choicebox schieben y schieben y alles restos en el grünen Zona.

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Jörg Sellmeyer

Nochmal pregunta ne:
Was erwartest Usted Usted de dieser Procedimiento?
Kompilieren Marca Separación

PROC BUTTON1_ONCLICK

    GETMESSAGE
    waitinput

ENDPR

Como se nämlich genau nix passieren.

Durch el drücken de OK se el Hilfefenster otra vez geschlossen voluntad,. pero si el así no funktioniert, como entonces?

Yo habe el ROC-Ordner ahora simplemente veces gelöscht y ihn nocheinmal de el ZIP herausgeholt, el Expediente es nun weg - veces sehen si ahora qué se.

Editar: Puedo mein Ventana nun Testen, danke. Jetzt muss Yo sólo todavía herausfinden cómo hacerlo Ventana por clic de "OK" otra vez schließen kann.

OS: Win XP/Debian
XProfan 10

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

destroyWindow

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

oder direkt para Diálogo passend:
Kompilieren Marca Separación

PROC BUTTON1_ONCLICK

    DIALOGENDE%=1

ENDPRO

Como el Diálogo geschlossen voluntad se, necesidad Usted hier kein Waitinput y Co.
Como Usted a el Bucle siehst
Kompilieren Marca Separación

Sinestar encargado dialogende%

Solange Variable dialogende% en 0 es se esta Bucle durchlaufen. Setzt Usted nun Dialogende% en 1 Es el Condición para Diálogo final gebeben y el Bucle se verlassen.

Ergänze folgendes al Schluss, como Yo su ausgehe, dass el Diálogo como Hilfefenster en el Ventana principal erstellt wurde:
Kompilieren Marca Separación

WINDOWTITLE "DUMMY HAUPTFENSTER"
WINDOWSTYLE 63
WINDOW (%maxx-300),10-280,80
CLS RGB(0,0,0)
Color 10,0
PRINT "Bitte aufs Systemmenükreuz clic "
DIALOG Diálogo aufrufen!
FOLGENDES EINFÜGEN REICHT
DESTROYWINDOW(DLG&)

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Kompilieren Marca Separación

i%=Destroywindow(0)

así es no:
Kompilieren Marca Separación

PROC BUTTON1_ONCLICK

    GETMESSAGE
    i%=Destroywindow(0)

ENDPR

Ah, danke Rolf, ahora funktioniert lo.

Editar: Mit "Def @Show(1) @ShowWindow(@&(1), 1)" ,üsste Yo doch hinbekommen, el mein Ventana adecuado se, lo passiert aber otra vez nichts.

OS: Win XP/Debian
XProfan 10

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Tony: Usted musst aber auch el Ayuda una vez correcto lesen! DestroyWindow(0) kann no trabajo - mostrar correcto después de!

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

◄

1 2 3 456 7 8 9 10

►

Respuesta

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

23.780 Views

Untitled	vor 0 min.
Georg Teles	01.08.2023
Thomas Freier	06.10.2022
Langer	30.01.2021
Walter	29.01.2019
Más...

Themeninformationen

Dieses Thema ha 9 subscriber:

Penguin Tux (38x)

Rolf Koch (23x)

Stefan Landsberg (21x)

iF (14x)

Jörg Sellmeyer (6x)

Dietmar Horn (3x)

Sebastian Sprenger (2x)

Dieter Zornow (1x)

Paul Glatz (1x)

XProfan

Ping-Tool encima CMD

Respuesta

Tema opciones

23.780 Views

Themeninformationen

Política de Privacidad