多线程验证数组

孙来扣 · 发表于 2016-4-11 11:42:59

我现在就是多线程验证数组，验证成功加入另一个数组。怎么解决，求代码，我写的代码数组有问题

mm758mm · 发表于 2016-4-11 11:43:00

孙来扣发表于 2016-4-11 13:33
支fu宝多少啊，转点钱给你

你采纳就可以啦

mm758mm · 发表于 2016-4-11 12:20:04

有附件吗上传一下我下载看看

孙来扣 · 发表于 2016-4-11 12:23:37

mm758mm 发表于 2016-4-11 12:20
有附件吗上传一下我下载看看

ip_待验证ip_可用
这都是动态的

子程序名	返回值类型	公开	备注
读取ip

启动时候判断，如果本地有IP就读取
数组清零 (ip_待验证)
数组清零 (ip_可用)
_启动窗口.禁止＝真
_启动窗口.标签_可用IP.标题＝ “亲稍等。。。”
ip_待验证＝分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\ip.ini”)), #换行符, )
多线程＝真
调试输出 (“数组成员”)
调试输出 (取数组成员数 (ip_待验证))
线程_启动 (&验证IP)

子程序名	返回值类型	公开	备注
验证IP

变量名	类型	静态	数组	备注
索引	整数型

线程数＝ 1
索引＝ 1
' 重定义数组 (ip_可用, 真, )

如果真 (索引 ≤ 取数组成员数 (ip_待验证))

' 许可证＝创建进入许可证 ()

判断循环首 (索引 ≤ 取数组成员数 (ip_待验证) 且线程数 ≤ 线程数量)

线程_启动 (&验证ip多线程, 索引)

索引＝索引＋ 1

线程数＝线程数＋ 1

程序_延时 (20)

处理事件 ()

判断循环尾 ()
' 线程_销毁 (线程_取自线程句柄 ())
IP数量 ()

子程序名	返回值类型	公开	备注
验证ip多线程
参数名	类型	参考	可空	数组	备注
索引	整数型

变量名	类型	静态	数组	备注
存活IP	文本型

' 进入许可区 (许可证)
调试输出 (索引)
存活IP ＝网页_访问S (“https://m.baidu.com/”, 0, , , , , , , , , ip_待验证 [索引], , , 1)

如果真 (寻找文本 (存活IP, “baidu”, , 假) ＝ -1)

加入成员 (ip_可用, ip_待验证 [索引])

线程数＝线程数－ 1
' 退出许可区 (许可证)
线程_销毁 (线程_取自线程句柄 ())

子程序名	返回值类型	公开	备注
IP数量

' 调试输出 (取数组成员数 (ip_可用))

如果 (取数组成员数 (ip_可用) ＜ 10)

获取IP ()

_启动窗口.标签_可用IP.标题＝ “可用IP” ＋到文本 (取数组成员数 (ip_可用)) ＋ “个”

_启动窗口.禁止＝假

' 线程_销毁 (线程句柄)

子程序名	返回值类型	公开	备注
获取IP

变量名	类型	静态	数组	备注
ip	文本型
读取	文本型

' 调试输出 (“获取”)
读取＝到文本 (读入文件 (取运行目录 () ＋ “\ip.ini”))
ip ＝网页_访问S (“IP订单”)
调试输出 (ip)
' ip ＝ “102.222.123.1233:90” ＋ #换行符＋ “223.3.12.34:89” ＋ #换行符
写到文件 (取运行目录 () ＋ “\ip.ini”, 到字节集 (读取＋ ip ＋ #换行符 ))
置文件属性 (取运行目录 () ＋ “\ip.ini”, 2)
数组清零 (ip_待验证)
ip_待验证＝分割文本 (ip, #换行符, )
线程_启动 (&验证IP)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
ip_待验证ip_可用<br />
这都是动态的<br />
.子程序 读取ip<br />
启动时候判断，如果本地有IP就读取<br />
数组清零 (ip_待验证)<br />
数组清零 (ip_可用)<br />
_启动窗口.禁止 ＝ 真<br />
_启动窗口.标签_可用IP.标题 ＝ “亲稍等。。。”<br />
ip_待验证 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\ip.ini”)), #换行符, )<br />
多线程 ＝ 真<br />
调试输出 (“数组成员”)<br />
调试输出 (取数组成员数 (ip_待验证))<br />
线程_启动 (&验证IP)<br />
<br />
.子程序 验证IP<br />
.局部变量 索引, 整数型<br />
<br />
线程数 ＝ 1<br />
索引 ＝ 1<br />
' 重定义数组 (ip_可用, 真, )<br />
.如果真 (索引 ≤ 取数组成员数 (ip_待验证))<br />
    ' 许可证 ＝ 创建进入许可证 ()<br />
    .判断循环首 (索引 ≤ 取数组成员数 (ip_待验证) 且 线程数 ≤ 线程数量)<br />
<br />
        线程_启动 (&验证ip多线程, 索引)<br />
        索引 ＝ 索引 ＋ 1<br />
        线程数 ＝ 线程数 ＋ 1<br />
        程序_延时 (20)<br />
        处理事件 ()<br />
    .判断循环尾 ()<br />
<br />
.如果真结束<br />
' 线程_销毁 (线程_取自线程句柄 ())<br />
IP数量 ()<br />
<br />
.子程序 验证ip多线程<br />
.参数 索引, 整数型<br />
.局部变量 存活IP, 文本型<br />
<br />
' 进入许可区 (许可证)<br />
调试输出 (索引)<br />
存活IP ＝ 网页_访问S (“https://m.baidu.com/”, 0, , , , , , , , , ip_待验证 [索引], , , 1)<br />
.如果真 (寻找文本 (存活IP, “baidu”, , 假) ＝ -1)<br />
    加入成员 (ip_可用, ip_待验证 [索引])<br />
.如果真结束<br />
<br />
线程数 ＝ 线程数 － 1<br />
' 退出许可区 (许可证)<br />
线程_销毁 (线程_取自线程句柄 ())<br />
<br />
.子程序 IP数量<br />
<br />
' 调试输出 (取数组成员数 (ip_可用))<br />
.如果 (取数组成员数 (ip_可用) ＜ 10)<br />
    获取IP ()<br />
.否则<br />
    _启动窗口.标签_可用IP.标题 ＝ “可用IP” ＋ 到文本 (取数组成员数 (ip_可用)) ＋ “个”<br />
    _启动窗口.禁止 ＝ 假<br />
    ' 线程_销毁 (线程句柄)<br />
.如果结束<br />
<br />
<br />
<br />
.子程序 获取IP<br />
.局部变量 ip, 文本型<br />
.局部变量 读取, 文本型<br />
<br />
' 调试输出 (“获取”)<br />
读取 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\ip.ini”))<br />
ip ＝ 网页_访问S (“IP订单”)<br />
调试输出 (ip)<br />
' ip ＝ “102.222.123.1233:90” ＋ #换行符 ＋ “223.3.12.34:89” ＋ #换行符<br />
写到文件 (取运行目录 () ＋ “\ip.ini”, 到字节集 (读取 ＋ ip ＋ #换行符))<br />
置文件属性 (取运行目录 () ＋ “\ip.ini”, 2)<br />
数组清零 (ip_待验证)<br />
ip_待验证 ＝ 分割文本 (ip, #换行符, )<br />
线程_启动 (&验证IP)