Español
Foro

Ping-Tool encima CMD

 

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

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  
 




Sebastian
Sprenger
¡Hola y herzlich willkommen, Tony!

Eigentlich hay igual mehrere Möglichkeiten. El mejor wäre para cada DrawText una otro Position a nehmen, z.B.
KompilierenMarcaSeparación
DrawText 25,40,"Server..."
DrawText 25,65,"Client..."
DrawText 25,90,"Google..."re>
Alternativ könntest du auch

antes cada Cls una WaitInput conjunto oder
el Textos con Imprimir escribir. (Damit ersparst du dir zwar, neue Koordinaten ausdenken/-rechnen tener, bist aber auch a el Schriftart FixedSys/Courier gebunden).

Saludo, 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
Lo son viele Möglichkeiten. Un schnelle hier:
KompilierenMarcaSeparación
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
Gracias para el schnellen Respuesta.

Wenn Yo el erste Möglichkeit verwende, sería lo el Texto doch sólo contribuyen a rechts escribir, oder irre ichmich como?

Vor "Cls" una "Waitinput" a conjunto klingt ya mejor, el debería heißen el sólo una Eingabe gemacht voluntad muss bevor algo gelöscht se.

Relacionado con la "Print" hätte Yo, si no Mühe macht, gern nocheinmal algo näher erklärt. Also el con el Schriften me está ya klar.

Der zeite Post leuchtet me como ya mehr una, Yo voluntad algo experimentieren.

Editar: El möglichkeit de RoKo ha todavía no funktioniert, Yo voluntad veces más herumprobieren.
 


OS: Win XP/Debian
XProfan 10
20.07.2008  
 




Sebastian
Sprenger
Nein, no más después de rechts, pero más después de unten.
En DrawText musst du sí zwei Pagar angegeben. El erste es para el X-Position (como weit rechts) y el zweite para el Y-Position (como weit unten). Wenn el zweite Zahl also größer es, se el Texto auch más unten erscheinen.
KompilierenMarcaSeparación
drawtext 25,40,"Server erreichbar"
>
Der Diferencia zwischen DrawText y Imprimir es, dass lo esta beiden Pagar en Imprimir no son. Wenn du escribir würdest:
KompilierenMarcaSeparación
print "Server erreichbar"
print "Client erreichbar"
print "Google erreichbar"re>
erscheinen esta drei Zeilen automáticamente untereinander.

Exactamente, más 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...
KompilierenMarcaSeparación
drawtext 25,40,"Server erreichbar"
>

Funktioniert, lo war sólo blöd de me el Ventana a klein war , pero fängt sí Jeder veces klein a.

Ok, entonces wäre mein erstes Problema gelöst y yo bin mi dieser Comunidad muy zufrieden.

Yo denke el mein nächstes Problema no largo en se warten lässt, also Por favor, esta Hilo todavía no schließen.
 


OS: Win XP/Debian
XProfan 10
20.07.2008  
 




Stefan
Landsberg
Hi,
irgendwie haben wir qué gemeinsam.
Yo bin 14, y habe auch antes en el Sommerferien una Programa a escribir dass algunos Ping abfragen en el Netzwerk macht y anzeigt si el angepingte ip erreichbar es.

Mein Problema es sólo dass Todavía no así correcto para Programmieren gekommen bin y a jetz sólo el PDF Handbuch gelesen tener dass en Profano² 6.6 esta war.

a deiner frage con el drawtext y imprimir. Tengo el a jetz así gelöst, dass Yo antes el imprimir befehl simplemente locate geschrieben tener. así puede ser entonces auch una x y una y koordinate angeben.

Wenn Yo entonces schonmal esta bin stell Yo mich auch igual antes (@penguin: Yo hoffe du hast nix dagegen si yo dass en deinem Hilo mache *liebguck* )

Yo bin Stefan, 14 Jahre alt y geh en en Gymnasium en el Kreis Gütersloh.
 
20.07.2008  
 



Schaut veces Ihr Beide  [...] 
 
20.07.2008  
 




Penguin
Tux
Nächstes Problema:

Yo muss el Schriftgöße uno Textes ändern el de "DrawText" ausgegeben wurde. Das mache Todavía sicher encima Koordinaten, si sí encima welche?

Gibt lo tal vez una Liste con oft genutzten Befehlen? Yo muss sí sonst siempre otra vez hier puesto y el trägt sicherlich no a Übersichtlichkeit des Hilos en.

Gracias
Tony

Editar:
KompilierenMarcaSeparación
UseFont "CANDARA",10,10,1,0,0
>
 


OS: Win XP/Debian
XProfan 10
20.07.2008  
 




Rolf
Koch
Gib en el Profanhilfe simplemente veces Drawtext como Búsqueda una.
Su Cuestión sería por Usefont geklärt.
 
20.07.2008  
 




Stefan
Landsberg
¡Hola,

Yo tener mich jetz veces intensiv así beschäftigt y a ahora es (sólo) dass hier fuera gekommen:
KompilierenMarcaSeparación
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$ escribir
 
20.07.2008  
 




Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

24.324 Views

Untitledvor 0 min.
Georg Teles01.08.2023
Thomas Freier06.10.2022
Langer30.01.2021
Walter29.01.2019
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie