post登录失败

ljq521

post登录失败  
开始的时候用下面代码 登录成功，  后来估计论坛代码改动了，又登录失败了 郁闷

.版本 2
.支持库 spec
返回登录 ＝ 到文本 (网页_访问_对象 (“https://jf.changhong.com/”, , , , cookies, , , , , , , , , , , ))
调试输出 (cookies)
返回登录 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://passport.changhong.com/login.do?view=jf&service=https://jf.changhong.com/&livemode=1”, 1, “view=jf&ecKey=&username=” ＋ 编辑框1.内容 ＋ “&password=” ＋ 编辑框2.内容, cookies, , , , , , , , , , , , )), 真)
调试输出 (cookies)
返回登录 ＝ 到文本 (网页访问u (“https://jf.changhong.com/index.php?u=583”, , , cookies, , , ))
.如果 (寻找文本 (返回登录, “欢迎您回来！”, , 假) ≠ -1)
    标签3.标题 ＝ 文本_取出中间文本 (返回登录, #常量1, #常量2) ＋ “  欢迎您回来！”
.否则
    标签3.标题 ＝ “登录失败”
.如果结束
调试输出 (返回登录)

高手 请看看  哪里出问题了   
麻烦 调试一下 看看   
最后能贴出源码     也就几行   不胜感激！  


补充内容 (2017-4-24 16:05):
view=jf&ecKey=&username=13143074228&password=123123qqq

易正易则

没帐号和密码，懒得测试

忽闻绛雪

分清楚网页_访问_对象（）的参数，第四个是发送给服务器的SendCookie，第五个是服务器返回的SetCookie，你需要申请个变量接收返回的SetCookie，再用网页_Cookie合并更新（）命令更新Cookie

忽闻绛雪

给你个按键精灵登陆、签到的源码作参考

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
编码转换类	编码转换类
程序集Cookie	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮_登陆_被单击

判断 (编辑框_密码.内容 ≠ “” 且 编辑框_用户名.内容 ≠ “”)
线程_启动 (&POST登陆)
返回 ()

子程序名	返回值类型	公开	备 注
POST登陆

变量名	类 型	静态	数组	备 注
body	文本型
Str	文本型
RCookie	文本型

状态条.置文本 (0, “正在登陆，请稍候...”)
body ＝ “username=” ＋ 编码转换类.URL编码 (编辑框_用户名.内容, 真, 真) ＋ “&password=” ＋ 编辑框_密码.内容 ＋ “&question=0&answer=&templateid=0&login=%3CSPAN%3E%E7%99%BB%E5%BD%95%3C%2FSPAN%3E&expires=43200”
Str ＝ 编码转换类.utf8到gb2312 (到文本 (网页_访问_对象 (“http://bbs.anjian.com/login.aspx?referer=forumindex.aspx”, 1, body, , RCookie, , , , , , , , , , , )))
网页_Cookie合并更新 (程序集Cookie, RCookie)
调试输出 (Str)
判断 (寻找文本 (Str, “登录成功, 返回登录前页面”, , 假) ＞ 0)
状态条.置文本 (0, “登陆成功！”)
如果真 (选择框_签到.选中 ＝ 真)
进行签到 ()

状态条.置文本 (0, “登陆失败！”)

子程序名	返回值类型	公开	备 注
进行签到

变量名	类 型	静态	数组	备 注
body	文本型
Str	文本型

状态条.置文本 (0, “正在签到，请稍候...”)
body ＝ “signmessage=%E7%AD%BE%E4%B8%AA%E5%88%B0%EF%BC%8C%E6%AF%8F%E5%A4%A9%E5%BF%83%E6%83%85%E9%83%BD%E6%98%AF%E7%BE%8E%E7%BE%8E%E5%93%92%7E%7E%E6%8C%89%E9%94%AE%E7%B2%BE%E7%81%B5%E7%A5%9D%E5%A4%A7%E5%AE%B6%E9%B8%A1%E5%B9%B4%E5%A4%A7%E5%90%89%EF%BC%81%EF%BC%81%EF%BC%81”
Str ＝ 编码转换类.utf8到gb2312 (到文本 (网页_访问_对象 (“http://bbs.anjian.com/addsignin.aspx?infloat=1&inajax=1”, 1, body, 程序集Cookie, , , , , , , , , , , , )))
' 调试输出 (Str)
判断 (寻找文本 (Str, “你今天已经签到过了”, , 假) ＞ 0)
状态条.置文本 (0, “你今天已经签到过了”)
判断 (寻找文本 (Str, “恭喜您获取本日签到奖励”, , 假) ＞ 0)
信息框 (“恭喜您获取本日签到奖励：” ＋ 文本_取出中间文本 (Str, “恭喜您获取本日签到奖励：”, “
”), 0, , )
状态条.置文本 (0, “签到成功已获取奖励”)
状态条.置文本 (0, “签到失败！”)

获取用户信息 ()

子程序名	返回值类型	公开	备 注
获取用户信息

变量名	类 型	静态	数组	备 注
userid	文本型
url	文本型
Str	文本型
鲜花	文本型
铜币	文本型
银币	文本型
金币	文本型

userid ＝ 文本_取出中间文本 (程序集Cookie, “userid=”, “&”)
url ＝ “http://bbs.anjian.com/userinfo.aspx?userid=” ＋ userid
Str ＝ 编码转换类.utf8到gb2312 (到文本 (网页_访问_对象 (url, , , 程序集Cookie, , , , , , , , , , , , )))
调试输出 (Str)
鲜花 ＝ 文本_取出中间文本 (Str, “鲜花: ”, “,”)
铜币 ＝ 文本_取出中间文本 (Str, “铜币:”, “,”)
银币 ＝ 文本_取出中间文本 (Str, “银币: ”, “,”)
金币 ＝ 文本_取出中间文本 (Str, “金币: ”, “
”)
信息框 (“您有鲜花：” ＋ 鲜花 ＋ “，铜币：” ＋ 铜币 ＋ “，银币：” ＋ 银币 ＋ “，金币：” ＋ 金币, 0, , )

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 编码转换类, 编码转换类<br /> .程序集变量 程序集Cookie, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮_登陆_被单击<br /> <br /> .判断开始 (编辑框_密码.内容 ≠ “” 且 编辑框_用户名.内容 ≠ “”)<br />     线程_启动 (&POST登陆)<br /> .默认<br />     返回 ()<br /> .判断结束<br /> <br /> <br /> .子程序 POST登陆<br /> .局部变量 body, 文本型<br /> .局部变量 Str, 文本型<br /> .局部变量 RCookie, 文本型<br /> <br /> 状态条.置文本 (0, “正在登陆，请稍候...”)<br /> body ＝ “username=” ＋ 编码转换类.URL编码 (编辑框_用户名.内容, 真, 真) ＋ “&password=” ＋ 编辑框_密码.内容 ＋ “&question=0&answer=&templateid=0&login=%3CSPAN%3E%E7%99%BB%E5%BD%95%3C%2FSPAN%3E&expires=43200”<br /> Str ＝ 编码转换类.utf8到gb2312 (到文本 (网页_访问_对象 (“http://bbs.anjian.com/login.aspx?referer=forumindex.aspx”, 1, body, , RCookie, , , , , , , , , , , )))<br /> 网页_Cookie合并更新 (程序集Cookie, RCookie)<br /> 调试输出 (Str)<br /> .判断开始 (寻找文本 (Str, “登录成功, 返回登录前页面”, , 假) ＞ 0)<br />     状态条.置文本 (0, “登陆成功！”)<br />     .如果真 (选择框_签到.选中 ＝ 真)<br />         进行签到 ()<br />     .如果真结束<br /> <br /> .默认<br />     状态条.置文本 (0, “登陆失败！”)<br /> .判断结束<br /> <br /> <br /> .子程序 进行签到<br /> .局部变量 body, 文本型<br /> .局部变量 Str, 文本型<br /> <br /> 状态条.置文本 (0, “正在签到，请稍候...”)<br /> <br /> body ＝ “signmessage=%E7%AD%BE%E4%B8%AA%E5%88%B0%EF%BC%8C%E6%AF%8F%E5%A4%A9%E5%BF%83%E6%83%85%E9%83%BD%E6%98%AF%E7%BE%8E%E7%BE%8E%E5%93%92%7E%7E%E6%8C%89%E9%94%AE%E7%B2%BE%E7%81%B5%E7%A5%9D%E5%A4%A7%E5%AE%B6%E9%B8%A1%E5%B9%B4%E5%A4%A7%E5%90%89%EF%BC%81%EF%BC%81%EF%BC%81”<br /> <br /> Str ＝ 编码转换类.utf8到gb2312 (到文本 (网页_访问_对象 (“http://bbs.anjian.com/addsignin.aspx?infloat=1&inajax=1”, 1, body, 程序集Cookie, , , , , , , , , , , , )))<br /> <br /> ' 调试输出 (Str)<br /> <br /> .判断开始 (寻找文本 (Str, “你今天已经签到过了”, , 假) ＞ 0)<br />     状态条.置文本 (0, “你今天已经签到过了”)<br /> .判断 (寻找文本 (Str, “恭喜您获取本日签到奖励”, , 假) ＞ 0)<br />     信息框 (“恭喜您获取本日签到奖励：” ＋ 文本_取出中间文本 (Str, “恭喜您获取本日签到奖励：”, “<br /> ”), 0, , )<br />     状态条.置文本 (0, “签到成功已获取奖励”)<br /> .默认<br />     状态条.置文本 (0, “签到失败！”)<br /> .判断结束<br /> <br /> 获取用户信息 ()<br /> <br /> <br /> <br /> .子程序 获取用户信息<br /> .局部变量 userid, 文本型<br /> .局部变量 url, 文本型<br /> .局部变量 Str, 文本型<br /> .局部变量 鲜花, 文本型<br /> .局部变量 铜币, 文本型<br /> .局部变量 银币, 文本型<br /> .局部变量 金币, 文本型<br /> <br /> userid ＝ 文本_取出中间文本 (程序集Cookie, “userid=”, “&”)<br /> url ＝ “http://bbs.anjian.com/userinfo.aspx?userid=” ＋ userid<br /> Str ＝ 编码转换类.utf8到gb2312 (到文本 (网页_访问_对象 (url, , , 程序集Cookie, , , , , , , , , , , , )))<br /> 调试输出 (Str)<br /> 鲜花 ＝ 文本_取出中间文本 (Str, “鲜花: ”, “,”)<br /> 铜币 ＝ 文本_取出中间文本 (Str, “铜币:”, “,”)<br /> 银币 ＝ 文本_取出中间文本 (Str, “银币: ”, “,”)<br /> 金币 ＝ 文本_取出中间文本 (Str, “金币: ”, “<br /> ”)<br /> 信息框 (“您有鲜花：” ＋ 鲜花 ＋ “，铜币：” ＋ 铜币 ＋ “，银币：” ＋ 银币 ＋ “，金币：” ＋ 金币, 0, , )

ljq521

易正易则 发表于 2017-4-21 23:43
没帐号和密码，懒得测试

view=jf&ecKey=&username=13143074228&password=123123qqq  麻烦了   

ljq521

忽闻绛雪 发表于 2017-4-22 00:24
给你个按键精灵登陆、签到的源码作参考[e=2].版本 2
.支持库 iext
.支持库 spec

麻烦   用我 补充的  测试  

这个 和你 提供的  不一样  
这个网站  重定向了    有点不一样    协yi头也没什么特别的  

jace

那个代码一剪切就失去参数了，请教那是啥问题啊