Français
Forum

Ping-Tool sur CMD

 
- page 1 -



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

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  
 



 
- page 4 -



Stefan
Landsberg
@dietmar
super ensuite lad je mir den la fois vite runter.

@tony
merci pour qui ermutigende la joie maligne

non scherz

@espace
irgendwie hab je cela sentiment dass tony et je ici qui halbe community sur trab tenir je hoffe cela nimmt uns aucun übel!
 
20.07.2008  
 




Penguin
Tux

KompilierenMarqueSéparation
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
à> waitinput

Hab "Zum finissons drücken vous s'il te plaît une beliebige Taste" la fois quelque chose plus beau gestaltet.

je werde la fois plus pour ner Opportunités chercher à gauche trop mettons.
 


OS: Win XP/Debian
XProfan 10
20.07.2008  
 




Stefan
Landsberg
so jetz ist qui schrift besser.
frage: quoi soll eigentlich qui abfrage de 127.0.0.1 apporter. soweit je sais ist cela qui eigene pc et dadurch IMMER erreichbar.

je suis chez meinem programm steckengeblieben weil je pas sais wohin je weitermachen soll. je hab jetz den object creator et hab avec cela un la fenêtre gestaltet. mais quoi je avec dem code en faire soll sais je pas. je sais aussi pas comment je inhalte de textfeldern abfrage ou bien buttons funktionen zuordne.
 
20.07.2008  
 




Penguin
Tux
cet IP`sind aussi seulement Test-IP`s qui qui Fonctionnalité montrer devoir. je pourrait maintenant aussi qui IP des Servers qui une école reinschmeißen, cela brungt chez mir trop Hause oui rien.

Solange je pas sais si cela avec den à gauche allez, versuche je mich nochmal à nem la fenêtre.

si je cela la fenêtre fertig hab, hab je doch une Code den je meinen Voir le texte source insérer muss cela serait je am liebsten avec "if" faire, là sich cela la fenêtre oui seulement ouvrir soll, si z.B. "Server NIcht Erreichbar" ist.

quoi muss je pour écrivons?

Éditer: j'ai mir maintenant überlegt mir ROC un la fenêtre trop construire, welches sur qui Hilfedatei verlinkt, mais en supplément besoin je oui wieder qui Funktion zum Verlinken sur une *.doc fichier. Im Internet habe je aussi rien trouvé, maintenant coutume je wirklich la fois Aider *liebguck*
 


OS: Win XP/Debian
XProfan 10
20.07.2008  
 




Stefan
Landsberg
déjà bien sûr, dass qui (interne) ip des schulservers jetz rien bringt. je dachte bloss du wolltest cela programm ensuite avec cette ips compilieren. mais si du vous auparavant änderst ist cela oui quoi d'autre

zum verlinken:
je denke la fois cela allez am einfachsten sur une button. comment cela oui c'est ca allez versuche ih mais aussi rauszufinden.

et ne doc fichier serait je ensuite seulement prendre si sur allen pcs qui une école garantiert word sur elle ist. ne alternative wäre (simple) un la fenêtre trop faire et là den text einzufügen (quelque chose comme ähnliches comment ne messagebox).
 
21.07.2008  
 




Penguin
Tux
Guten demain Stefan,

Word bzw. OpenOffice ist sur allen Rechnern installiert, mais alles dans un Messagebox trop stecken, halte je letztendlich aussi pour sinnvoller.

j'écris alors alles dans un la fenêtre et schreibe comme Aktion pour den Button simple "waitinput", cela devrait oui ensuite cela la fenêtre schließen.

Éditer: il me faut nocheinmal Aider beim Einrichten de ROC. Am Anfang werde ihc pour dem Standartinterpreter et einigen anderen Einstellungen gefragt. maintenant sais je pas wohin Je l' Interpreter finde et quelle qui anderen Optionen je am besten wähle.
 


OS: Win XP/Debian
XProfan 10
21.07.2008  
 




Stefan
Landsberg
so peux mans faire. et um deine frage trop qui si abfrage trop répondre, qui devrait meiner bescheidenen attitude pour
KompilierenMarqueSéparation
if equ(ping_1%,0)re>

ou bien
KompilierenMarqueSéparation
if ping_1%=0re>

lauten.

den interpreter findest du im installationsverzeichnis de (x)profan. wohin cela chez dir ist sais je pas. normalement im ordner Crogramme*ici qui nom des profan ordners*
 
21.07.2008  
 




Penguin
Tux
j'ai qui concept avec dem "if" ersteinmal chez page geschoben, weil es doch unnötig wäre. Solange je "if/else" habe peux je cela la fenêtre doch aussi encore trop "else" écrivons. si je maintenant Mist erzählt habe, suis je mich naturellement si mich quelqu'un verbessert.

Éditer: Den Interpreter habe je maintenant trouvé. veux je mais mon la fenêtre testen, bekomme je une Fehlermeldung (c'est encore qui Version de den Hilfedokumenten):

Bild:  [...] 
 


OS: Win XP/Debian
XProfan 10
21.07.2008  
 




Jörg
Sellmeyer
Tja, sieht aus, comme si D u irgendwo un ENDPROC oublier qc la hâte. à Deiner Stelle serait je plutôt encore un un peu "zu Fuß" programmieren, et cela la fenêtre sans grafische Aider aufbauen. Dabei lernst Du plus, comme si Du cela Programme zusammenklickst. si Du es doch fais, sieh Dir den erzeugten Code oui c'est ca à. là peux Vous la quantité sur qui Strukturierung eines Programmes apprendre.
Salut
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
21.07.2008  
 




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.
 


OS: Win XP/Debian
XProfan 10
21.07.2008  
 



@Tony: Fichiers (comment z.B. aussi Bilder) s'il te plaît ici hochladen, chez Drittanbietern c'est moi toujours unklar comment longtemps qui le contenu gehostet wird et dans quel la qualité. tu peux sur den Beitrageditor so viel hochladen comment Du vouloir, quoi aussi den Vorteil hat, dass Du une Downloadzähler angezeigt bekommst.
 
21.07.2008  
 




Penguin
Tux
je werde es mir merken
 


OS: Win XP/Debian
XProfan 10
21.07.2008  
 




répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

24.232 Views

Untitledvor 0 min.
Georg Teles01.08.2023
Thomas Freier06.10.2022
Langer30.01.2021
Walter29.01.2019
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie