IP地址扫描程序 可自己判断网段

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { FStopScanFlag=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString IIp; AnsiString LocalIP=IdIPWatch1->LocalIP(); int IIndex=LocalIP.LastDelimiter("."); LocalIP=LocalIP.SubString(1,IIndex); for(int i=0;i<254;i++) { IIp=LocalIP+IntToStr(i+1); IdIcmpClient1->Host=IIp; IdIcmpClient1->Ping(); Application->ProcessMessages(); if(FStopScanFlag==true) { break; } } } //--------------------------------------------------------------------------- void __fastcall TForm1::IdIcmpClient1Reply(TComponent *ASender, const TReplyStatus &AReplyStatus) { if(AReplyStatus.ReplyStatusType==rsEcho) Memo1->Lines->Add(AReplyStatus.FromIpAddress); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { FStopScanFlag=true; } //---------------------------------------------------------------------------