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

胖娃在线

地址：http://www.yunfile.com/
测试账号： test1234test   密码:1234569
由于搞了好几天多线程，还是没有弄明白.现在急着解决问题，凡是回复的朋友都有至少20枚精币回赠。如果有多人都给出正确答案，每位朋友都会有100精币以上回报。

多谢各位高手帮助了！！！

[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

好了，问题解决了，请看源码！

胆小的老虎

这个问题不怎么懂 跟着学习把  你说凡是回复者都有20JB送哦

六道·仙人

如果RMB的话找我 QQ821551908

艾幻翔

你那附件怎么下载？

艾幻翔

[e]
.版本 2
.支持库 internet
.支持库 iconv

.局部变量 返回文本, 文本型
.局部变量 用户名, 文本型
.局部变量 密码, 文本型

用户名 ＝ “test1234test”
密码 ＝ “1234569”
返回文本 ＝ 到文本 (HTTP读文件 (“http://www.yunfile.com/view?module=user&action=validateLogin&returnPath=http%3A%2F%2Fwww.yunfile.com%2Fexplorer%2Flist.html&username=” ＋ 用户名 ＋ “&password=” ＋ 密码 ＋ “&remember=on”))
返回文本 ＝ 到文本 (编码转换 (到字节集 (返回文本), #编码_UTF_8, #编码_GBK, ))
.如果 (寻找文本 (返回文本, “欢迎您,”, , 假) ≠ -1)
    信息框 (“登录成功！”, 0, )
.否则
    信息框 (“登录失败！”, 0, )
[/e]

艾幻翔

发个源码 已加入多线程
test.rar (1.85 KB, 下载次数: 24)

2013-1-12 13:12 上传

点击文件名下载附件

爱我心伤

我很想帮助你 但是我的技术不够

胖娃在线

六道·仙人 发表于 2013-1-12 12:13
如果RMB的话找我 QQ821551908

直接说价格吧 多少钱？

ljmst

这里是源码