Thema: IP Scanner

Einzelnen Beitrag anzeigen

Chrissi91

Registriert seit: 28. Jul 2005
849 Beiträge
 
#78

Re: IP Scanner

  Alt 4. Feb 2006, 18:08
Zitat von Neutral General:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
 Form1.BorderStyle := bsSingle;// Damit man nicht während dem Scanvorgang rumschieben kann
ListBox1.Clear;
Progressbar1.Position := 0;
Button2.Enabled := true;
Button1.Caption := 'Working...';
Button1.Enabled := false;
Netz := GetNetz;
for i:= 1 to 255 do begin
 try
  if Beenden then Exit; // wenn man auf das X klick um zu beenden dann wird Beende = true gesetzt
  Ping.Host := '192.168.' + IntToStr(Netz) + '.' + IntToStr(i);
  Ping.Ping();
 except
  
 end;
end;
// Wieder alles setzen wie es vorher war
Button1.Enabled := true;
Button2.Enabled := false;
Form1.BorderStyle := bsSizeable;
Button1.Caption := 'Scan IPs';
end;
Wobei ich gestehen muss das ich folgendes aus der DP "geklaut" und etwas
umgeschrieben hab:

Delphi-Quellcode:
function GetNetz: Byte;
var
  rSockVer : Word;
  aWSAData : TWSAData;
  szHostName : array[0..255] of Char;
  pHE : PHostEnt;
begin
  Result:= 0;
  rSockVer:=MakeWord(1, 1);
  WSAStartup(rSockVer, aWSAData );
  try
    FillChar(szHostName, SizeOf(szHostName), #0);
    GetHostName(szHostName, SizeOf(szHostName));
    pHE:=GetHostByName(szHostName);
    if (pHE<>nil) then with pHE^ do begin
      Result := Byte(h_addr^[2]);
     end;
  finally
    WSACleanup;
  end;
end;
Das hat er doch schon.
  Mit Zitat antworten Zitat