Français
Forum

Ping-Tool sur CMD

 

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  
 




Sebastian
Sprenger
allô et herzlich willkommen, Tony!

Eigentlich gibt es juste plusieurs Opportunités. Le meilleur wäre pour chaque DrawText une autre Position trop prendre, z.B.
KompilierenMarqueSéparation
DrawText 25,40,"Server..."
DrawText 25,65,"Client..."
DrawText 25,90,"Google..."re>
Alternativ könntest du aussi

avant chaque Cls un WaitInput mettons ou bien
qui Textes avec Imprimer écrivons. (avec cela ersparst du dir zwar, neue Koordinaten ausdenken/-le calcul trop doit, es mais aussi à qui Schriftart FixedSys/Courier attaché).

Salut, Sebastian
 
Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32
Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM
Windows Me, 1.8 Ghz, 256 MB RAM
20.07.2008  
 




Rolf
Koch
il y a viele Opportunités. une schnelle ici:
KompilierenMarqueSéparation
declare pingstring$,ping$,ping%
set("truecolor",1)

proc clearsection

    parameters xx.x&,yy.y&
    TextColor RGB(255,255,255),RGB(255,255,255)
    DRAWTEXT xx.x&,yy.y&,Space$(150)

endproc

CLS
ping%=1

if ping%=1

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

else

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

endif

waitinput
clearsection 25,10 vorhandenen Bereich wieder überpinseln
waitinput
 
20.07.2008  
 




Penguin
Tux
merci pour qui schnellen répondre.

si je la première Possibilité verwende, serait es den Text doch seulement plus à droite écrivons, ou bien irre ichmich là?

avant "Cls" un "Waitinput" trop mettons klingt déjà besser, cela devrait appeler cela seulement une Eingabe gemacht volonté muss bevor quelque chose gelöscht wird.

Relatif à la "Print" hätte je, si es aucun Mühe pouvoir, gern nocheinmal quelque chose näher erklärt. alors cela avec den Schriften c'est moi déjà bien sûr.

qui zeite poste leuchtet mir là déjà plus un, je werde quelque chose experimentieren.

Éditer: qui möglichkeit de RoKo hat encore pas funktioniert, je werde la fois plus herumprobieren.
 


OS: Win XP/Debian
XProfan 10
20.07.2008  
 




Sebastian
Sprenger
non, pas plus pour à droite, mais plus pour unten.
chez DrawText musst du oui deux payons angegeben. la première steht pour qui X-Position (comment large à droite) et qui zweite pour qui Y-Position (comment large unten). si qui zweite numéro alors größer ist, wird qui Text aussi plus unten erscheinen.
KompilierenMarqueSéparation
drawtext 25,40,"Server erreichbar"
>
qui Unterschied entre DrawText et Imprimer ist, dass es cet beiden payons chez Imprimer pas gibt. si du écrivons würdest:
KompilierenMarqueSéparation
print "Server erreichbar"
print "Client erreichbar"
print "Google erreichbar"re>
erscheinen cet trois Zeilen automatisch untereinander.

oui c'est ca, plus rumprobieren hilft!
 
Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32
Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM
Windows Me, 1.8 Ghz, 256 MB RAM
20.07.2008  
 




Penguin
Tux
Ahhh...
KompilierenMarqueSéparation
drawtext 25,40,"Server erreichbar"
>

Funktioniert, es était seulement blöd de mir cela cela la fenêtre trop petite était , mais es commence oui chacun la fois petite à.

Ok, ensuite wäre mon erstes Problem gelöst et je suis mi cette Community très zufrieden.

je denke cela mon nächstes Problem pas longtemps sur sich attendre peut, alors s'il te plaît cette Fil encore pas schließen.
 


OS: Win XP/Debian
XProfan 10
20.07.2008  
 




Stefan
Landsberg
Hi,
irgendwie avons wir quoi gemeinsam.
je suis 14, et habe aussi avant dans den Sommerferien un Programme trop écrivons dass quelques Ping abfragen im Netzwerk pouvoir et anzeigt si qui angepingte ip erreichbar ist.

mon Problem ist seulement dass je encore pas so richtig zum Programmieren gekommen suis et jusqu'à jetz seulement cela PDF Handbuch gelesen hab dass chez Profan² 6.6 dabei était.

trop deiner frage avec dem drawtext et imprimer. j'ai cela jusqu'à jetz so gelöst, dass je avant dem imprimer befehl simple locate geschrieben hab. avec cela peux on ensuite aussi un x et une y koordinate angeben.

si je ensuite Schonmal dabei suis stell je mich aussi juste avant (@penguin: je hoffe tu as nix dagegen si je dass dans deinem Fil fais *liebguck* )

je suis Stefan, 14 Jahre vieux et va sur dans Gymnasium im Kreis Gütersloh.
 
20.07.2008  
 



Schaut la fois son Beide  [...] 
 
20.07.2008  
 




Penguin
Tux
Nächstes Problem:

je muss qui Schriftgöße eines Textes changement qui de "DrawText" ausgegeben wurde. cela fais je doch sûrement sur Koordinaten, si oui sur quelle?

Gibt es peut-être une liste avec souvent genutzten Befehlen? je muss oui sonst toujours wieder ici posten et cela trägt sicherlich pas zur Übersichtlichkeit des Threads chez.

merci
Tony

Edit:
KompilierenMarqueSéparation
UseFont "CANDARA",10,10,1,0,0
>
 


OS: Win XP/Debian
XProfan 10
20.07.2008  
 




Rolf
Koch
Gib dans qui Profanhilfe simple la fois Drawtext comme cherche un.
Votre Frage serait par Usefont geklärt.
 
20.07.2008  
 




Stefan
Landsberg
Salut,

je hab mich jetz la fois intensif avec cela beschäftigt et jusqu'à maintenant ist (seulement) dass ici raus gekommen:
KompilierenMarqueSéparation
declare ping%,status$,ip$

Proc Ping

    declare pingdatei1$, pingdatei2$, pingstring$, ping$
    Parameters ip$
    let pingdatei1$="PINGTEST.TXT"
    let pingdatei2$="PING.BAT"
    let pingstring$="PING.EXE",ip$,">",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

********************************************************************
Beschreibung:
Es gibt zwar schon eine schnelle und schöne Onlineabfrage über API,
aber leider gibt die Funktion nur 1 für Online zurück, wenn
man über ein Standart DFÜ eingewählt ist.
Diese Prozedur ist halt nur etwas langsamer aber man kann sogar DSL
(also - keine DFÜ-Verbindung) oder das alte T-Online u.s.w abfragen!!
Vielen Dank für den (von mir veränderten) Quelltext der Prozedur:
Rolf Koch - Rokosoftware - Koblenz 2002
----------------------------------------------------------------------
HIER JETZT DER AUFRUF DER PROZEDUR:
PING ADRESSE,ERGEBNISDATEI,BATCHDATEI
Parameter
1.) Webadresse - eine immer vorhandene wie www.nic.de
Wenn die Prozedur verwendet wird muss die Variable ping%
global deklariert werden. An diese Variable wird folgender Wert übergeben:
Erreichbarkeit der IP         ---        Wert
-------------------------------------------------------
Nicht Erreichbar                        0
Erreichbar                             1
********************************************************
let ip$=@input$("Welche IP soll überprüft werden?","IP abfrage","127.0.0.1")
ping ip$

if equ(ping%,1)

    let status$="Erreichbar"

else

    let status$="Nicht erreichbar"

endif

MessageBox(ip$"   -   "status$,
20.07.2008  
 




Paul
Glatz
du musst ip$ + " - " + status$ écrivons
 
20.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

23.606 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