|
代码如下:
.版本 2
.支持库 iext
.支持库 spec
用户名 = 超级列表框_发布账号.取标题 (程_表项索引, 0)
提交地址 = “http://www.turo.info/member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1”
提交内容 = “fastloginfield=username&username=” + 用户名 + “&password=” + 超级列表框_发布账号.取标题 (程_表项索引, 1) + “&quickforward=yes&handlekey=ls”
登录信息 = 编码_utf8到gb2312 (到文本 (网页_访问1 (提交地址, 1, , , 提交内容)))
调试输出 (“---” + 用户名 + “----” + 到文本 (程_表项索引) + “------” + #换行符 + 提交内容 + #换行符 + 登录信息)
.如果真 (寻找文本 (登录信息, “欢迎您回来”, , 假) ≠ -1)
编辑框_状态.内容 = 编辑框_状态.内容 + 超级列表框_发布账号.取标题 (程_表项索引, 0) + “登录成功” + #换行符
formash = 文本_取出中间文本 (编码_utf8到gb2312 (到文本 (网页_访问1 (“http://www.turo.info/”))), “formhash=”, #引号 + “>退出”)
编辑框_状态.内容 = 编辑框_状态.内容 + “开始发布文章,标题为: ” + “<” + 发布标题 + “>” + #换行符
信息提交 = “formhash=” + formash + “&posttime=” + 到文本 (时间_北京转格林威治 (取现行时间 ())) + “&wysiwyg=1&subject=” + 编码_URL编码UTF8 (发布标题) + “&message=” + 子文本替换 (子文本替换 (编码_URL编码UTF8 (发布内容), “%D%A”, “”, , , 真), “%A%A”, “”, , , 真) + “&save=&htmlon=1&allownoticeauthor=1”
\\\\\\\\\\\\\\\\n
\\\\\\\\\\\\\\\\n
写到文件 (取运行目录 () + “\结果.txt”, 到字节集 (编码_utf8到gb2312 (到文本 (网页_访问1 (发布地址, 1, , , 信息提交))) + #换行符)) ' 提交发布
延迟 (3000)
编码_utf8到gb2312 (到文本 (网页_访问1 (“http://www.turo.info/member.php?mod=logging&action=logout&formhash=” + formash)))
' 网页_清除Cookie (“http://www.turo.info/”)
程_表项索引 = 程_表项索引 + 1
返回 ()
.如果真结束
编辑框_状态.内容 = 编辑框_状态.内容 + 超级列表框_发布账号.取标题 (程_表项索引, 0) + “登录失败” + #换行符
程_表项索引 = 程_表项索引 + 1
错误状态:
第一个帐号登陆失败,第二个帐号成功,第三个失败,第四个成功,以此类推。
我实在分析不出来哪里出错。请高手指点
|
|
求助知识:请将问题描述清楚,最好把你有问题的源码打包上传上来,这样更方便大家帮助你。 友情提醒:本版被采纳的主题可在 申请荣誉值 帖子申请荣誉值,获得 3点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
|