LuckiePing

[Luckie]

Da ja anscheinend Ping Programme gerade Mode sind: http://www.delphipraxis.net/internal...ct.php?t=78344 will ich auch mal meine Version vorstellen. Gerechterweise, muss ich sagen, dass ich die Ping Unit von retnyg benutze. Das Programm ist OpenSource und nonVCL.

Anzeigen von:

• Computername
• IP
• MAC Adresse
• Domain
• Servertyp
• Betriebssystem
• Kommentar zum Rechner
• Antwortzeit

Features:

• Multithreaded
• Verbose Mode
• Rechner mit Freigaben haben ein ander4es Icon
• Doppelklick öffnet den Rechner im Explorer

To do:

• Benutzer kann Threadanzahl selber wählen (in vernünftigen Grenzen)
• Export in eine CSV Datei

Aktuelleversion 1.0.6.320:
Performance verbessert. Ich habe gerade eben innerhalb von 30 Sekunken ein ganzes Subnet durchgepingt. (Verbose war deaktiviert, damit er nicht alle Informationen ermittelt.)
Bugfixes.
Sourcen zur Aktuellenversione werden nachgereicht.

Aktuelle Version: 1.0.6.321:
Threads auf 25 begrenzt. Bei 255 Threads verliert man etwas die Kontrolle und es dauert ewig bis alle Threads beendet sind, wenn man abbricht, da viele Threads blockiert sind, wenn sie gerade Informationen zu den Rechnern ermitteln.

Aktuelle Version: 1.0.6.322:
Rechner mit Freigaben haben ein entsprechendes Icon.
Doppelklick öffnet den Rechner im Explorer

Aktuelle Version: 1.0.6.327:
Sekunden korrigiert, waren wirkölich etwas schnell.
Öffnen eine Rechners per Doppelklick oder Leertaste in einem eigenen Thread.

Aktuelle Version 1.0.0.7:
Vertauschte IP Adressen werden automatisch korrigiert
Vorerst die Final.

Aktueller Screenshot im Anhang.

[Luckie]

Ja den Effekt hatte ich zu Hause auch manchmal. Hier an der Arbeit ist mir das noch nicht passiert.

[Ben]

Hallo,

wäre schön, wenn du das Programm auch unter Windows 2000 lauffähig machen würdest. Ich habe das gleiche Problem wie die Herren weiter oben.

Mit freundlichen Grüßen,
Ben

[Luckie]

Wenn ich wüßte wie, dann gerne.

[glkgereon]

soll ich mal bei mir kompilieren und genauer debuggen?

[Luckie]

Ja das wäre nett. Ich habe nämlich kein Windows 2000 mehr.

[MrKnogge]

Abend Luckie,

vorab: Das Tool ist wiklich nützlich und hat sich richtig entwickelt
Zwei Vorschläge hätte ich aber noch:

• IP-Bereich auf aktuelles Subnet stellen
• Hints für die Statusbar (nicht jeder weis was die Symbole bedeuten

gruss

[glkgereon]

Also, wenn man das ganze unter Windows 2000 mit Delphi 2005 kompiliert, passiert zunächst einmal der selbe fehler...

Was genau passiert:

Nach den beiden "Main-Befehlen" (InitCommonControls und DialogBox) wird noch exakt 3mal dlgfunc aufgerufen...
Parameter:
1: uMsg:48 wParamverschieden) lParam:0
2: uMsg:2 wParam:0 lParam:0
3: uMsg:130 wParam:0 lParam:0
dann ist ende...

[Luckie]

Hm. Besten Dank auch wenn mir das jetzt nicht unbedingt weiterhilft.

[glkgereon]

Zitat von Luckie:

Hm. Besten Dank auch wenn mir das jetzt nicht unbedingt weiterhilft.

Welche Messages sind das denn?
Gibt es irgendwas anderes wonach man gucken könnte/sollte?

[phXql]

Zitat von Alfi001:

Zitat von glkgereon:

Endlich ein gleichgesinnter

Hi,

auch hier auf Windows 2000 + SP4 passiert beim Start nix. Beim Debuggen wird ein paar mal in den Messageloop gesprungen (dlgfuc, es kommen die Wert 48, 2 und 130 die jeweils mit false beantwortet werden)

Ciao,
Ralf

Bei mir das Selbe. Win2k mit SP4. Programm lässt sich nicht starten..