XProfan

Français

Penguin
Tux

Salut,

je voudrais mich ersteinmal présenter. mon nom ist Tony, je suis 15 Jahre vieux et besuche une Realschule dans Chemnitz. là je maintenant Sommerferien habe et je rien plus trop 1faire habe, habe je mir vorgenommen un kleines Netzwerkanalysetool trop écrivons. sur qui cherche pour einer einfachen Programmiersprache suis je sur XProfan gestoßen.

j'ai alles nötige gedownloaded et installiert, anschließen habe je pour einem Pingcode gesucht et habe cette:

Kompilieren Marque Séparation

declare pingstring$,ping$,ping%
********************************************************************

Proc Ping

    Paramètres nic$,pingdatei1$,pingdatei2$
    let pingstring$="PING.EXE",nic$,">",pingdatei1$
    Assign #6,pingdatei2$
    Rewrite #6
    Imprimer #6,pingstring$
    Fermer #6
    WinExecwait(pingdatei2$,0)
    Assign #5,pingdatei2$
    Effacer #5
    ASSIGN #3,pingdatei1$
    RESET #3
    Ping%=0

    WHILENOT EOF(#3)

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

    WEND

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

ENDPROC

********************************************************************
Beschreibung:
Es gibt zwar déjà une schnelle et belle Onlineabfrage über API,
mais malheureusement gibt qui Funktion seulement 1 pour Online zurück, si
on über un Standart DFÜ eingewählt est.
cet Procédure ist arrêt seulement quelque chose langsamer mais on peux sogar DSL
(alors - aucun DFÜ-liaison) ou bien cela vieille T-Online u.s.w abfragen!!
alles avec einem Stern umrandete ist important pour qui Abfrage
Rolf Koch - Rokosoftware - Koblenz 2002
BEISPIEL
WINDOWSTYLE 31
Fenêtre 200,200-300,80
Windowtitle "Onlinstatus-Prüfung sans Api"
Couleur du texte RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
ICI JETZT DER AUFRUF DER PROZEDUR:********************
PING ADRESSE,ERGEBNISDATEI,BATCHDATEI
paramètre
1.) Webadresse - une toujours vorhandene comment www.nic.de
2.) Dateiname, dans quelle Pingergebnis geschrieben wird - wird wieder gelöscht!
3.) Dateiname, um Ping korrekt aufzurufen. - wird wieder gelöscht!
********************************************************
Couleur du texte RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10,"                                "
UseFont "TIMES NEW ROMAN",25,20,1,0,0
Couleur du texte RGB(0,0,255),-1
Ping "192.168.0.7","PINGTEST.TXT","PING.BAT"

si equ(ping%,1)

    DRAWTEXT 25,10,"Erreichbar"

d'autre

    DRAWTEXT 25,10,"Nicht erreichbar"

endif

waitinput

Diesen Code habe je mir pour meinen Bedürfnissen zurechtgeschnitten et il voit comment folgt aus. en supplément devrait je qui de mir ausgedachte Funktionsweise expliquer.

c'est geplant, dass je un Tool schreibe, welches possible simple une erste Aider pour Schüler et l'instituteur bietet. Bemerkt un User cela il keinen Internetzugang hat, führt il Tool aus, welches qui Reihe pour seulement den Server anpingt, ensuite une anderen Client im Netzwerk et ensuite encore une calculateur de außerhalb (z.B. Google). si es chez einer qui Schritte aucun Rückmeldung gibt, soll une annonce avec Tips zur Behebung sur dem Bildschrim erscheinen.

eh bien zum Code:

Kompilieren Marque Séparation

declare pingstring$,ping$,ping%

