unit1.~pas

delphi,scanport duoxiancheng

//南域剑盟  WWW.98EXE.COM
//上兴雅座  qq:51992
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, ScanThread, ComCtrls;

const
  MAX_THREADS = 16;               //16 是单处理器的个人电脑好的保险数字。
  WM_THREADDONEMSG=WM_USER+99;
  WM_PORTSTATUS=WM_USER+100;

type
  TfrmMain = class(TForm)
    LblIPAddress: TLabel;
    txtIPAddress: TEdit;
    lblScanRange: TLabel;
    txtMinPort: TEdit;
    lblPorttoport: TLabel;
    txtMaxPort: TEdit;
    lblOpenPorts: TLabel;
    cmdStart: TButton;
    cmdStop: TButton;
    ListBox2: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    StatusBar1: TStatusBar;
    procedure cmdStartClick(Sender: TObject);
    procedure cmdStopClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMThreadDone(var Msg:TMessage); message WM_THREADDONEMSG;
    procedure WMPortStatus(var Msg:TMessage); message WM_PORTSTATUS;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  SocketMonkeys:Array[0..MAX_THREADS-1] of TPortScannerThread;
  ThreadsActive:integer;
  CurrEndPort,CurrPort,StartPort,EndPort:integer;
  TotalScanned:Integer;

implementation

{$R *.dfm}

//判断一个端口开着的或关闭
procedure TfrmMain.WMPortStatus(var Msg:TMessage);
var
  Line:string;
begin
  Line:='端口: ' + IntToStr(Msg.WParam);;
  if Msg.LParam=1 then
    Line:=Line+'; 开放!'
  else
    Line:=Line+'; 关闭.';
  ListBox2.Items.Add(Line);
  Inc(TotalScanned);
  Label6.Caption:=IntToStr(TotalScanned);
  Label6.Update;         
  Application.ProcessMessages;
end;

procedure TfrmMain.WMThreadDone(var Msg:TMessage);
var
  DeadThread:Integer;
begin
  Dec(ThreadsActive);
  DeadThread:=Msg.Wparam;
  SocketMonkeys[DeadThread]:=nil;
  if CMDStop.Enabled then
  begin

    SocketMonkeys[DeadThread]:=TPortScannerThread.Create(DeadThread,Handle,txtIPAddress.Text,CurrPort,CurrEndPort);
    inc(ThreadsActive);
    CurrPort:=CurrEndPort+1;
    CurrEndPort:=CurrEndPort+10;
    if CurrEndPort > EndPort then
      CurrEndPort:=EndPort;
  end;
  Application.ProcessMessages;
  Label3.Caption:=IntToStr(ThreadsActive);
  Label4.Caption:=IntToStr(CurrEndPort);
  Label6.Caption:=IntToStr(TotalScanned);
  Update;
end;

procedure TfrmMain.cmdStartClick(Sender: TObject);
var
  i:integer;
begin
  cmdStart.Enabled := false;
  cmdstop.Enabled := true;
  listbox2.items.clear;
  listbox2.Items.Add('开始扫描主机 ' + txtIPAddress.text);
  StartPort:=StrToInt(TxtMinPort.Text);
  EndPort:=StrToInt(TxtMaxPort.Text);
  CurrPort:=StartPort;
  CurrEndPort:=StartPort+10;
  if CurrEndPort > EndPort then
    CurrEndPort:=EndPort;
  ThreadsActive:=0;
  TotalScanned:=0;
  for i:=0 to MAX_THREADS-1 do
  begin
    SocketMonkeys[i]:=TPortScannerThread.Create(i,Handle,txtIPAddress.Text,CurrPort,CurrEndPort);
    inc(ThreadsActive);
    Label3.Caption:=IntToStr(ThreadsActive);
    Label4.Caption:=IntToStr(CurrEndPort);
    Label3.Update;
    Label4.Update;
    CurrPort:=CurrEndPort+1;
    CurrEndPort:=CurrEndPort+10;
    if CurrEndPort > EndPort then
      CurrEndPort:=EndPort;
    if CurrPort >= EndPort then
      break;
  end;
end;

procedure TfrmMain.cmdStopClick(Sender: TObject);
var
  i:integer;
begin
  cmdstart.Enabled := true;
  cmdstop.Enabled := false;
  for i:=0 to MAX_THREADS-1 do
    SocketMonkeys[i].Terminate;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
var
  templist:tstringlist;
begin
  if ThreadsActive > 0  then
    Showmessage('当前没有活动的分类!')
  else
  begin
    templist:=tstringlist.create;
    listbox2.items.beginupdate;
    try
      templist.assign(listbox2.items);
      templist.Sort;
      listbox2.items.clear;
      listbox2.Items.Assign(templist);
    finally
      listbox2.items.endupdate;
      templist.free;
    end;
  end;
end;

end.