多线程扫描论坛弱口令(delphi源码)

unit UtStartGetPW;

interface

uses
  Classes,UtGetuserPsd,sysutils;

type
  TStartGetPW = class(TThread)
  private
    { Private declarations }
  protected
    TS:TGetUnserPsd;
    procedure Execute; override;
  end;

implementation

uses UtMain;

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TStartGetPW.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TStartGetPW }

procedure TStartGetPW.Execute;
var
i:integer;
UNList:TStringList;
begin
  freeonterminate:=true;
  UNlist:=TStringList.Create;
  UNLIST.LoadFromFile('username.txt');
  for i:=0 to UNList.Count-1 do
  begin
     TS:=TGetunserpsd.Create(UNList.Strings[i],i);
     sleep(StrToInt(FmMain.Edit2.Text));       //不要太快，否则打不开网页
  end;
  { Place thread code here }
end;

end.

上一页  [1] [2] [3] [4] [5] 下一页