Forum | | | | - Seite 1 - |
| Penguin Tux | Hallo,
ich möchte mich ersteinmal vorstellen. Mein Name ist Tony, ich bin 15 Jahre alt und besuche eine Realschule in Chemnitz. Da ich jetzt Sommerferien habe und ich nichts weiter zu tun habe, habe ich mir vorgenommen ein kleines Netzwerkanalysetool zu schreiben. Auf der suche nach einer einfachen Programmiersprache bin ich auf XProfan gestoßen.
Ich habe alles nötige gedownloaded und installiert, anschließen habe ich nach einem Pingcode gesucht und habe diesen:
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
********************************************************************
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!!
alles mit einem Stern umrandete ist wichtig für die Abfrage
Rolf Koch - Rokosoftware - Koblenz 2002
BEISPIEL
WINDOWSTYLE 31
Window 200,200-300,80
Windowtitle "Onlinstatus-Prüfung ohne Api"
TextColor 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
Parameter
1.) Webadresse - eine immer vorhandene wie www.nic.de
2.) Dateiname, in welche Pingergebnis geschrieben wird - wird wieder gelöscht!
3.) Dateiname, um Ping korrekt aufzurufen. - wird wieder gelöscht!
********************************************************
TextColor RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10," "
UseFont "TIMES NEW ROMAN",25,20,1,0,0
TextColor RGB(0,0,255),-1
Ping "192.168.0.7","PINGTEST.TXT","PING.BAT"
if equ(ping%,1)
DRAWTEXT 25,10,"Erreichbar"
else
DRAWTEXT 25,10,"Nicht erreichbar"
endif
waitinput
Diesen Code habe ich mir nach meinen Bedürfnissen zurechtgeschnitten und er sieht wie folgt aus. Dazu müsste ich die von mir ausgedachte Funktionsweise erklären.
Es ist geplant, dass ich ein Tool schreibe, welches möglichst einfach eine erste Hilfe für Schüler und Lehrer bietet. Bemerkt ein User das er keinen Internetzugang hat, führt er das Tool aus, welches der Reihe nach erst den Server anpingt, dann einen anderen Client im Netzwerk und dann noch einen Rechner von außerhalb (z.B. Google). Wenn es bei einer der Schritte keine Rückmeldung gibt, soll eine Meldung mit Tips zur Behebung auf dem Bildschrim erscheinen.
Nun zum Code:
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,80
Windowtitle "Onlinstatus-Prüfung ohne Api"
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
Ping "192.168.0.1","PINGTEST.TXT","PING.BAT"
if equ(ping%,1)
TextColor RGB(0,255,0),-1
DRAWTEXT 25,10,"Client Erreichbar"
else
TextColor RGB(255,0,0),-1
DRAWTEXT 25,10,"Client Nicht erreichbar"
endif
Ping "www.google.de","PINGTEST.TXT","PING.BAT"
if equ(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
Ein Problem, welches sich zur Zeit auftut, ist die Tatsache das der Fensterinhalt nicht gelöcht wird. Das heißt das "Server Erreichbar", "Client Erreichbar" und "Google Erreichbar" übereinander geschrieben werden, also brauche ich eine Möglichkeit den Inhalt des Fensters nach jedem Schritt zu löschen. Dabei bin auf
gestoßen. Nutze ich diese Möglichkeit vor bzw. nach "Server Erreichbar" wird "Server Erreichbar" gar nicht angezeigt.
Für eine kleine Hilfestellung wäre ich sehr dankbar.
Danke Tony |
| | | | |
| | | | | - Seite 9 - |
| Rolf Koch | Hab mal meine Idee grade umgesetzt. Einiges ginge kürzer, aber es soll ja übersichtlich und einfach erklärt sein. Was Du noch machen musst: Passe den Code wieder zu Profanversion 6.6 an, da ich über den neusten Interpreter getestet habe und add, inc und co nicht mehr vorhanden sind und ich jetzt keine Zeit mehr habe. Eingabe durch Leerzeichen getrennt! Ausgabe des Ergebnis erfolgt wiederum ins Eingabefenster (könnte auch gesammelt angezeigt werden und nicht einzeln - wie gesagt Zeit zu knapp). Kann auch durch Schnelltippen sein, dass ich ne Kleinigkeit übersehen oder vergessen habe - Aber Du musst ja auch was dazu beitragen ^^
Declare-Teil:
declare ping%, btn%,ende%,ipedit&,ipinhalt$,i%
declare zeichen$,zeichenalt$
Proc-Teil:
Proc Ping
Ping%=0
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 ping$="Antwort von":Ping%=1
WEND
CLOSE #3
Assign #1,pingdatei1$
Erase #1
EndProc
Def-Teil:
DEF GetSysColor(1) !"User32","GetSysColor"
Fenster erstellen:
WindowStyle 63
WindowTitle "IP Checker"
Window @SUB(@DIV(%maxX,2),300),@SUB(@DIV(%maxY,2),250) - 600,500
Window 10,10-600,500
SetTrueColor 1
CLS GetSysColor(15)
ipedit&=@CreateMultiEdit(%HWnd,"",10,50,570,-200)
btn%=@CreateButton(%HWnd,"Überprüfen",250,260,100,30)
Whilenot ende%
waitinput
if clicked(btn%)
zeichen$=""
zeichenalt$=""
ipinhalt$=GetText$(ipedit&)
if mid$(ipinhalt$,len(ipinhalt$),1) <> " " sicherstellen Abschlusszeichen
ipinhalt$=ipinhalt$+" "
endif
i%=1
whilenot i% = len(ipinhalt$)+1
zeichen$=mid$(ipinhalt$,i%,1)
inc i%
if zeichen$ <> " "
zeichen$=zeichenalt$+zeichen$
zeichenalt$=zeichen$
else
ping zeichenalt$ Hier Ping Ergebnis
if ping%=1
settext ipedit&,zeichenalt$+" ist verfügbar"
else
settext ipedit&,zeichenalt$+" ist nicht verfügbar"
endif
zeichenalt$=""
endif
endwhile
endif
Endwhile
|
| | | | |
| | Stefan Landsberg | DANKE Rolf das einzige was Profan 6.6 bemängelt ist die funktion clicked. aber die hab ich einfach durch getfocus ersetzt.
hab mich jetz gründlich mit deinem Code befasst und hab ihn verstanden
jetz muss ich ihn nurnoch irgendwie umändern damit es meiner ist, und dann muss ich ihn in mein programm einarbeiten. |
| | | | |
| | Rolf Koch | Freut mich, dass Du es angenommen hast und diesen auch verstanden hast! |
| | | | |
| | Stefan Landsberg | Hallo,
ich habe jetz Rolfs code in mein programm eingebunden. als ich damit fertig war wollte ich nur noch das zeichen von leerzeichen auf absatz umändern. da ist mir aufgefallen, dass man das bei absätzen besser mit @getlinecount und @getline$ realisieren kann.
bis jetz sieht das bei mir so aus: [...]
aber irgendwie kommt das programm bei mir in ne endlosschleife und fäng, nachdem es den status der letzten ip ausgegeben hat, wieder von der ersten ip an. ich weiß aber einfach nicht wo mein fehler ist.
PS: das design plane ich zu verbessern.
Edit: bin jetz schon etwas weiter. der fehler liegt in zeile 56. @getlinecount(ipinput%) liefert eine zahl im millionenbereich. es ist also keine endlosschleife. sie dauert nur sehr lange! spass bei seite: warum gibts getlinecount so eine grosse zahl zurück? ich dachte es gibt die zeilenanzahl an. und die liegt bei meinen tests bei 2 bis 4. und nicht im millionenbereich! |
| | | | |
| | | Stefan Löwen
bin jetz schon etwas weiter. der fehler liegt in zeile 56. @getlinecount(ipinput%) liefert eine zahl im millionenbereich. es ist also keine endlosschleife. sie dauert nur sehr lange! spass bei seite: warum gibts getlinecount so eine grosse zahl zurück? ich dachte es gibt die zeilenanzahl an. und die liegt bei meinen tests bei 2 bis 4. und nicht im millionenbereich!
Und genau das ist z.B. ein völlig neues Thema - mit einem eigenen Minimalbeispiel. ;) |
| | | | |
| | Stefan Landsberg | meinst du ich soll einen neuen thread eröffnen oder was wolltest du mir sagen? |
| | | | |
| | | Ja, bitte. |
| | | | |
| | Stefan Landsberg | profan hat was gegen mich. jetz war ich schon dabei mein problem in einem neuen thread zu schildern und wollte den code posten. Da hab ich das programm noch einmal schnell durchlaufen lassen, und was passiert?!?
@GetLineCount gibt den richtigen Wert zurück
naja, ich freu mich lieber, dass es jetz geht und mache weiter. ich will am ende der 6 seiten noch mein erstes programm präsentieren |
| | | | |
| | | Exakt deshalb meine Bitte zum neuen Thread - dort wird man darauf hingewiesen ein [...] abzuliefern - ließ mal bis zum Ende und lach... |
| | | | |
| | Stefan Landsberg | die geschichte mit dem minimalbeispiel von Roland Hennrich kenn ich schon
Aber ich hatte das Programm vorhin mindestens 5 mal getestet und @getlinecount war kaputt
und ich wollte kein minimal beispiel posten, sondern den kompletten code (kann man aber auch minimal nennen ) hab also nichts verändert und auf einmal gings.
naja ich darf nicht so viel schreiben, sonst krieg ich mein programm nicht mehr auf seite 6 |
| | | | |
| | | Ich fand "Roland Hennrich" passt... |
| | | | |
| | | | - Seite 10 - |
| | Stefan Landsberg | irgendwie is tmir das zu unübersichtlich geworden. Deshalb dachte ich ich mache hier weiter: [...]
hoffentlich störs keinen. |
| | | | |
|
AntwortenThemenoptionen | 23.558 Betrachtungen |
ThemeninformationenDieses Thema hat 9 Teilnehmer: |