写了个POST注-册，本来是批量的，可每次只能一个，求何故？

oppo1155

  

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

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

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

注册数量 ＝ 到整数 (编辑框1.内容)
计次循环首 (注册数量, 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/do”, “post”, “u=0&referer=http%3A%2F%2Fwww.iiyi.com%2F&username=” ＋ 用户名 ＋ “&email=” ＋ 邮箱 ＋ “&password=” ＋ 密码 ＋ “&dept1=1&dept2=24&agreement=1”)  ' 发送注册数据
关键词 ＝ 寻找文本 (返回结果, “恭喜您！注册成功！”, , 假)  ' 判断注册是否成功
如果真 (关键词 ≠ -1)’如果注册成功就写入记事本
原文本内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\账号.txt”))
写到文件 (取运行目录 () ＋ “\账号.txt”, 到字节集 (原文本内容 ＋ #换行符 ＋ 用户名 ＋ “----” ＋ 密码 ＋ “----” ＋ 邮箱))
索引 ＝ 超级列表框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 /> 注册数量 ＝ 到整数 (编辑框1.内容)<br /> .计次循环首 (注册数量, n)<br />     启动线程 (&子程序1, , 线程句柄)<br />     n ＝ n ＋ 1<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 /> 邮箱 ＝ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (字符 (取随机数 (97, 122))) ＋ 到文本 (n ＋ n1 ＋ n2 ＋ n3) ＋ “@126.com”  ' 随机取个邮箱，并判断其是否可用<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 /> .如果真 (关键词 ≠ -1)’如果注册成功就写入记事本<br />     原文本内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\账号.txt”))<br />     写到文件 (取运行目录 () ＋ “\账号.txt”, 到字节集 (原文本内容 ＋ #换行符 ＋ 用户名 ＋ “----” ＋ 密码 ＋ “----” ＋ 邮箱))<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 用户名)<br />     超级列表框1.置标题 (索引, 1, 密码)<br />     超级列表框1.置标题 (索引, 2, 邮箱)<br /> <br /> .如果真结束

易正易则

计次循环首 (注册数量, )
启动线程 (&子程序1, , 线程句柄)
n ＝ n ＋ 1
计次循环尾 ()

去掉计次那里的n再试试呢

补充内容 (2017-1-4 16:34):
没仔细看，貌似也不对，你的n没复制，那么+1没啥用处吧

oppo1155

易正易则 发表于 2017-1-4 16:32
计次循环首 (注册数量, )
启动线程 (&子程序1, , 线程句柄)
n ＝ n ＋ 1

没明白，n现在成功计次了呀

超级萌新

oppo1155 发表于 2017-1-4 16:58
没明白，n现在成功计次了呀

我叫何故~~~~~~