精易论坛post登录源码

.版本 2

.程序集 JY
.程序集变量 cookies, 文本型
.程序集变量 formhash, 文本型

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用



.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用



.子程序 login, 整数型, 公开, 成功返回1,失败返回0
.参数 username, 文本型
.参数 password, 文本型
.局部变量 formhash, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 局_提交网址, 文本型
.局部变量 局_返回数据, 文本型
.局部变量 loginhash, 文本型

formhash ＝ formhash ()
loginhash ＝ loginhash ()
局_提交网址 ＝ “http://bbs.125.la/member.php?mod=logging&action=login&loginsubmit=yes&loginhash=” ＋ loginhash ＋ “&inajax=1”
局_提交数据 ＝ “formhash=” ＋ formhash ＋ “&referer=http%3A%2F%2Fbbs.125.la%2F.%2F&username=” ＋ username ＋ “&password=” ＋ 校验_取md5 (到字节集 (password)) ＋ “&questionid=0&answer=”
局_返回数据 ＝ 网页_访问S (局_提交网址, 1, 局_提交数据, cookies, cookies, )
' 调试输出 (局_返回数据)
.如果真 (寻找文本 (局_返回数据, “欢迎您回来”, , 假) ≠ -1)
    返回 (1)
.如果真结束
返回 (0)

.子程序 loginhash, 文本型
.局部变量 loginhash, 文本型

loginhash ＝ 网页_访问S (“http://bbs.125.la/member.php?mod=logging&action=login”)
loginhash ＝ 文本_取出中间文本 (loginhash, “loginhash=”, #loginhash_right)
返回 (loginhash)

.子程序 formhash, 文本型
.局部变量 formhash, 文本型

formhash ＝ 网页_访问S (“http://bbs.125.la/member.php?mod=logging&action=login”, , , , cookies, )
formhash ＝ 文本_取出中间文本 (formhash, #常量1, #常量2)
返回 (formhash)

@gogozmx