Post 送精币简单操作之2 上次的任务效果不好！

程序开发推广

忘记上原码了！
补上！
[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]

灌水帝

支持一下