胡来网post注册源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮_注册_被单击
.局部变量 post地址, 文本型
.局部变量 post数据, 文本型
.局部变量 返回文本, 文本型
.局部变量 结果, 文本型

post地址 ＝ “http://www.hoolay.cn/regist?type=fan”
post数据 ＝ “uid=” ＋ 编辑框_账号.内容 ＋ “&type=fan&password=” ＋ 编辑框_密码.内容
返回文本 ＝ 到文本 (网页_访问 (post地址, 1, post数据))
结果 ＝ 到文本 (编码_utf8到gb2312 (返回文本))
调试输出 (结果)
.判断开始 (寻找文本 (结果, “登录密码”, , 假) ≠ -1)
    标签_提示框.标题 ＝ “注册成功”
    标签_提示框.文本颜色 ＝ #绿色
.判断 (寻找文本 (结果, “邮箱已经被占用”, , 假) ≠ -1)
    标签_提示框.标题 ＝ “邮箱已经被占用”
    标签_提示框.文本颜色 ＝ #红色
.判断 (寻找文本 (结果, “邮箱格式不正确”, , 假) ≠ -1)
    标签_提示框.标题 ＝ “邮箱格式不正确”
    标签_提示框.文本颜色 ＝ #红色
.默认
    标签_提示框.标题 ＝ “注册失败”
    标签_提示框.文本颜色 ＝ #红色
.判断结束

@易Shadow