|
.版本 2
.支持库 iext2
.支持库 spec
.局部变量 起始IP, 文本型, , "0"
.局部变量 终止IP, 文本型, , "0"
.局部变量 段1, 整数型
.局部变量 段2, 整数型
.局部变量 段3, 整数型
.局部变量 段4, 整数型
.局部变量 p, 整数型
.局部变量 IPDZ, 文本型
.局部变量 _2进制起始IP, 文本型
.局部变量 _10进制IP, 整数型
.局部变量 终1, 整数型
.局部变量 终2, 整数型
.局部变量 终4, 整数型
.局部变量 终3, 整数型
.局部变量 _2进制终止IP, 文本型
.局部变量 _10进制终止ip, 整数型
.局部变量 次数, 整数型
起始IP = 分割文本 (IP编辑框1.地址, “.”, )
终止IP = 分割文本 (IP编辑框2.地址, “.”, )
段1 = 到整数 (起始IP [1])
段2 = 到整数 (起始IP [2])
段3 = 到整数 (起始IP [3])
段4 = 到整数 (起始IP [4])
终1 = 到整数 (终止IP [1])
终2 = 到整数 (终止IP [2])
终3 = 到整数 (终止IP [3])
终4 = 到整数 (终止IP [4])
_2进制起始IP = 进制_十到二 (段1) + 进制_十到二 (段2) + 进制_十到二 (段3) + 进制_十到二 (段4)
_10进制IP = 进制_二到十 (_2进制起始IP)
_2进制终止IP = 进制_十到二 (终1) + 进制_十到二 (终2) + 进制_十到二 (终3) + 进制_十到二 (终4)
_10进制终止ip = 进制_二到十 (_2进制终止IP)
次数 = _10进制终止ip - _10进制IP
.计次循环首 (次数, p)
段4 = 段4 + 1
.如果真 (段4 = 256)
段3 = 段3 + 1
段4 = 1
.如果真结束
.如果真 (段3 = 256)
段2 = 段2 + 1
.如果真结束
IPDZ = 到文本 (段1) + “.” + 到文本 (段2) + “.” + 到文本 (段3) + “.” + 到文本 (段4)
调试输出 (IPDZ)
.如果真 (IPDZ = IP编辑框2.地址)
跳出循环 ()
.如果真结束
.计次循环尾 ()
这里才是完整的。。 |
|