ufrmselectmref.pas

DAD2.0 上传下传DAD2.0 上传下传DAD2.0 上传下传DAD2.0 上传下传

unit ufrmSelectMRef;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ValEdit, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, cxGridCustomTableView, cxGridTableView,
  cxClasses, cxControls, cxGridCustomView, cxGridLevel, cxGrid, StdCtrls,
  ExtCtrls;

type
  TfrmSelectMRef = class(TForm)
    lstDomains: TMemo;
    Panel1: TPanel;
    Label1: TLabel;
    cmdOk: TButton;
    cmdCancel: TButton;
    cmdPF: TButton;
    mnuZL: TButton;
    cmdAddFakeDomain: TButton;
    txtLastAdd: TComboBox;
    txtFrom: TEdit;
    txtTo: TEdit;
    Label2: TLabel;
    procedure cmdOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdPFClick(Sender: TObject);
    procedure mnuZLClick(Sender: TObject);
    procedure cmdAddFakeDomainClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    m_strResult: string;
  end;

var
  frmSelectMRef: TfrmSelectMRef;

implementation

{$R *.dfm}

procedure TfrmSelectMRef.cmdOkClick(Sender: TObject);
begin
  m_strResult := lstDomains.Lines.Text;
  self.Close;
end;

procedure TfrmSelectMRef.FormShow(Sender: TObject);
var
  sl: TStringlist;
  i: integer;
  strLine: string;
  strReferer, strPer: string;
  npos: integer;
begin

  lstDomains.Text := m_strResult;
 

end;



procedure TfrmSelectMRef.cmdPFClick(Sender: TObject);
var
  i: integer;
  nFrom,nTo:integer;

begin
  nFrom := strtointdef(txtFrom.text,3);
  nTo := strtointdef(txtTo.text,10);
  for i := 0 to lstDomains.Lines.Count -1 do
  begin
      lstDomains.Lines[i] := lstDomains.Lines[i] + ' '+ inttostr(nFrom + random(nTo - nFrom));
  end;

end;

procedure TfrmSelectMRef.mnuZLClick(Sender: TObject);
var
  i: integer;
  nCount: integer;
  nPer: integer;
  n: integer;
  strReferer: string;
  s: string;
begin


  s :=  txtLastAdd.Text;



  for i := 0 to  lstDomains.Lines.Count -1 do
  begin
    strReferer := trim(LowerCase(lstDomains.Lines[i]));
    if strReferer <> '' then
    begin
      if pos('http://', strReferer) = 0 then
      begin
        lstDomains.Lines[i] := 'http://' + strReferer + s;
      end;
    end;
  end;

end;

procedure TfrmSelectMRef.cmdAddFakeDomainClick(Sender: TObject);
var
  i: integer;
  nCount: integer;
  nPer: integer;
  n: integer;
  strReferer: string;
  strIP:string;

begin

  strIP := inputbox('提示信息', '输入IP地址', '127.0.0.1');

  for i := 0 to lstDomains.Lines.Count -1 do
  begin
        strReferer:=       lstDomains.Lines[i];
       if pos('@',strReferer) >0 then
       begin
          delete(strReferer,pos('@',strReferer),9999);
       end;
         strReferer := strReferer + '@' + strIP;

          lstDomains.Lines[i]:= strReferer;


  end;


end;


procedure TfrmSelectMRef.cmdCancelClick(Sender: TObject);
begin
close;
end;

end.