POST注册，无验证码，无加密

会游泳的鱼

一个网站的注册，无验证码，无加密。请帮忙看下，是哪有问题，在我的源码中备注下，谢谢指点！

1019198992

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

.子程序 _按钮2_被单击, , , 注册帐号post
.局部变量 信息, 文本型

信息 ＝ “username=” ＋ 编辑框1.内容 ＋ “&password=” ＋ 编辑框2.内容 ＋ “&submit=&act=act_register&back_act=”
' 编辑框1=帐号；编辑框2=密码；中文帐号注意转换.
调试输出 (网页_访问s (“http://www.ligouhui.com/user.html”, 1, 信息, , , , , , , , ))

[/e]

helper

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

.子程序 _按钮1_被单击
.局部变量 帐号, 文本型
.局部变量 密码, 文本型
.局部变量 返回文本, 文本型

帐号 ＝ 文本_取随机字母 (10, 1)
密码 ＝ “5201314”
返回文本 ＝ 到文本 (网页_访问_对象 (“http://www.ligouhui.com/user.html”, 1, “username=” ＋ 帐号 ＋ “&password=” ＋ 密码 ＋ “&submit=&act=act_register&back_act=”, , ))
.判断开始 (寻找文本 (返回文本, 帐号, , 假) ≠ -1)
    信息框 (“注册成功,欢迎您” ＋ 帐号 ＋ “,来到立购汇。”, 0, )
.默认
    信息框 (“注册失败！”, 0, )
.判断结束

调试输出 (返回文本, cookies, 帐号)
[/e]

helper

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

.子程序 _按钮1_被单击
.局部变量 帐号, 文本型
.局部变量 密码, 文本型
.局部变量 返回文本, 文本型

帐号 ＝ 文本_取随机字母 (10, 1)
密码 ＝ “5201314”
返回文本 ＝ 到文本 (网页_访问_对象 (“http://www.ligouhui.com/user.html”, 1, “username=” ＋ 帐号 ＋ “&password=” ＋ 密码 ＋ “&submit=&act=act_register&back_act=”, , ))
.判断开始 (寻找文本 (返回文本, 帐号, , 假) ≠ -1)
    信息框 (“注册成功,欢迎您” ＋ 帐号 ＋ “,来到立购汇。”, 0, )
.默认
    信息框 (“注册失败！”, 0, )
.判断结束

调试输出 (返回文本, cookies, 帐号)
[/e]