论坛下的IP提取源码，求帮助。。。

庸人自扰，

昨天论坛下的IP提取的源码，不知什么原因不能批量验证，但是单个验证可以，不知道哪里错了，求大神修改

庸人自扰，

点验证没有反应{:soso_e154:}

红颜似水

看下点击验证后的命令撒  计次循环那出了问题麽?

庸人自扰，

[e]
.版本 2
.支持库 EThread
.支持库 iext

.子程序 _按钮2_被单击
.局部变量 m, 整数型

.如果 (按钮2.标题 ＝ “验证”)
    按钮2.标题 ＝ “停止”
.否则
    按钮2.标题 ＝ “验证”
.如果结束
启动线程 (&校验IP, m － 1, )
线程数 ＝ 线程数 ＋ 1
.判断循环首 (线程数 ≥ 30)
    .如果真 (按钮2.标题 ＝ “验证”)
        跳出循环 ()
    .如果真结束
    程序_延时 (500)
.判断循环尾 ()

.判断循环首 (线程数 ≠ 0)
    .如果真 (是否已创建 (_启动窗口) ＝ 假)
        返回 ()
    .如果真结束
    程序_延时 (500)
.判断循环尾 ()
信息框 (“验证结束”, 0, )
按钮2.标题 ＝ “验证”

.子程序 校验IP
.参数 a, 整数型
.局部变量 临时文本, 文本型
.局部变量 m, 整数型

CoInitialize (0)
临时文本 ＝ 到文本 (网页_访问 (“http://iframe.ip138.com/ic.asp”, 0, 超级列表框1.取标题 (a, 1) ＋ “:” ＋ 超级列表框1.取标题 (a, 2), , , , 30, , , , ))
.如果 (删全部空 (临时文本) ≠ “” 且 寻找文本 (临时文本, 本机IP, , 真) ＝ -1)
    超级列表框1.置标题 (a, 3, “成功”)
    n1 ＝ n1 ＋ 1
    标签7.标题 ＝ 到文本 (n1)
    m ＝ 通信测试 (超级列表框1.取标题 (a, 1), )
    超级列表框1.置标题 (a, 4, 选择 (m ＝ -1, “慢”, “快”))

.否则
    超级列表框1.置标题 (a, 3, “失败”)
    超级列表框1.置标题 (a, 4, “无效”)
    n2 ＝ n2 ＋ 1
    标签8.标题 ＝ 到文本 (n2)
.如果结束
线程数 ＝ 线程数 － 1
CoUninitialize ()
[/e]

补充内容 (2013-11-10 14:28):
大神们看看吧-。-

庸人自扰，

没人看看么

庸人自扰，

为什么只有下载没有回答呢{:soso_e154:}

helper

发点代理来测试哇

单色

看看。有办法了告诉你