discuzx2 GBK POST登录方法

.版本 2
.子程序 论坛_登录, 逻辑型, 公开
.参数 Formhash, 文本型
.参数 用户名, 文本型
.参数 密码, 文本型
.参数 问题编号, 整数型, 可空
.参数 问题回答, 文本型, 可空
.参数 返回文本, 文本型, 参考 可空
.局部变量 局_提交地址, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_返回文本, 文本型

局_提交地址 ＝ “/member.php?mod=logging&action=login&loginsubmit=yes&loginhash=L98GG&inajax=1”
局_提交数据 ＝ “formhash=” ＋ Formhash ＋ “&referer=” ＋ 彗星URL编码 (地址 ＋ “/forum.php?mod=modcp”) ＋ “&loginfield=username&username=” ＋ 用户名 ＋ “&password=” ＋ 密码 ＋ “&questionid=” ＋ 到文本 (问题编号) ＋ “&answer=” ＋ 问题回答
局_返回文本 ＝ 到文本 (网页_访问 (局_提交地址, 1, , , 局_提交数据, ))  ' 最后一个参数为返回的编码方式
返回文本 ＝ 局_返回文本
.判断开始 (寻找文本 (局_返回文本, 用户名, , 假) ≠ -1)
    输出调试文本 (“Login Success!”)
    返回 (真)
.默认
    返回 (假)
.判断结束
返回 (假)
.版本 2

.子程序 取Formhash, 文本型, 公开
.局部变量 局_数据, 文本型
.局部变量 局_返回文本, 文本型

局_数据 ＝ 到文本 (网页_访问 (地址, , , , ))
局_返回文本 ＝ 文本_取出中间文本 (局_数据, “formhash” ＋ #引号 ＋ “ value=” ＋ #引号, #引号 ＋ “ />”)
返回 (局_返回文本)


http://bbs.XXX.com/member.php?mod=logging&action=login&loginsubmit=yes&loginhash=LJQFT&inajax=1","formhash=2b28b580&referer=http%3A%2F%2Fbbs.enshi.cn%2Fforum.php&username=" +用户名+ "&password=" +密码+ "&questionid=0&answer="