Proc Ping

    Paramètres nic$,pingdatei1$,pingdatei2$
    let pingstring$="PING.EXE",nic$,">",pingdatei1$
    Assign #6,pingdatei2$
    Rewrite #6
    Imprimer #6,pingstring$
    Fermer #6
    WinExecwait(pingdatei2$,0)
    Assign #5,pingdatei2$
    Effacer #5
    ASSIGN #3,pingdatei1$
    RESET #3
    Ping%=0

    WHILENOT EOF(#3)

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

    WEND

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

ENDPROC

WINDOWSTYLE 31
Fenêtre 200,200-500,80
Windowtitle "Onlinstatus-Prüfung sans Api"
Couleur du texte RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
Couleur du texte 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"

si equ(ping%,1)

    Couleur du texte RGB(0,255,0),-1
    DRAWTEXT 25,10,"Server Erreichbar"

d'autre

    Couleur du texte RGB(255,0,0),-1
    DRAWTEXT 25,10,"Server pas erreichbar"

endif

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

si equ(ping%,1)

    Couleur du texte RGB(0,255,0),-1
    DRAWTEXT 25,10,"Client Erreichbar"

d'autre

    Couleur du texte RGB(255,0,0),-1
    DRAWTEXT 25,10,"Client pas erreichbar"

endif

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

si equ(ping%,1)

    Couleur du texte RGB(0,255,0),-1
    DRAWTEXT 25,10,"Google Erreichbar"

d'autre

    Couleur du texte RGB(255,0,0),-1
    DRAWTEXT 25,10,"Google pas erreichbar"

endif

waitinput

un Problem, welches sich zur Zeit auftut, ist qui Tatsache cela qui Fensterinhalt pas gelöcht wird. cela est cela "Server Erreichbar", "Client Erreichbar" et "Google Erreichbar" übereinander geschrieben volonté, alors brauche je une Possibilité den le contenu des Fensters pour chaque Schritt trop effacer. Dabei suis sur

Kompilieren Marque Séparation

Cls

gestoßen. Nutze je cet Possibilité avant bzw. pour "Server Erreichbar" wird "Server Erreichbar" gar pas angezeigt.

Pour une kleine Hilfestellung wäre je très reconnaissant.

merci
Tony

OS: Win XP/Debian
XProfan 10

20.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 5 -

Penguin Tux

cela ENDPROC fehlt dans einer Dossier, qui im Dossier de ROC liegt. et à qui habe je rien gemacht. alors muss à quelque chose anderem liegen.

cela scheint Dir vlt. seulement so, zeig la fois den Code... (Codes peux on aussi simple pour [...]

hochladen - ensuite coutume on ici dans den Beiträgen lediglich qui URL zum Code hinterlassen. )

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Penguin
Tux

Welchen Code?

c'est qui aus qui besagten Dossier:

Moment...

[...]

OS: Win XP/Debian
XProfan 10

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Hm, tu as rien am Code geändert, ou bien im ROC-Ereigniseditor eingegeben?
ensuite doit Rolf wohl la fois ran. cela ici peux naturellement pas marcher:
Kompilieren Marque Séparation

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
                SETDIALOGFONTà class=s2>1

Nochmal ne Frage:
quoi erwartest Du Dir de cette Procédure?
Kompilieren Marque Séparation

PROC BUTTON1_ONCLICK

    GETMESSAGE
    waitinput

ENDPROC

là wird nämlich oui c'est ca nix passer.

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

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

*lol*
Nee so comment dessus qui Dialogproc aussieht, hab je cela mais pas programmiert. si es doch so ausgespuckt serait, wurde mir jahrelang aucun Rückinfo gegeben et je progge ROC doch seulement pour qui Katz.

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

alors je hab maintenant avec Roc sogar sur den Actionwriter (Ereigniseditor) et sans la fois une dessus ähnlichen Dialog erstellt et chez mir venez pas solch un Errorcode heraus.

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Dieter
Zornow

@Rolf
cela J'ai eu aussi déjà, cela passiert la plus part du temps si du viele Elemente wieder löschst, ensuite peux so un Code rauskommen. Probiere aussi la fois une Choicebox trop Déplacer, ensuite ist vous 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 citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Aha, ist richtig joli, dass on quelque chose comme la fois dit bekommt.
Nachtrag: je erstelle erstelle erstelle zerstöre zerstöre zerstöre et alles bleibt chez mir korrekt. Shit.
aussi qui Choicebox schieben et schieben et alles bleibt im grünen Bereich.

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Penguin
Tux

Jörg Sellmeyer

Nochmal ne Frage:
quoi erwartest Du Dir de cette Procédure?
Kompilieren Marque Séparation

PROC BUTTON1_ONCLICK

    GETMESSAGE
    waitinput

ENDPR

là wird nämlich oui c'est ca nix passer.

par cela drücken de OK soll cela Hilfefenster wieder geschlossen volonté,. mais si cela so pas funktioniert, comment ensuite?

j'ai den ROC-Dossier maintenant simple la fois gelöscht et ihn nocheinmal aus qui ZIP herausgeholt, qui Dossier ist eh bien weg - la fois voyons si es maintenant quoi wird.

Éditer: je peux mon la fenêtre eh bien Testen, merci. maintenant muss je seulement encore herausfinden comment on cela la fenêtre par klicken de "OK" wieder schließen peux.

OS: Win XP/Debian
XProfan 10

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

destroyWindow

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

ou bien direct zum Dialog convenable:
Kompilieren Marque Séparation

PROC BUTTON1_ONCLICK

    DIALOGENDE%=1

ENDPRO

là qui Dialog geschlossen volonté soll, besoin Du ici ne...aucune Waitinput et Co.
comment Du à qui Boucle vois
Kompilieren Marque Séparation

Whilenot dialogende%

Solange Variable dialogende% sur 0 steht wird cet Boucle durchlaufen. mets Du eh bien Dialogende% sur 1 ist l'état zum Dialog finissons gebeben et qui Boucle wird sortir de.

Ergänze folgendes am Schluss, là je en ausgehe, dass qui Dialog comme Hilfefenster sur dem Hauptfenster erstellt wurde:
Kompilieren Marque Séparation

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

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Penguin
Tux

Kompilieren Marque Séparation

i%=Destroywindow(0)

so ca va pas:
Kompilieren Marque Séparation

PROC BUTTON1_ONCLICK

    GETMESSAGE
    i%=Destroywindow(0)

ENDPR

Ah, merci Rolf, maintenant funktioniert es.

Éditer: avec "Def @Show(1) @ShowWindow(@&(1), 1)" ,üsste je es doch hinbekommen, cela mon la fenêtre angezeigt wird, es passiert mais wieder rien.

OS: Win XP/Debian
XProfan 10

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@Tony: Du musst mais aussi qui Aider einmal richtig lesen! DestroyWindow(0) peux pas marcher - exposition richtig pour!

21.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

◄

1 2 3 456 7 8 9 10

►

répondre

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

23.565 Views

Untitled	vor 0 min.
Georg Teles	01.08.2023
Thomas Freier	06.10.2022
Langer	30.01.2021
Walter	29.01.2019
plus...

Themeninformationen

cet Thema hat 9 participant:

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 sur CMD

répondre

Options du sujet

23.565 Views

Themeninformationen

protection des données