|
楼主 |
发表于 2013-5-25 11:44:00
|
显示全部楼层
河南省新乡市
忘记上原码了!
补上!
[e]
.版本 2
.支持库 iext
.子程序 用户登录
.局部变量 提交数据, 文本型
.局部变量 返回文本, 文本型
标签4.标题 = 网页_取外网IP ()
提交数据 = “fastloginfield=username&username=” + 编码_URL编码 (删尾空 (编辑框1.内容)) + “&cookietime=2592000&password=” + 编码_URL编码 (删尾空 (编辑框2.内容)) + “&quickforward=yes&handlekey=ls”
返回文本 = 网页_访问s (“http://bbs.bbczjh.com/member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1”, 1, 提交数据, , , “Referer: http://bbs.bbczjh.com/plugin.php?id=vote:vote&page=2”)
.判断开始 (寻找文本 (返回文本, “欢迎您回来”, 1, 假) ≠ -1)
状态条1.置文本 (0, “登录成功!欢迎您回来” + 编辑框1.内容)
.默认
状态条1.置文本 (0, “登录失败!请检查用户名或密码是否正确!”)
.判断结束
.版本 2
.支持库 spec
.子程序 顶贴
.局部变量 顶贴数据, 文本型
.局部变量 顶贴返回, 文本型
.局部变量 formhash, 文本型
.局部变量 找到位置, 整数型
formhash = 网页_访问s (“http://bbs.bbczjh.com/thread-18576-1-1.html”, 0)
程序_延时 (200)
formhash = 文本_取出中间文本 (formhash, “formhash=”, #引号, 1, 真)
顶贴数据 = “message=” + 编码_URL编码 (删尾空 (编辑框4.内容)) + “&posttime=” + 时间_取现行时间戳 () + “&formhash=” + formhash + “&usesig=1&subject=++”
顶贴返回 = 网页_访问s (“http://bbs.bbczjh.com/forum.php?mod=post&action=reply&fid=101&tid=18576&extra=page%3D1&replysubmit=yes&infloat=yes&handlekey=fastpost&inajax=1”, 1, 顶贴数据, , , “Referer: http://bbs.bbczjh.com/thread-18576-1-1.html”)
.如果真 (寻找文本 (顶贴返回, “回复发布成功”, 1, 假) ≠ -1)
信息框 (“回复发布成功!”, 64, “兄弟网络”)
.如果真结束
调试输出 (顶贴返回)
[/e] |
|