.版本 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) 标签_提示框.标题 ＝ “邮箱格式不正确” 标签_提示框.文本颜色 ＝ #红色 .默认 标签_提示框.标题 ＝ “注册失败” 标签_提示框.文本颜色 ＝ #红色 .判断结束