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



Penguin
Tux
j'ai maintenant la fois "Def @Hide(1) @ShowWindow(@&(1), 0)" dans den d'autre bereich geschrieben et derrière elle ensuite den Code pour cela la fenêtre geschrieben. cela la fenêtre erscheint zwar, mais den Text aus dem Pingfenster kopiert es avec ins Hilfefenster
 


OS: Win XP/Debian
XProfan 10
21.07.2008  
 




Rolf
Koch
je s'il te plaît toi! Lese cette ganzen Fil de vorne jusqu'à hinten par!
j'écrivais en détails quoi trop DEF et Showwindow!
So venons wir sur keinen grünen Zweig.
Sezte maintenant nochmal Deinen kmpl. Code ici hin et attends jusqu'à il verbessert wurde - Du hörst malheureusement pas sur cela quoi Dir geschrieben wird. pas böse gemeint, mais si wir Tipps donner, s'il te plaît aussi daraus apprendre. OK?
 
21.07.2008  
 




Penguin
Tux
Stimmt, tu as droite. je werde aujourd'hui eh quelque chose länger sur rester. là allez cela.
 


OS: Win XP/Debian
XProfan 10
21.07.2008  
 




Jörg
Sellmeyer
Aussi devrait Du Dir qui Kurse dans qui Profanhilfe regarder, et versuchen qui Struktur trop comprendre, qui so un Programme hat.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
21.07.2008  
 



Jörg Sellmeyer
Jörg Sellmeyer
erstellst du alors une

a%=createText(...

musst Du es avant dem Programmende aussi wieder


cela halte je mais pour un Gerücht! si cela Elternfenster détruit wird reicht cela völlig...


je hatte cela simple seulement exprès pas juste "so" erwähnt. Grundsätzlich sollte on toujours daran penser, Dinge, quelle on erzeugt, aussi wieder trop freizugeben, besonders ensuite, si cet seulement "geborgt" sommes. (indépendant en cela Windows einem cela abnimmt et z.B. "wild" avec wm_destroy umsich wirft... *g*)
 
21.07.2008  
 




Dietmar
Horn
allô P(i/e)nguin,

Lade Dir pour den Anfang peut-être simple la fois meinen XProfan-Manager aus dem Télécharger-Bereich unserer Vereins-Page d'accueil runter  [...] 

justement pour XProfan-Débutant (aussi encore jusqu'à runter zur aktuellen Freeware-Version Profan² 6.6) scheint cela une wahre XProfan-Fundgrube trop son, comment mir mon XProfan-Schüler toujours wieder bestätigen. près de -zig Tools, DLL, PCUs, INCs, Quellcode-Helfern et sur 2000 Demo-Quellcodes findest Du dans diesem Manager so presque assez alles, quoi es aktuell dans qui XProfan-Szene gibt. et sogar plusieurs Einführungskurse (une sogar aus meiner plume - si aussi déjà quelque chose älter et peut-être. léger vieilli).

Salut
Dietmar
 
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V.  [...] 

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch:  [...] 
21.07.2008  
 




Penguin
Tux
je hab mir maintenant la fois euren XPM gedownloaded, de qui bekomme je maintenant cela Mot de passe? si je es de dir bekomme, wäre je très reconnaissant si du mir une nouvelle écrivons würdest.
 


OS: Win XP/Debian
XProfan 10
22.07.2008  
 




Dietmar
Horn
PM avec XPM-PWD de mir devrait chez Dir inzwischen arrivé son.

Salut
Dietmar
 
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V.  [...] 

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch:  [...] 
22.07.2008  
 




Penguin
Tux
Ok, qui XPM ist installiert et je suis justement dabei bich la fois bisschen afin de voyons.

trop dem réel Problem.

j'ai mir maintenant nocheinmal Rolfs Posts durchgelesen et viens immernoch seulement so large, cela cela la fenêtre zwar erscheint, mais qui Text vom Ergebnissfenster steht dans dem Hilfefesnter et c'est oui pas qui Sinn.
 


OS: Win XP/Debian
XProfan 10
22.07.2008  
 




Rolf
Koch
Ok, ensuite her avec Deinem kmpl. Code um la fois trop regarder. je vais en aus, dass Du wieder qui Handles verwechselst.
1x %hwnd et 1x Dlg&.
 
22.07.2008  
 




Penguin
Tux
ici seulement un Schnipsel  [...] 

j'ai mir justement encore la fois den Artikel trop %hWnd angeguckt et habe gemerkt, le moi %hWnd gar pas am anfang declariert habe. alors muss je le reste dans den Déclarer partie écrivons et ensuite avant den Befehl zum ouvrir des Hauptfensters - richtig?
 


OS: Win XP/Debian
XProfan 10
22.07.2008  
 




Rolf
Koch
Nagut bisschen geändert:
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 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 ping%=1

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

else

    TextColor RGB(255,0,0),-1
    DRAWTEXT 25,10,"Server Nicht erreichbar" wird ja auf dem Hauptfenster angezeigt!
    Du kannst ja auch nur ein Hauptfenster haben mit WINDOW x,x-y,y
    also hier ein createdialog oder createwindow als Unterfenster (Kindfenster)
    Declare btndlg&,dlgende%,dlg&
    dlg&=Create("Window",%hwnd,"Hilfe",10,10,500,400)
    btnDlg& = CreateButton(dlg&,"OK",10,10,120,30)

    WhileNot dlgende%

        WaitInput

        If GetFocus(btnDlg&)

            dlgende% = 1

        EndIf

    Endwhile

endif

waitinput  lieber oben chez ping%=1

et NEIN %hwnd musst Du pas declarieren, car % steht avant dem String hwnd - ist alors une feste Variable de Profan selbst! Sonst serait es hwnd% lauten

alors seulement un Hauptfenster avec %hwnd et Kindfenster per create("Dialogue"... ou bien create("WINDOW".... (siehe Aider) erstellen!
 
22.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.080 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