Programik do pingowania

0

Czesc
Niestety nie znam sie na programowaniu a potrzebowalbym bardzo prosty programik. Minowicie:
Programik do pingowania - chodzi o pingowanie kilku adresow IP z logowaniem. Np
pinguje adres : 194.204.159.1 i w pliku .txt zeby sie pojawial czas kiedy byl pingowany i czy ping doszedl czy nie , ewentualnie cos innego abym mogl wiedziec czy dane komp jest w necie czy nie.
Pisze o tym aby szlo kilka IP pingowac gdyz potrzebuje to do sprawdzenia czy w danej chwili na komputerze pingowanym nie bylo netu czy u mnie go nie bylo. Jakby rownoczesnie byly pingowane adresy np ten ktory potrzebuje i dodatkowo 194.204.159.1 ( DNS TPSA ) to bylbym pewny gdzie lezy wina.
Dodatkowe prosby:

  • kazde pingowane IP zeby sie zapisywalo do innego pliku .txt
  • czas odstepu pinga do wyboru lub ustawiony na 5 - 10 sekund
  • wielkosc pinga rowniez do wyboru lub domyslanie ustawiony na jakas minimalna wartosc : 64 bajty lub cos kolo tego, aby nie zapychac im lacza.

Jakby ktos mogl mi napisac taki programik to bylbym wdzieczny
Dla Was to 5 minut roboty - dla mnie 5 miesiecy :-)
Z gory dzieki za pomoc
pozdrawiam Lorek Leszek ( [email protected] )

0

Mozesz skorzystac z zjednego z dwoch komponentow...

Co do drugiego to masz przykład w DELPHI/DEMOS..

a propoS ICSa to tu jest moj skromny przyklad (nie dam glowy ze zadziala - u mnie dziala)

==============
PING - to komponent PING z ICS

procedure TMainfrm.UstawParametry;//wszystkie parametry pobiera z editow
begin
Ping.Address:=EdtHost.Text;
Ping.Size:=StrToInt(EdtSize.Text);
Ping.TTL:=StrToInt(EdtTTL.text);
Ping.Timeout:=StrToInt(EdtTimeOut.text);
end;

procedure TMainfrm.BtnPingClick(Sender: TObject);//tu rozpoczynamy pingowanie
begin
if EdtHost.Text'' then//jezeli wpisalismy adres IP do spingowania
begin
BlokujEdity;//edit.enabled:=false (zeby nic nie zmienic podczas pingowania
UstawParametry;//wywolujemy ustawienie parametrow
BtnPing.Enabled:=false;
end else begin
ShowMessage('Wpisz adres hosta');//to wyskakuje jezeli nie podamy zadnego adresu
end;
end;

//-----PROCEDURY WYSWIETLAJACE----------------
//zakladajac ze Status to TMemo

procedure TMainfrm.PingDnsLookupDone(Sender: TObject; Error: Word);
begin
if Error 0 then begin
Status.Lines.Add('Host nieznany + EdtHost.Text +');
Exit;
end;

Status.Lines.Add('Host ` + EdtHost.Text + ` jest ' + Ping.DnsResult);
Ping.Address := Ping.DnsResult;
Ping.Ping;

end;

procedure TMainfrm.PingEchoReply(Sender, Icmp: TObject; Error: Integer);
begin
if Error = 0 then
Status.Lines.Add('Nie moge spingować hosta (' + Ping.HostIP + ') : ' +
Ping.ErrorString)
else
Status.Lines.Add('Odebrano ' + IntToStr(Ping.Reply.DataSize) +
' bajtów od ' + Ping.HostIP +
' w ' + IntToStr(Ping.Reply.RTT) + ' msecs');
Status.Lines.Add('_______________________________________')
end;

procedure TMainfrm.PingEchoRequest(Sender, Icmp: TObject);
begin
Status.Lines.Add('Wysłano ' + IntToStr(Ping.Size) + ' bajtów do ' +
Ping.HostName + ' (' + Ping.HostIP + ')');
Status.Lines.Add('------')
end;

0

To ściagnij jak ci potrzebny!!.

1 użytkowników online, w tym zalogowanych: 0, gości: 1