post 注-册单线程改多线程。

oppo1155 · 发表于 2016-12-30 23:44:35

本人刚学易语言不久，不懂得许可区是什么东西，做了个**账-号注-册的程序，现在想改成批量注-册的，谁能帮我把单线程做成多线程，谢谢。

QQ截图20161230232930.png

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_注册_被单击

变量名	类型	静态	数组	备注
注册数量	整数型
n	整数型
线程句柄	整数型

注册数量＝到整数 (编辑框1.内容)
线程_初始化COM库 ()

计次循环首 (注册数量, n)

启动线程 (&子程序1, , 线程句柄)

n ＝ n ＋ 1

计次循环尾 ()

子程序名	返回值类型	公开	备注
子程序1

变量名	类型	静态	数组	备注
n	整数型
n1	整数型
n2	整数型
n3	整数型
用户名	文本型
用户名可用否	文本型
邮箱可用否	文本型
邮箱	文本型
返回结	文本型
密码	文本型
关键词	整数型
索引	整数型

置随机数种子 ()
n ＝到整数 (取随机数 (939, 1))
n1 ＝到整数 (取随机数 (939, 1))
n2 ＝到整数 (取随机数 (939, 1))
n3 ＝到整数 (取随机数 (939, 1))

循环判断首 ()

用户名＝编码_gb2312到utf8 (到文本 (字符 (取随机数 (97, 122))) ＋到文本 (字符 (取随机数 (97, 122))) ＋到文本 (字符 (取随机数 (97, 122))) ＋到文本 (字符 (取随机数 (97, 122))) ＋到文本 (n ＋ n1 ＋ n2 ＋ n3))

用户名可用否＝网页访问u (“http://auth.iiyi.com/register/checku”, “post”, “username=” ＋用户名)

循环判断尾 (用户名可用否 ≠ “1”)
密码＝ “123456”

循环判断首 ()

邮箱＝到文本 (字符 (取随机数 (97, 122))) ＋到文本 (字符 (取随机数 (97, 122))) ＋到文本 (字符 (取随机数 (97, 122))) ＋到文本 (字符 (取随机数 (97, 122))) ＋到文本 (n ＋ n1 ＋ n2 ＋ n3) ＋ “@126.com”

邮箱可用否＝网页访问u (“http://auth.iiyi.com/register/checke”, “post”, “email=” ＋邮箱)

循环判断尾 (邮箱可用否 ≠ “1”)
返回结＝网页访问u (“http://auth.iiyi.com/register/do”, “post”, “u=0&referer=http%3A%2F%2Fwww.iiyi.com%2F&username=” ＋用户名＋ “&email=” ＋邮箱＋ “&password=” ＋密码＋ “&dept1=1&dept2=24&agreement=1”)
关键词＝寻找文本 (返回结, “恭喜您！注册成功！”, , 假)
输出调试文本 (用户名)

如果真 (关键词 ≠ -1)

索引＝超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (索引, 0, 用户名)

超级列表框1.置标题 (索引, 1, 密码)

超级列表框1.置标题 (索引, 2, 邮箱)

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br />
.支持库 EThread<br />
.支持库 iext<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _注册_被单击<br />
.局部变量 注册数量, 整数型<br />
.局部变量 n, 整数型<br />
.局部变量 线程句柄, 整数型<br />
<br />
<br />
注册数量 ＝ 到整数 (编辑框1.内容)<br />
线程_初始化COM库 ()<br />
<br />
.计次循环首 (注册数量, n)<br />
    启动线程 (&子程序1, , 线程句柄)<br />
    n ＝ n ＋ 1<br />
<br />
<br />
.计次循环尾 ()<br />
<br />
<br />
.子程序 子程序1<br />
.局部变量 n, 整数型<br />
.局部变量 n1, 整数型<br />
.局部变量 n2, 整数型<br />
.局部变量 n3, 整数型<br />
.局部变量 用户名, 文本型<br />
.局部变量 用户名可用否, 文本型<br />
.局部变量 邮箱可用否, 文本型<br />
.局部变量 邮箱, 文本型<br />
.局部变量 返回结, 文本型<br />
.局部变量 密码, 文本型<br />
.局部变量 关键词, 整数型<br />
.局部变量 索引, 整数型<br />
<br />
置随机数种子 ()<br />
n ＝ 到整数 (取随机数 (939, 1))<br />
n1 ＝ 到整数 (取随机数 (939, 1))<br />
n2 ＝ 到整数 (取随机数 (939, 1))<br />
n3 ＝ 到整数 (取随机数 (939, 1))<br />
.循环判断首 ()<br />
    用户名 ＝ 编码_gb2312到utf8 (到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (n ＋ n1 ＋ n2 ＋ n3))<br />
    用户名可用否 ＝ 网页访问u (“http://auth.iiyi.com/register/checku”, “post”, “username=” ＋ 用户名)<br />
.循环判断尾 (用户名可用否 ≠ “1”)<br />
密码 ＝ “123456”<br />
.循环判断首 ()<br />
    邮箱 ＝ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (n ＋ n1 ＋ n2 ＋ n3) ＋ “@126.com”<br />
    邮箱可用否 ＝ 网页访问u (“http://auth.iiyi.com/register/checke”, “post”, “email=” ＋ 邮箱)<br />
.循环判断尾 (邮箱可用否 ≠ “1”)<br />
返回结 ＝ 网页访问u (“http://auth.iiyi.com/register/do”, “post”, “u=0&referer=http%3A%2F%2Fwww.iiyi.com%2F&username=” ＋ 用户名 ＋ “&email=” ＋ 邮箱 ＋ “&password=” ＋ 密码 ＋ “&dept1=1&dept2=24&agreement=1”)<br />
关键词 ＝ 寻找文本 (返回结, “恭喜您！注册成功！”, , 假)<br />
输出调试文本 (用户名)<br />
.如果真 (关键词 ≠ -1)<br />
    索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />
    超级列表框1.置标题 (索引, 0, 用户名)<br />
    超级列表框1.置标题 (索引, 1, 密码)<br />
    超级列表框1.置标题 (索引, 2, 邮箱)<br />
<br />
.如果真结束