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]

Was für einen Bereich pingst du denn? 1 bis 255? Wenn ich den Haken bei Verbose rausnehme braucht er ca. 30 Sekunden dafür.

[engine]

Zitat von Luckie:

@engine: Kannst du mal debuggen, wo er aussteigt? Weil ich habe hier kein Windows2000 mehr und an der Arbeit auch nicht.

Delphi-Quellcode:

function dlgfunc(hDlg: hWnd; uMsg: dword; wParam: wParam; lParam: lParam): bool;
  stdcall;
  .
  .
  .
  case uMsg of....

Das Programmm läuft drei mal durch die Funktion "dlgfunc". Dabei hat uMsg den Wert 48, 2, 130


/Edit: erst lesen, dann schreiben [uMsg nicht immer 130]

[pacman1986]

Luckie wie viele threads benutzt du den ?

[Luckie]

Steht im ersten Posting: 25. Mit 255 verliert man etwas die Kontrolle und das Abbrechen dauert ewig. Wird außerdem auch angezeigt im der Statusleiste.

[pacman1986]

Zitat von Luckie:

Wird außerdem auch angezeigt im der Statusleiste.

hab ich gar net gesehen

[C.Schoch]

HI,
Bei mir erreicht die Progressbar das Ende und die Zeit stoppt obwohl dann nach einigen Sekunden noch ein Rechner hinzugefügt wird!

Addressraum: 192.168.0.0
192.168.0.255(4)

Wenn das bei den anderen nicht so ist dann schmeiß ich meinen Router weg. .

[Laufi]

Hallo

Also ich finde das programm sehr gut ich wollte auch schon mal so etwas machen.
Aber du solltest den titel noch korrigieren dass muss heissen Lucky Ping!

Liebe Grüsse
Euer Laufi

[pacman1986]

Zitat von C.Schoch:

HI,
Bei mir erreicht die Progressbar das Ende und die Zeit stoppt obwohl dann nach einigen Sekunden noch ein Rechner hinzugefügt wird!

Grund: Threads

Zitat von Laufi:

Hallo

Aber du solltest den titel noch korrigieren dass muss heissen Lucky Ping!

hasst du den namen des Autors schon gelesen

[jfheins]

Zitat von Luckie:

Was für einen Bereich pingst du denn? 1 bis 255? Wenn ich den Haken bei Verbose rausnehme braucht er ca. 30 Sekunden dafür.

Fast

Ich wollte so ... 10.2.0.0 bis 10.2.255.255 pingen ...

[Luckie]

Das Prinzip ist folgendes: Es werden die Threads erzeugt. Da ich ja mehrere habe, kann ich in einem Thread den Fortschritt nicht anzeigen, also wird in jedem Thread nach einem Ping eine globale Variable threadsicher inkrementiert mit InterLockExchangeIncrement. Diese Variable wird in einem Timer ausgelesen und visualisiert. Das hinzufügen der Items im Listview geschiet in einer CrtiticalSection, sag ich nur, falls jemand denkt ich hätte da was vergessen.

Eigentlich wird die betreffende Variable zum Schluss hochgezählt, aber anscheinend ist ein Thread noch nicht ganz fertig mit eintragen oder so, weshalb es passieren kann, dass noch ein Eintrag hinzugefügt wird, wenn er eigentlich schon fertig sein sollte.

@jfheins: Und da wunderst du dich?