么意思博客

手工捡漏注册域名，工作量实在太大了！ 一键生成极品域名，再通过其他代码实现对比到期域名！ 是不是爽多了！

手工捡漏注册域名，工作量实在太大了！

var
  kkkk:tstringlist;
  ss,nn,mm:integer;
begin
  kkkk:=tstringlist.Create;
  kkkk.Add('a');
  kkkk.Add('b');
  kkkk.Add('c');
  kkkk.Add('d');
  kkkk.Add('e');
  kkkk.Add('f');
  kkkk.Add('g');
  kkkk.Add('h');
  kkkk.Add('i');
  kkkk.Add('j');
  kkkk.Add('k');
  kkkk.Add('l');
  kkkk.Add('m');
  kkkk.Add('n');
  kkkk.Add('o');
  kkkk.Add('p');
  kkkk.Add('q');
  kkkk.Add('r');
  kkkk.Add('s');
  kkkk.Add('t');
  kkkk.Add('u');
  kkkk.Add('v');
  kkkk.Add('w');
  kkkk.Add('x');
  kkkk.Add('y');
  kkkk.Add('z');
  for ss:=0 to 9 do     //先生成前1数字域名
  begin
    for nn:=0 to kkkk.Count-1 do
    begin

      memo3.Lines.Add(inttostr(ss)+kkkk.Strings[nn]+inttostr(ss)+kkkk.Strings[nn]+inttostr(ss)+kkkk.Strings[nn]+'.com')
    end;         //9a9a9a
  end;

  for ss:=0 to 9 do     //先生成前1数字域名
  begin
    for nn:=0 to 9 do
    begin

      memo3.Lines.Add(inttostr(ss)+inttostr(nn)+inttostr(nn)+inttostr(nn)+inttostr(nn)+inttostr(nn)+'.com')
    end;         //988888
  end;

  for ss:=0 to 9 do     //先生成前1数字域名
  begin
    for nn:=0 to 9 do
    begin

      memo3.Lines.Add(inttostr(nn)+inttostr(nn)+inttostr(nn)+inttostr(nn)+inttostr(nn)+inttostr(ss)+'.com')
    end;         //888889
  end;

  for ss:=0 to 9 do     //先生成前1数字域名
  begin
    for nn:=0 to 9 do
    begin

      memo3.Lines.Add(inttostr(nn)+inttostr(nn)+inttostr(nn)+inttostr(nn)+inttostr(ss)+inttostr(ss)+'.com')
    end;         //888899
  end;

  for ss:=0 to 9 do     //先生成前1数字域名
  begin
    for nn:=0 to 9 do
    begin

      memo3.Lines.Add(inttostr(nn)+inttostr(nn)+inttostr(nn)+inttostr(ss)+inttostr(ss)+inttostr(ss)+'.com')
    end;         //888999
  end;

  for ss:=0 to 9 do     //先生成前1数字域名
  begin
    for nn:=0 to 9 do
    begin

      memo3.Lines.Add(inttostr(nn)+inttostr(nn)+inttostr(ss)+inttostr(ss)+inttostr(ss)+inttostr(ss)+'.com')
    end;         //889999
  end;

  for ss:=0 to 9 do     //先生成前1数字域名
  begin
    for nn:=0 to 9 do
    begin
      for mm:=0 to 9 do
      memo3.Lines.Add(inttostr(nn)+inttostr(nn)+inttostr(mm)+inttostr(mm)+inttostr(ss)+inttostr(ss)+'.com')
    end;         //889977
  end;

  for ss:=0 to 9 do     //先生成前1数字域名
  begin
    for nn:=0 to 9 do
    begin

      memo3.Lines.Add(inttostr(nn)+inttostr(ss)+inttostr(nn)+inttostr(ss)+inttostr(nn)+inttostr(ss)+'.com')
    end;         //898989
  end;

  for ss:=0 to 9 do     //先生成前1数字域名
  begin
    for nn:=0 to 9 do
    begin
      for mm:=0 to 9 do
      memo3.Lines.Add(inttostr(nn)+inttostr(ss)+inttostr(mm)+inttostr(nn)+inttostr(ss)+inttostr(mm)+'.com')
    end;         //889977
  end;

一键生成极品域名，再通过其他代码实现对比到期域名！
是不是爽多了！