验证码过期，请重新登陆？请问哪里出错了？

tgwwin

志趣网POST登录，有时可以成功，不过大多数提示：验证码过期，请重新登陆。应该是验证码那里少了什么参数，本人初学POST，实在查不出是哪出了问题，请易友有空帮忙看下，谢谢。

志趣网登录.rar (176.22 KB, 下载次数: 10)

2015-4-24 17:34 上传

点击文件名下载附件

TOPCEO

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

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

变量名	类 型	静态	数组	备 注
obj	_WINHttp
url	文本型
body	文本型
bin	字节集
str	文本型
session	文本型
stream	文本型
图片	字节集
新图片	字节集
bool	逻辑型
code	文本型

bool ＝ 真
url ＝ “http://www.bestb2b.com/mynosiseimage?Fri Apr 24 ” ＋ 时间_转换为标准时间 () ＋ “ UTC+0800 2015”
图片 ＝ obj.Winhttp_ (url, , , , , , , , , , , , “http://www.bestb2b.com/jsp/signin.jsp”, “application/x-www-form-urlencoded”)
图片_转换 (图片, 2, , 新图片)
图片框1.图片 ＝ 新图片
编辑框_验证码.内容 ＝ “”
编辑框_验证码.获取焦点 ()
判断循环首 (bool)
如果真 (取文本长度 (编辑框_验证码.内容) ≥ 6)
code ＝ 删全部空 (编辑框_验证码.内容)
跳出循环 ()
处理事件 ()
判断循环尾 ()
url ＝ “http://www.bestb2b.com/signin.aspx”
body ＝ “username=” ＋ 编辑框_账号.内容 ＋ “&password=” ＋ 编辑框_密码.内容 ＋ “&userType=corp&validateCode=” ＋ code ＋ “&Submit=%B5%C7%C2%BC&PersistantLogin=1”
bin ＝ obj.Winhttp_ (url, “POST”, body, , stream, session, , , , , , , “http://www.bestb2b.com/jsp/signin.jsp”, “application/x-www-form-urlencoded”)
str ＝ 到文本 (bin)
调试输出 (str)
判断 (寻找文本 (str, “退出”, , 假) ≠ -1)
调试输出 (“恭喜你登录成功”)
调试输出 (“Sorry,登录失败”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮_登录_被单击<br /> .局部变量 obj, _WINHttp<br /> .局部变量 url, 文本型<br /> .局部变量 body, 文本型<br /> .局部变量 bin, 字节集<br /> .局部变量 str, 文本型<br /> .局部变量 session, 文本型<br /> .局部变量 stream, 文本型<br /> .局部变量 图片, 字节集<br /> .局部变量 新图片, 字节集<br /> .局部变量 bool, 逻辑型<br /> .局部变量 code, 文本型<br /> <br /> bool ＝ 真<br /> url ＝ “http://www.bestb2b.com/mynosiseimage?Fri Apr 24 ” ＋ 时间_转换为标准时间 () ＋ “ UTC+0800 2015”<br /> 图片 ＝ obj.Winhttp_ (url, , , , , , , , , , , , “http://www.bestb2b.com/jsp/signin.jsp”, “application/x-www-form-urlencoded”)<br /> 图片_转换 (图片, 2, , 新图片)<br /> 图片框1.图片 ＝ 新图片<br /> 编辑框_验证码.内容 ＝ “”<br /> 编辑框_验证码.获取焦点 ()<br /> .判断循环首 (bool)<br />     .如果真 (取文本长度 (编辑框_验证码.内容) ≥ 6)<br />         code ＝ 删全部空 (编辑框_验证码.内容)<br />         跳出循环 ()<br />     .如果真结束<br />     处理事件 ()<br /> .判断循环尾 ()<br /> url ＝ “http://www.bestb2b.com/signin.aspx”<br /> body ＝ “username=” ＋ 编辑框_账号.内容 ＋ “&password=” ＋ 编辑框_密码.内容 ＋ “&userType=corp&validateCode=” ＋ code ＋ “&Submit=%B5%C7%C2%BC&PersistantLogin=1”<br /> bin ＝ obj.Winhttp_ (url, “POST”, body, , stream, session, , , , , , , “http://www.bestb2b.com/jsp/signin.jsp”, “application/x-www-form-urlencoded”)<br /> str ＝ 到文本 (bin)<br /> 调试输出 (str)<br /> .判断开始 (寻找文本 (str, “退出”, , 假) ≠ -1)<br />     调试输出 (“恭喜你登录成功”)<br /> .默认<br />     调试输出 (“Sorry,登录失败”)<br /> .判断结束

[size=14.4444446563721px]Fri Apr 24
[size=14.4444446563721px]这个地方也要注意的，你需要把现行日期转换成.  星期几 （英文简写） 月份（英文简写） 日期

蓝色的眼泪

QQ：714150395