|
本帖最后由 libinqi456 于 2014-6-8 21:22 编辑
有没有人会POST 登录TC 论坛的,小弟有个问题,登录时老是验证码错误,用E 写的源码,请高人指点下,谢谢。
.版本 2
.支持库 spec
.支持库 iext2
.程序集 窗口程序集1
.程序集变量 临时变量, 文本型
.程序集变量 formhash, 文本型
.程序集变量 loginhash, 文本型
.子程序 __启动窗口_创建完毕
获取验证码 ()
.子程序 获取验证码
.局部变量 idhash, 文本型
.局部变量 文本, 文本型
.局部变量 图片地址, 文本型
' ’网页_清除cookie (“http://bbs.tyuyan.com”)
文本 = 网页_取网页源码 (“http://bbs.tyuyan.com/member.php ... =fwin_content_login”)
' ’调试输出 (文本)
idhash = 文本_取出中间文本 (文本, “code('”, “', '”)
调试输出 (idhash)
临时变量 = idhash
formhash = 文本_取出中间文本 (文本, “value=” + #引号 + “”, #引号)
调试输出 (formhash)
loginhash = 文本_取出中间文本 (文本, “loginhash=”, #引号)
调试输出 (loginhash)
文本 = random ()
文本 = 网页_取网页源码 (“http://bbs.tyuyan.com/misc.php?mod=seccode&action=update&idhash=” + 临时变量 + “&” + 文本 + “&modid=member::logging”)
图片地址 = 文本_取出中间文本 (文本, #常量1, #引号)
调试输出 (图片地址)
动画框1.置图片 (动画框1.创建物体 (, 0, 0, , ), 网页_验证码读取 (“http://bbs.tyuyan.com/” + 图片地址 + “”), )
.子程序 登录
.局部变量 POST地址, 文本型
.局部变量 POST数据, 文本型
.局部变量 文本, 文本型
POST地址 = “http://bbs.tyuyan.com/member.php ... ey=login&loginhash=” + loginhash + “&inajax=1”
POST数据 = “formhash=” + formhash + “&referer=http%3A%2F%2Fbbs.tyuyan.com%2F&username=” + 编辑框1.内容 + “&password=” + 编辑框2.内容 + “&questionid=0&answer=&seccodehash=” + 临时变量 + “&seccodemodid=member%3A%3Alogging&seccodeverify=” + 编辑框3.内容 + “”
文本 = 网页访问u (POST地址, “POST”, POST数据, , , , , , )
调试输出 (文本)
获取验证码 ()
.子程序 _按钮1_被单击
登录 ()
.子程序 _动画框1_物体左键被按下
.参数 物体标识值, 整数型
获取验证码 ()
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|