多线程POST问题求助，

小白熊

                                  下面是多线程的执行代码，出错的地方是提交注册返回的是空文本，
                         而提交注册这个子程序并没有错，（我试过） ，求大神看下是不是多线程写错了
                        感谢大神回复，我第一次用多线程，不怎么会，也没看过教程 - - - -就看了一个示例，
                 如果有大神感觉JB少了，就请带上答案，和JB数量，我会转给你，再次感谢回复的所以人 - - -- - -  


[e]
.版本 2.支持库 spec.支持库 shell.子程序 开始.局部变量 计次, 整数型.局部变量 w, 文本型.局部变量 线程ID, 整数型.局部变量 r, 文本型.局部变量 u, 文本型.局部变量 cs, 整数型.局部变量 ipcs, 整数型计次 ＝ 0w ＝ 到文本 (读入文件 (取运行目录 () ＋ “\xcs.txt”)).判断循环首 (取数组成员数 (账号1) ＞ 计次)    .判断开始 (到整数 (w) ＞ 线程数)        线程ID ＝ 线程_启动 (&主工作, , 线程ID)        .判断开始 (线程ID ≠ 0)            计次 ＝ 计次 ＋ 1            线程数 ＝ 线程数 ＋ 1            cs ＝ cs ＋ 1            r ＝ 到文本 (读入文件 (取运行目录 () ＋ “\ipdaili.txt”))            .判断开始 (寻找文本 (r, “真”, , 假) ≠ -1)                .判断开始 (换ip)                    .判断开始 (ipcs ＝ 取数组成员数 (ip))                        ipcs ＝ 0                    .默认                    .判断结束                    ipcs ＝ ipcs ＋ 1                    取消代理 ()                    设置代理 (ip [ipcs])                    lb [3].置数据 (ipcs, 3, “正在使用”)                .默认                .判断结束                u ＝ 到文本 (读入文件 (取运行目录 () ＋ “\cishu.txt”))                .判断开始 (到整数 (u) ＝ cs)                    .判断开始 (ipcs ＝ 取数组成员数 (ip))                        ipcs ＝ 0                    .默认                    .判断结束                    ipcs ＝ ipcs ＋ 1                    取消代理 ()                    设置代理 (ip [ipcs])                    lb [3].置数据 (ipcs, 3, “正在使用”)                .默认                .判断结束            .默认            .判断结束        .默认        .判断结束    .默认        延迟 (5000)    .判断结束.判断循环尾 ()表项记录 ＝ 0写到文件 (取特定目录 (3) ＋ “\已注册账号.txt”, 到字节集 (成功))删除文件 (取运行目录 () ＋ “\tuer.txt”)鸣叫 ()线程_销毁 (总线程ID)信息框_皮肤 (_启动窗口.取窗口句柄 (), “已全部注册完成并写出至桌面！”, #确认钮, “确认”)
[/e][e]
.版本 2.支持库 eAPI.支持库 iext.子程序 主工作.局部变量 w, 文本型.局部变量 验证码识别结果, 文本型.局部变量 验证码ID, 整数型.局部变量 图片, 字节集.局部变量 e, 文本型.局部变量 返回wb, 文本型.局部变量 r, 文本型.局部变量 u, 文本型.局部变量 其他错误, 整数型.局部变量 p, 文本型.局部变量 局部表项记录, 整数型表项记录 ＝ 表项记录 ＋ 1局部表项记录 ＝ 表项记录lb [1].置数据 (局部表项记录, 4, “开始工作”, )e ＝ 到文本 (读入文件 (取运行目录 () ＋ “\qkcookie.txt”)).判断开始 (寻找文本 (e, “真”, , 假) ≠ -1)    删除临时文件 (#接口常量.存根文件)    删除临时文件 (#接口常量.IE临时文件)    清除历史记录 (#接口常量.浏览器历史地址记录)    清除历史记录 (#接口常量.浏览网址历史记录).默认.判断结束w ＝ 到文本 (读入文件 (取运行目录 () ＋ “\UUlogin.txt”)).判断开始 (寻找文本 (w, “真”, , 假) ≠ -1)    图片 ＝ 获取验证码 ()    验证码识别结果 ＝ 取空白文本 (30)    验证码ID ＝ recognizeByCodeTypeAndBytes (图片, 取字节集长度 (图片), 1004, 验证码识别结果)    验证码1 ＝ 验证码识别结果.默认    线程_进入许可区 (临界区)    载入 (窗口1, , 真)    线程_退出许可区 (临界区).判断结束返回wb ＝ 提交注册 (账号1 [局部表项记录], 密码 [局部表项记录], 验证码1)写到文件 (取运行目录 () ＋ “\1234.txt”, 到字节集 (返回wb)).判断开始 (寻找文本 (返回wb, “true”, , 假) ≠ -1)    成功记录 ＝ 成功记录 ＋ 1    lb [1].置数据 (局部表项记录, 4, “注册成功”, )    透明标签8.标题 ＝ “注册成功：” ＋ 到文本 (成功记录) ＋ “次”    编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “注册成功” ＋ #换行符)    成功 ＝ 成功 ＋ 账号1 [局部表项记录] ＋ “----” ＋ 密码 [局部表项记录] ＋ #换行符    写到文件 (取运行目录 () ＋ “\tuer.txt”, 到字节集 (成功)).判断 (寻找文本 (返回wb, “该用户名已被使用”, , 假) ≠ -1)    r ＝ 到文本 (读入文件 (取运行目录 () ＋ “\zihuan.txt”))    .判断开始 (寻找文本 (r, “真”, , 假) ≠ -1)        置随机数种子 ()        u ＝ 文本_取随机字母 (取随机数 (5, 11), 2)        w ＝ 到文本 (读入文件 (取运行目录 () ＋ “\UUlogin.txt”))        .判断开始 (寻找文本 (w, “真”, , 假) ≠ -1)            图片 ＝ 获取验证码 ()            验证码识别结果 ＝ 取空白文本 (30)            验证码ID ＝ recognizeByCodeTypeAndBytes (图片, 取字节集长度 (图片), 1004, 验证码识别结果)            验证码1 ＝ 验证码识别结果        .默认            线程_进入许可区 (临界区)            载入 (窗口1, , 真)            线程_退出许可区 (临界区)        .判断结束        返回wb ＝ 提交注册 (u, 密码 [局部表项记录], 验证码1)        lb [1].置数据 (局部表项记录, 2, u)        .判断开始 (寻找文本 (返回wb, “true”, , 假) ≠ -1)            成功记录 ＝ 成功记录 ＋ 1            lb [1].置数据 (局部表项记录, 4, “注册成功”, )            透明标签8.标题 ＝ “注册成功：” ＋ 到文本 (成功记录) ＋ “次”            编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “注册成功” ＋ #换行符)            成功 ＝ 成功 ＋ 账号1 [局部表项记录] ＋ “----” ＋ 密码 [局部表项记录] ＋ #换行符            写到文件 (取运行目录 () ＋ “\tuer.txt”, 到字节集 (成功))        .默认            失败记录 ＝ 失败记录 ＋ 1            lb [1].置数据 (局部表项记录, 4, “注册失败”, )            编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “注册失败” ＋ #换行符)            透明标签9.标题 ＝ “注册失败:” ＋ 到文本 (失败记录) ＋ “次”        .判断结束    .默认    .判断结束.判断 (寻找文本 (返回wb, “验证码”, , 假) ≠ -1)    失败记录 ＝ 失败记录 ＋ 1    验证码错误记录 ＝ 验证码错误记录 ＋ 1    lb [1].置数据 (局部表项记录, 4, “验证码错误”, )    编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “验证码错误” ＋ #换行符)    透明标签9.标题 ＝ “注册失败:” ＋ 到文本 (失败记录) ＋ “次”    透明标签10.标题 ＝ “验证码错误:” ＋ 到文本 (验证码错误记录) ＋ “次”.判断 (寻找文本 (返回wb, “密码只能由中文”, , 假) ≠ -1)    失败记录 ＝ 失败记录 ＋ 1    透明标签9.标题 ＝ “注册失败:” ＋ 到文本 (失败记录) ＋ “次”    lb [1].置数据 (局部表项记录, 4, “密码太弱”, )    编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “密码太弱” ＋ #换行符).默认    失败记录 ＝ 失败记录 ＋ 1    透明标签9.标题 ＝ “注册失败:” ＋ 到文本 (失败记录) ＋ “次”    lb [1].置数据 (局部表项记录, 4, “其他错误”, )    编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “其他错误” ＋ #换行符)    其他错误 ＝ 其他错误 ＋ 1    p ＝ 到文本 (读入文件 (取运行目录 () ＋ “\cwhip.txt”))    .判断开始 (到整数 (p) ＝ 其他错误)        换ip ＝ 真        其他错误 ＝ 0    .默认        换ip ＝ 假    .判断结束.判断结束线程数 ＝ 线程数 － 1
[/e]


补充内容 (2013-12-15 17:55):
我去，代码怎么乱了

聚义堂神话

现在有时间 可以远程帮你看看 但不一定解决的 [qq]1929720005[/qq]

小白熊

我去，代码怎么乱了

小白熊

[e]
.版本 2
.支持库 spec
.支持库 shell

.子程序 开始
.局部变量 计次, 整数型
.局部变量 w, 文本型
.局部变量 线程ID, 整数型
.局部变量 r, 文本型
.局部变量 u, 文本型
.局部变量 cs, 整数型
.局部变量 ipcs, 整数型


计次 ＝ 0
w ＝ 到文本 (读入文件 (取运行目录 () ＋ “\xcs.txt”))
.判断循环首 (取数组成员数 (账号1) ＞ 计次)
    .判断开始 (到整数 (w) ＞ 线程数)
        线程ID ＝ 线程_启动 (&主工作, , 线程ID)
        .判断开始 (线程ID ≠ 0)
            计次 ＝ 计次 ＋ 1
            线程数 ＝ 线程数 ＋ 1
            cs ＝ cs ＋ 1
            r ＝ 到文本 (读入文件 (取运行目录 () ＋ “\ipdaili.txt”))
            .判断开始 (寻找文本 (r, “真”, , 假) ≠ -1)
                .判断开始 (换ip)
                    .判断开始 (ipcs ＝ 取数组成员数 (ip))
                        ipcs ＝ 0
                    .默认

                    .判断结束
                    ipcs ＝ ipcs ＋ 1
                    取消代理 ()
                    设置代理 (ip [ipcs])
                    lb [3].置数据 (ipcs, 3, “正在使用”)
                .默认

                .判断结束
                u ＝ 到文本 (读入文件 (取运行目录 () ＋ “\cishu.txt”))
                .判断开始 (到整数 (u) ＝ cs)
                    .判断开始 (ipcs ＝ 取数组成员数 (ip))
                        ipcs ＝ 0
                    .默认

                    .判断结束
                    ipcs ＝ ipcs ＋ 1
                    取消代理 ()
                    设置代理 (ip [ipcs])
                    lb [3].置数据 (ipcs, 3, “正在使用”)
                .默认

                .判断结束

            .默认

            .判断结束

        .默认

        .判断结束

    .默认
        延迟 (5000)
    .判断结束

.判断循环尾 ()
表项记录 ＝ 0
写到文件 (取特定目录 (3) ＋ “\已注册账号.txt”, 到字节集 (成功))
删除文件 (取运行目录 () ＋ “\tuer.txt”)
鸣叫 ()
线程_销毁 (总线程ID)
信息框_皮肤 (_启动窗口.取窗口句柄 (), “已全部注册完成并写出至桌面！”, #确认钮, “确认”)
[/e]
[e]
.版本 2
.支持库 eAPI
.支持库 iext

.子程序 主工作
.局部变量 w, 文本型
.局部变量 验证码识别结果, 文本型
.局部变量 验证码ID, 整数型
.局部变量 图片, 字节集
.局部变量 e, 文本型
.局部变量 返回wb, 文本型
.局部变量 r, 文本型
.局部变量 u, 文本型
.局部变量 其他错误, 整数型
.局部变量 p, 文本型
.局部变量 局部表项记录, 整数型

表项记录 ＝ 表项记录 ＋ 1
局部表项记录 ＝ 表项记录
lb [1].置数据 (局部表项记录, 4, “开始工作”, )
e ＝ 到文本 (读入文件 (取运行目录 () ＋ “\qkcookie.txt”))
.判断开始 (寻找文本 (e, “真”, , 假) ≠ -1)
    删除临时文件 (#接口常量.存根文件)
    删除临时文件 (#接口常量.IE临时文件)
    清除历史记录 (#接口常量.浏览器历史地址记录)
    清除历史记录 (#接口常量.浏览网址历史记录)
.默认

.判断结束
w ＝ 到文本 (读入文件 (取运行目录 () ＋ “\UUlogin.txt”))
.判断开始 (寻找文本 (w, “真”, , 假) ≠ -1)
    图片 ＝ 获取验证码 ()
    验证码识别结果 ＝ 取空白文本 (30)
    验证码ID ＝ recognizeByCodeTypeAndBytes (图片, 取字节集长度 (图片), 1004, 验证码识别结果)
    验证码1 ＝ 验证码识别结果
.默认
    线程_进入许可区 (临界区)
    载入 (窗口1, , 真)
    线程_退出许可区 (临界区)
.判断结束
返回wb ＝ 提交注册 (账号1 [局部表项记录], 密码 [局部表项记录], 验证码1)
写到文件 (取运行目录 () ＋ “\1234.txt”, 到字节集 (返回wb))
.判断开始 (寻找文本 (返回wb, “true”, , 假) ≠ -1)
    成功记录 ＝ 成功记录 ＋ 1
    lb [1].置数据 (局部表项记录, 4, “注册成功”, )
    透明标签8.标题 ＝ “注册成功：” ＋ 到文本 (成功记录) ＋ “次”
    编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “注册成功” ＋ #换行符)
    成功 ＝ 成功 ＋ 账号1 [局部表项记录] ＋ “----” ＋ 密码 [局部表项记录] ＋ #换行符
    写到文件 (取运行目录 () ＋ “\tuer.txt”, 到字节集 (成功))
.判断 (寻找文本 (返回wb, “该用户名已被使用”, , 假) ≠ -1)
    r ＝ 到文本 (读入文件 (取运行目录 () ＋ “\zihuan.txt”))
    .判断开始 (寻找文本 (r, “真”, , 假) ≠ -1)
        置随机数种子 ()
        u ＝ 文本_取随机字母 (取随机数 (5, 11), 2)
        w ＝ 到文本 (读入文件 (取运行目录 () ＋ “\UUlogin.txt”))
        .判断开始 (寻找文本 (w, “真”, , 假) ≠ -1)
            图片 ＝ 获取验证码 ()
            验证码识别结果 ＝ 取空白文本 (30)
            验证码ID ＝ recognizeByCodeTypeAndBytes (图片, 取字节集长度 (图片), 1004, 验证码识别结果)
            验证码1 ＝ 验证码识别结果
        .默认
            线程_进入许可区 (临界区)
            载入 (窗口1, , 真)
            线程_退出许可区 (临界区)
        .判断结束
        返回wb ＝ 提交注册 (u, 密码 [局部表项记录], 验证码1)
        lb [1].置数据 (局部表项记录, 2, u)
        .判断开始 (寻找文本 (返回wb, “true”, , 假) ≠ -1)
            成功记录 ＝ 成功记录 ＋ 1
            lb [1].置数据 (局部表项记录, 4, “注册成功”, )
            透明标签8.标题 ＝ “注册成功：” ＋ 到文本 (成功记录) ＋ “次”
            编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “注册成功” ＋ #换行符)
            成功 ＝ 成功 ＋ 账号1 [局部表项记录] ＋ “----” ＋ 密码 [局部表项记录] ＋ #换行符
            写到文件 (取运行目录 () ＋ “\tuer.txt”, 到字节集 (成功))
        .默认
            失败记录 ＝ 失败记录 ＋ 1
            lb [1].置数据 (局部表项记录, 4, “注册失败”, )
            编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “注册失败” ＋ #换行符)
            透明标签9.标题 ＝ “注册失败:” ＋ 到文本 (失败记录) ＋ “次”
        .判断结束

    .默认

    .判断结束

.判断 (寻找文本 (返回wb, “验证码”, , 假) ≠ -1)
    失败记录 ＝ 失败记录 ＋ 1
    验证码错误记录 ＝ 验证码错误记录 ＋ 1
    lb [1].置数据 (局部表项记录, 4, “验证码错误”, )
    编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “验证码错误” ＋ #换行符)
    透明标签9.标题 ＝ “注册失败:” ＋ 到文本 (失败记录) ＋ “次”
    透明标签10.标题 ＝ “验证码错误:” ＋ 到文本 (验证码错误记录) ＋ “次”
.判断 (寻找文本 (返回wb, “密码只能由中文”, , 假) ≠ -1)
    失败记录 ＝ 失败记录 ＋ 1
    透明标签9.标题 ＝ “注册失败:” ＋ 到文本 (失败记录) ＋ “次”
    lb [1].置数据 (局部表项记录, 4, “密码太弱”, )
    编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “密码太弱” ＋ #换行符)
.默认
    失败记录 ＝ 失败记录 ＋ 1
    透明标签9.标题 ＝ “注册失败:” ＋ 到文本 (失败记录) ＋ “次”
    lb [1].置数据 (局部表项记录, 4, “其他错误”, )
    编辑框2.加入文本 (到文本 (取现行时间 ()) ＋ 账号1 [局部表项记录] ＋ “其他错误” ＋ #换行符)
    其他错误 ＝ 其他错误 ＋ 1
    p ＝ 到文本 (读入文件 (取运行目录 () ＋ “\cwhip.txt”))
    .判断开始 (到整数 (p) ＝ 其他错误)
        换ip ＝ 真
        其他错误 ＝ 0
    .默认
        换ip ＝ 假
    .判断结束

.判断结束
线程数 ＝ 线程数 － 1
[/e]
代码，，上面的乱了0----

墨戈小宝

看的我头晕了

小白熊

maoyanghua 发表于 2013-12-15 18:18
看的我头晕了

复制到易语言看吧，呵呵，感谢回复

聚义堂神话

调试输出（帐号1 [局部表项记录], 密码 [局部表项记录], 验证码1)）   看看这个有没有错