当前位置: 首页 > 乱七八糟, 技术文档 > 正文
avatar

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

QQ图片20160316115215
手工捡漏注册域名,工作量实在太大了!

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;

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

本文固定链接: https://blog.yanhualou.com/jishu/672.html | 烟花楼博客
标签:

delphi 生成六数字极品域名:等您坐沙发呢!

发表评论

快捷键:Ctrl+Enter