Foro | | | | | 
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 |
| | | | | | |
| | 
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ónAlternativ 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óndeclare 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
|
| | | | | | |
| |
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. |
| | | | | | |
| |
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ónDer Diferencia zwischen DrawText y Imprimir es, dass lo esta beiden Pagar en Imprimir no son. Wenn du escribir würdest:
KompilierenMarcaSeparaciónprint "Server erreichbar"
print "Client erreichbar"
print "Google erreichbar"re>
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
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. |
| | | | | | |
| | 
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. |
| | | | | | |
| |  | Schaut veces Ihr Beide [...]   |
| | | | | | |
| |
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 |
| | | | | | |
| |
Rolf
Koch | Gib en el Profanhilfe simplemente veces Drawtext como Búsqueda una.
Su Cuestión sería por Usefont geklärt. |
| | | | | | |
| |
Stefan
Landsberg | ¡Hola,
Yo tener mich jetz veces intensiv así beschäftigt y a ahora es (sólo) dass hier fuera gekommen:
KompilierenMarcaSeparacióndeclare 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 |
| | | | | | |
|
RespuestaTema opciones | 23.951 Views |
ThemeninformationenDieses Thema ha 9 subscriber: |
(270)
Deutsch
English
Français
Español
Italia