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

Penguin
Tux

@tony
hm,
ne je glaub derrière dem waitinput wäre cela besser aufgehoben.
ensuite wird nämlich seulement dein bildschirm avec den ergebnissen angezeigt.
et si on ensuite une bouton drückt erscheint qui infotext.

comme anregung pour dein programm:
- qui schrift im ergebnisfenster ist assez langgezogen.peux on peut-être changement.
- super wäre es aussi encore si le schrift rouge wäre si le IP pas erreichbar ist.

bien ensuite werd je cela la fois so faire et gucken quoi passiert.

Um qui Schrift werde je mich kümmern.
pas antwortende IP´s volonté déjà rouge gekennzeichnet, mach la fois aus www.google.de www.google.xy

OS: Win XP/Debian
XProfan 10

20.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

ici encore un Vorschlag simple seulement so

Kompilieren Marque Séparation

 $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 citation

Absatzweise Citation Zeilenweise Citation

Penguin
Tux

là kannich oui aussi juste den Code prendre, mais là je es selber sur qui Beine se mettre veux. Über ne Gui peux je mir alle la fois Gedanken faire.

je werd ensuite maintenant la fois cela essayer, quoi je qui ganze Zeit déjà porbieren veux.

OS: Win XP/Debian
XProfan 10

20.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Vollkommen richtige Einstellung! mais là ici Fragen de à cause de createtext et Co auftauchen, hättet son ne kleine référence

20.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Penguin
Tux

Kompilieren Marque Séparation

if equ(ping_1%,0)

    print Der Infotext

else

    print Alles OK
    oder einfach das else weglassen

pouvoir gar rien, sauf mir 2 Error-Meldungen donner. c'est, denke je, aussi pas quoi je cherche, es soll spezifisch pour den fehlgeschlagenen Schritt angezeigt volonté. j'ai avec justement überlegt, dass on pour dem fehlgeschlagenen Schritt une Art Link trop einer Hilfedatei mettons pourrait.

je such la fois dans qui Aider pour ner Possibilité à gauche su mettons, mais je hätte aussi rien dagegen, si ici Schonmal quelqu'un quelque chose en supplément écrivons pourrait.

OS: Win XP/Debian
XProfan 10

20.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Syntaxfehler, Strinkonstanten sommes avec " trop umschliessen.

imprimer "Hallo Welt", pas imprimer allô monde.

20.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

tu as encore qui Anführungszeichen oublier qc.
Kompilieren Marque Séparation

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

20.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Stefan
Landsberg

@tony
sorry je hab gar pas gesehen dass du pour pas erreichbar déjà rouge comme la couleur gewählt la hâte.

@rolf
je peux deinen quelltext (heureusement) pas verwenden, weil je profan 6.6 hab. je wills aussi lieber selbst zusammenbasteln. et si je nen mois pour brauche

la première fehlermaeldung qui avec beim effectuer angezeigt wird ist, dass qui befehl SET pas bekannt ist. soweit je sais est es chez profan 6.6 aussi encore createtext et pas simple create. quand même merci pour deine mühe.

20.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

@Stefan
Sagte je bereits, dass ca une super Einstellung ist?

Comme je le disais seulement zur référence.
bof zum Glück mais seulement sur den Bezug de Selbstmachen, ou bien? car quoi ist 6.6 car déjà vers qui aktuelle Version *lol*

20.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Stefan
Landsberg

oui je sais cela profan 6.6 à XProfan 11 viel moins trop bieten hat. mais am anfang reichts encore locker aus. si je ensuite seulement un bisschen besser programmieren peux hole je mir peut-être qui neuste version.

encore ne kleine frage: la hâte du peut-être de dem object creator encore ne vieille version qui avec profan 6.6 funktioniert ou bien muss je arrêt sans auskommen?

20.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation