起点登录问题

夜色无边

  

子程序名	返回值类型	公开	备 注
load
参数名	类 型	参考	可空	数组	备 注
参_账号	文本型
参_密码	文本型

变量名	类 型	静态	数组	备 注
url	文本型
ret	文本型

' 首先获取验证码
调试输出 (“开始登录账号”, 参_账号, 参_密码)
code ＝ “”
如果真 (cookie ＝ “”)
url ＝ “http://login.qidian.com/”
ret ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookie, ))
url ＝ “http://uedas.qidian.com/statajax.aspx?opName=AddGlobalUser&clientColorDepth=24&clientScreenWidth=1920&clientScreenHeight=1080&flashVersion=20.0%20r0&referrer=&pageTitle=%25u5E10%25u53F7%25u767B%25u5F55%2520%257C%2520%25u8D77%25u70B9%25u4E2D%25u6587%25u7F51&host=login.qidian.com&pagePathName=/&pageQueryString=&pageUrl=http%253A//login.qidian.com/&topPageUrl=http%253A//login.qidian.com/&isErrorPage=0&curToken=”
ret ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookie, ))

如果真 (code_url ＝ “”)
url ＝ “https://acs.qidian.com/authen/staticLogin.ashx?method=jsonp” ＋ 时间_取现行时间戳 () ＋ “&_=” ＋ 时间_取现行时间戳 () ＋ “&appId=10&areaId=1&serviceurl=http%3A%2F%2Favd.qidian.com%2FOALoginjump.aspx%3Fqd_skip%3D1%26ReturnUrl%3Dhttp%253A%252F%252Fwww.qidian.com%252FDefault.aspx%26appId%3D10%26areaId%3D1%26sitetype%3D1%26ticketType%3D1&frametype=2&endpointos=1&format=jsonp&inputuserid=” ＋ 参_账号 ＋ “&password=” ＋ 参_密码 ＋ “&autologinflag=0&autologinkeeptime=14”
网页_Cookie合并更新 (cookie, “beacon_visit_count=1;”)
ret ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookie, ))
guid ＝ 文本_取出中间文本 (ret, “guid” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号 )
code_url ＝ 文本_取出中间文本 (ret, “checkCodeUrl” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号 )

如果 (取反 (bool))
bool ＝ 真
图片框1.图片 ＝ 网页_访问 (code_url, , , cookie, , )
编辑框_code.内容 ＝ “”
编辑框_code.获取焦点 ()


bool ＝ 假
图片框1.图片 ＝ 网页_访问 (code_url ＋ “&rnd=” ＋ 时间_取随机时间戳 (), , , cookie, , )
编辑框_code.内容 ＝ “”
编辑框_code.获取焦点 ()

循环判断首 ()
程序_延时 (1000)
处理事件 ()
如果真 (取文本长度 (code) ＞ 0)
跳出循环 ()

循环判断尾 (真)
' 这里开始登录
url ＝ “https://acs.qidian.com/authen/checkcodelogin.ashx?method=jsonp” ＋ 时间_取随机时间戳 () ＋ “&_=” ＋ 时间_取随机时间戳 () ＋ “&appId=10&areaId=1&serviceurl=http%3A%2F%2Favd.qidian.com%2FOALoginJump.aspx%3Fqd_skip%3D1%26ReturnUrl%3Dhttp%253A%252F%252Fwww.qidian.com%252F%26appId%3D10%26areaId%3D1%26sitetype%3D1%26ticketType%3D1&frametype=2&endpointos=1&format=jsonp&guid=” ＋ guid ＋ “&password=” ＋ code ＋ “&autologinflag=0”
调试输出 (url)
ret ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookie))
信息框 (ret, 0, , )
如果真 (寻找文本 (ret, “验证码”, , 假) ≠ -1)
load (参_账号, 参_密码)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 load<br /> .参数 参_账号, 文本型<br /> .参数 参_密码, 文本型<br /> .局部变量 url, 文本型<br /> .局部变量 ret, 文本型<br /> <br /> ' 首先获取验证码<br /> 调试输出 (“开始登录账号”, 参_账号, 参_密码)<br /> code ＝ “”<br /> .如果真 (cookie ＝ “”)<br /> <br />     url ＝ “http://login.qidian.com/”<br />     ret ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookie, ))<br /> <br /> <br />     url ＝ “http://uedas.qidian.com/statajax.aspx?opName=AddGlobalUser&clientColorDepth=24&clientScreenWidth=1920&clientScreenHeight=1080&flashVersion=20.0%20r0&referrer=&pageTitle=%25u5E10%25u53F7%25u767B%25u5F55%2520%257C%2520%25u8D77%25u70B9%25u4E2D%25u6587%25u7F51&host=login.qidian.com&pagePathName=/&pageQueryString=&pageUrl=http%253A//login.qidian.com/&topPageUrl=http%253A//login.qidian.com/&isErrorPage=0&curToken=”<br />     ret ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookie, ))<br /> .如果真结束<br /> <br /> .如果真 (code_url ＝ “”)<br />     url ＝ “https://acs.qidian.com/authen/staticLogin.ashx?method=jsonp” ＋ 时间_取现行时间戳 () ＋ “&_=” ＋ 时间_取现行时间戳 () ＋ “&appId=10&areaId=1&serviceurl=http%3A%2F%2Favd.qidian.com%2FOALoginjump.aspx%3Fqd_skip%3D1%26ReturnUrl%3Dhttp%253A%252F%252Fwww.qidian.com%252FDefault.aspx%26appId%3D10%26areaId%3D1%26sitetype%3D1%26ticketType%3D1&frametype=2&endpointos=1&format=jsonp&inputuserid=” ＋ 参_账号 ＋ “&password=” ＋ 参_密码 ＋ “&autologinflag=0&autologinkeeptime=14”<br /> <br />     网页_Cookie合并更新 (cookie, “beacon_visit_count=1;”)<br /> <br /> <br />     ret ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookie, ))<br />     guid ＝ 文本_取出中间文本 (ret, “guid” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号)<br />     code_url ＝ 文本_取出中间文本 (ret, “checkCodeUrl” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号)<br /> <br /> .如果真结束<br /> <br /> .如果 (取反 (bool))<br />     bool ＝ 真<br />     图片框1.图片 ＝ 网页_访问 (code_url, , , cookie, , )<br />     编辑框_code.内容 ＝ “”<br />     编辑框_code.获取焦点 ()<br /> .否则<br /> <br /> <br />     bool ＝ 假<br />     图片框1.图片 ＝ 网页_访问 (code_url ＋ “&rnd=” ＋ 时间_取随机时间戳 (), , , cookie, , )<br />     编辑框_code.内容 ＝ “”<br />     编辑框_code.获取焦点 ()<br /> <br /> <br /> <br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> .循环判断首 ()<br />     程序_延时 (1000)<br />     处理事件 ()<br />     .如果真 (取文本长度 (code) ＞ 0)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .循环判断尾 (真)<br /> ' 这里开始登录<br /> <br /> url ＝ “https://acs.qidian.com/authen/checkcodelogin.ashx?method=jsonp” ＋ 时间_取随机时间戳 () ＋ “&_=” ＋ 时间_取随机时间戳 () ＋ “&appId=10&areaId=1&serviceurl=http%3A%2F%2Favd.qidian.com%2FOALoginJump.aspx%3Fqd_skip%3D1%26ReturnUrl%3Dhttp%253A%252F%252Fwww.qidian.com%252F%26appId%3D10%26areaId%3D1%26sitetype%3D1%26ticketType%3D1&frametype=2&endpointos=1&format=jsonp&guid=” ＋ guid ＋ “&password=” ＋ code ＋ “&autologinflag=0”<br /> <br /> 调试输出 (url)<br /> ret ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookie))<br /> 信息框 (ret, 0, , )<br /> .如果真 (寻找文本 (ret, “验证码”, , 假) ≠ -1)<br />     load (参_账号, 参_密码)

能找到的一些COOKIE 也都处理了, 怎么每次都提示验证码错误呢

登录起点.zip (777.85 KB, 下载次数: 18)

2015-12-17 01:02 上传

点击文件名下载附件

谁知道

验证码cookies带上了吗？

夜色无边

谁知道 发表于 2015-12-17 02:14
验证码cookies带上了吗？

我总共找到了4个COOKIE, 全都加上了

谁知道

发测试帐号 我帮你写一个QQ： 3260641700