另外一种是设置头和尾生成的 DELPHI 的大家自己转换成VC吧 我转换好了呵呵
procedure TForm1.IPR(A1,A2,A3,A4,B1,B2,B3,B4:integer);
begin
repeat //循环 没有满足 until not一直循环
form1.ListBox1.Items.Add(format('%d.%d.%d.%d ',[A1,A2,A3,A4])); //添加listbox (把A!2AA3按照%d.%d.%d.%d 连接)
if form1.ListBox1.Items.Count> 3000 then //就是listbox的行数大于3000后就清空listbox
form1.ListBox1.Items.Clear ; //清空
inc(A4); //自加
if A4> 254 then //当a4 小与254
begin
A4:=1;//赋值
inc(A3); //自加
if A3> 255 then ////当a3 小与254
begin
A3:=1;//赋值
inc(A2); //自加
if A2> 255 then
begin
A2:=1;
inc(A1);
end;
end;
end;
Application.ProcessMessages ; //应该是同时值行下面的程序
until not((A4 < B4) Or (A3 < B3) Or (A2 < B2) Or (A1 < B1));
//就是判断a4有没有到B4还有A3到没到B3...排下去
end;
procedure TForm1.Button1Click(Sender: TObject);
var
BeginIP,endIP:integer;
begin
BeginIP:=IPStrToInt(trim(BeginIPed.text));
BIP:=@BeginIP; //开始IP
endIP:=IPStrToInt(trim(EndIPed.Text));
EIP:=@endIP;
IPR(BIP.a,BIP.b,BIP.c,BIP.d,EIP.a,EIP.b,EIP.c,EIP.d);