易语言实现某论坛注册/登录/发帖操作源码

.版本 2

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

.子程序 _按钮1_被单击



.子程序 论坛_用户注册, 逻辑型
.参数 邮箱, 文本型
.参数 用户名, 文本型
.参数 密码, 文本型
.局部变量 返回, 文本型

返回 ＝ 到文本 (网页_访问 (“https://bbs.gupiaozhifu.com/?user-create.htm”, 1, “email=” ＋ 编码_URL编码 (邮箱, 真, 真) ＋ “&username=” ＋ 编码_URL编码 (用户名, 真, 真) ＋ “&password=” ＋ 校验_取md5 (到字节集 (密码))))
返回 ＝ 编码_URL解码 (返回, 真)
.如果 (寻找文本 (返回, “用户注册成功”, , 假) ≠ -1)
    返回 (真)
.否则
    返回 (假)
.如果结束


.子程序 论坛_用户登录, 文本型, , 成功返回登陆后的cookies，失败返回空白
.参数 邮箱, 文本型
.参数 密码, 文本型
.局部变量 返回, 文本型
.局部变量 cookies, 文本型

返回 ＝ 到文本 (网页_访问 (“https://bbs.gupiaozhifu.com/?user-login.htm”, 1, “email=” ＋ 编码_URL编码 (邮箱, 真, 真) ＋ “&password=” ＋ 校验_取md5 (到字节集 (密码)), , cookies))
返回 ＝ 编码_URL解码 (返回, 真)
.如果 (寻找文本 (返回, “登录成功”, , 假) ≠ -1)
    返回 (cookies)
.否则
    返回 (“”)
.如果结束


.子程序 论坛_发帖, 逻辑型
.参数 登录cookies, 文本型
.参数 标题, 文本型
.参数 内容, 文本型, , 支持html代码
.参数 分类, 整数型, , 1.活动线报 2.精品软件 3.游戏专区 4.开源交流 5.资源杂烩 9.互动讨论 10.冷知识 11.美图美文
.局部变量 返回, 文本型

返回 ＝ 到文本 (网页_访问 (“https://bbs.gupiaozhifu.com/?thread-create.htm”, 1, “doctype=0&quotepid=0&fid=” ＋ 到文本 (分类) ＋ “&subject=” ＋ 编码_URL编码 (标题, 真, 真) ＋ “&message=” ＋ 编码_URL编码 (内容, 真, 真), 登录cookies))
返回 ＝ 编码_URL解码 (返回, 真)
.如果 (寻找文本 (返回, “发帖成功”, , 假) ≠ -1)
    返回 (真)
.否则
    返回 (假)
.如果结束


.子程序 __启动窗口_创建完毕

@clz17805818393