求大神帮忙修改下两个post的登陆代码

jinsong003

如图有两个post，但是禁止重定向后无法正常post登陆，源代码及抓包都在附件中，求大神指点，修改正常post登陆源码，不胜感谢！

wjnwwyh

  

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

获取验证码 ()

子程序名	返回值类型	公开	备 注
获取验证码

编辑框_验证码.内容 ＝ “”
图片框1.图片 ＝ HTTP读文件 (“http://www.3220.com/getcode.asp?id=” ＋ 时间_取随机时间戳 ())

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

变量名	类 型	静态	数组	备 注
str	文本型			返回内容
COOKIE	文本型

str ＝ 网页_访问s (“http://www.3220.com/chlogin.asp”, 1, “tfrom=http%3A%2F%2Fwww.3220.com%2F&LoginName=” ＋ 编辑框_账号.内容 ＋ “&LoginPwd=” ＋ 编辑框_密码.内容 ＋ “&codeKey=677136&yzm=” ＋ 编辑框_验证码.内容, , , , )
str ＝ 网页_访问s (“http://www.3220.com/Lconfirm.asp”, 1, )
如果真 (寻找文本 (str, “安全退出”, , 假) ≠ -1)
标签1.标题 ＝ “登陆成功”
子程序_获取个人信息 ()
返回 ()
标签1.标题 ＝ “登陆失败”
' 调试输出 (网页访问s (“http://www.3220.com/user/”, 1))

子程序名	返回值类型	公开	备 注
子程序_获取个人信息

变量名	类 型	静态	数组	备 注
返回文本	文本型
正则	正则表达式类

返回文本 ＝ 网页_访问s (“http://www.3220.com/user/”, 1)
正则.创建 ( #常量1, 返回文本)
编辑框1.加入文本 (“用户ID ” ＋ 正则.取子匹配文本 (1, 1) ＋ #换行符 )
编辑框1.加入文本 (“经验值 ” ＋ 正则.取子匹配文本 (1, 2) ＋ #换行符 )
编辑框1.加入文本 (“您目前果币 ” ＋ 正则.取子匹配文本 (1, 3) ＋ #换行符 )
编辑框1.加入文本 (“银行 ” ＋ 正则.取子匹配文本 (1, 4) ＋ #换行符 )
编辑框1.加入文本 (“股票 ” ＋ 正则.取子匹配文本 (1, 5) ＋ #换行符 )
编辑框1.加入文本 (“积分 ” ＋ 正则.取子匹配文本 (1, 6) ＋ #换行符 )
编辑框1.加入文本 (“你有多少条短消息 ” ＋ 正则.取子匹配文本 (1, 7) ＋ #换行符 )
编辑框1.加入文本 (“总投资额 ” ＋ 正则.取子匹配文本 (1, 8) ＋ #换行符 )
编辑框1.加入文本 (“投资人数 ” ＋ 正则.取子匹配文本 (1, 9) ＋ #换行符 )
编辑框1.加入文本 (“我的身价 ” ＋ 正则.取子匹配文本 (1, 10) ＋ #换行符 )

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

获取验证码 ()

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> 获取验证码 ()<br /> <br /> <br /> .子程序 获取验证码<br /> <br /> 编辑框_验证码.内容 ＝ “”<br /> 图片框1.图片 ＝ HTTP读文件 (“http://www.3220.com/getcode.asp?id=” ＋ 时间_取随机时间戳 ())<br /> <br /> <br /> .子程序 _按钮_登陆_被单击<br /> .局部变量 str, 文本型, , , 返回内容<br /> .局部变量 COOKIE, 文本型<br /> <br /> str ＝ 网页_访问s (“http://www.3220.com/chlogin.asp”, 1, “tfrom=http%3A%2F%2Fwww.3220.com%2F&LoginName=” ＋ 编辑框_账号.内容 ＋ “&LoginPwd=” ＋ 编辑框_密码.内容 ＋ “&codeKey=677136&yzm=” ＋ 编辑框_验证码.内容, , , , )<br /> str ＝ 网页_访问s (“http://www.3220.com/Lconfirm.asp”, 1, )<br /> .如果真 (寻找文本 (str, “安全退出”, , 假) ≠ -1)<br /> 标签1.标题 ＝ “登陆成功”<br /> 子程序_获取个人信息 ()<br /> 返回 ()<br /> .如果真结束<br /> 标签1.标题 ＝ “登陆失败”<br /> ' 调试输出 (网页访问s (“http://www.3220.com/user/”, 1))<br /> <br /> <br /> .子程序 子程序_获取个人信息<br /> .局部变量 返回文本, 文本型<br /> .局部变量 正则, 正则表达式类<br /> <br /> 返回文本 ＝ 网页_访问s (“http://www.3220.com/user/”, 1)<br /> 正则.创建 (#常量1, 返回文本)<br /> 编辑框1.加入文本 (“用户ID ” ＋ 正则.取子匹配文本 (1, 1) ＋ #换行符)<br /> 编辑框1.加入文本 (“经验值 ” ＋ 正则.取子匹配文本 (1, 2) ＋ #换行符)<br /> 编辑框1.加入文本 (“您目前果币 ” ＋ 正则.取子匹配文本 (1, 3) ＋ #换行符)<br /> 编辑框1.加入文本 (“银行 ” ＋ 正则.取子匹配文本 (1, 4) ＋ #换行符)<br /> 编辑框1.加入文本 (“股票 ” ＋ 正则.取子匹配文本 (1, 5) ＋ #换行符)<br /> 编辑框1.加入文本 (“积分 ” ＋ 正则.取子匹配文本 (1, 6) ＋ #换行符)<br /> 编辑框1.加入文本 (“你有多少条短消息 ” ＋ 正则.取子匹配文本 (1, 7) ＋ #换行符)<br /> 编辑框1.加入文本 (“总投资额 ” ＋ 正则.取子匹配文本 (1, 8) ＋ #换行符)<br /> 编辑框1.加入文本 (“投资人数 ” ＋ 正则.取子匹配文本 (1, 9) ＋ #换行符)<br /> 编辑框1.加入文本 (“我的身价 ” ＋ 正则.取子匹配文本 (1, 10) ＋ #换行符)<br /> <br /> .子程序 _图片框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 获取验证码 ()

-----------------------------------------华丽分割----------------------------------------------------
正则表达式
        您好&nbsp;<b style="color:#087db3;"><a href="myinfo.asp">(.*?)</b>&nbsp;<a href='javascript:;' title='经验值0'><img src="/images/lv0.jpg" border="0" align="bottom" style='border:none;margin-bottom:-3px;margin-top:7px; cursor:pointer;' alt='经验值0'></a></a>，经验值：<a href='/user/account\.asp'><span class="c2 b1">(.*?)</span>&nbsp;</a>，欢迎回来！<a href="/user/props\.asp" class="Wan"><font color="red"><b>购卡充值 >></a></B></font><br />
        您目前果币:<a href='/user/account\.asp'><span class="c1 b1">(.*?)</span>&nbsp;<img src="\.\./static/style/guobi\.gif" /></a>,&nbsp;&nbsp;银行:<a href='/user/bank\.asp'><span class="c1 b1">(.*?)</span>&nbsp;<img src="\.\./static/style/guobi.gif" /></a>,&nbsp;&nbsp;股票:<span style="font-weight:bold;color:#087db3;">(.*?)</span>&nbsp;<img src='/images/gu\.jpg' align='top' style='margin-top:2px;'/>,&nbsp;&nbsp;积分:<a href='/user/'><span class="c2 b1">(.*?)</span></a><br />
        您有<a href="/user/mes\.asp" class='emailbg'>\((.*?)\)</a> 条新的短信<a href="mes\.asp" class="tdn">&nbsp; &nbsp; <img src="/images/chakan1\.jpg" align="top" /></a><Br />
         
        总投资额：<span class="c1 b1">(.*?)&nbsp;<img src="\.\./static/style/guobi\.gif" /></span> &nbsp;&nbsp;&nbsp;
        投资人数：<span class="c2 b1">(.*?)个</span>&nbsp;&nbsp;&nbsp;
        我的身价：<span class="c3 b1">(.*?)&nbsp;<img src="\.\./static/style/guobi\.gif" /></span>
-----------------------------------------华丽分割----------------------------------------------------

wjnwwyh

验证码输入错误
图片框1.图片 ＝ 网页访问 (“http://www.3220.com/getcode.asp?id=” ＋ 时间_取随机时间戳 ())

jinsong003

wjnwwyh 发表于 2014-6-24 11:24
验证码输入错误
图片框1.图片 ＝ 网页访问 (“http://www.3220.com/getcode.asp?id=” ＋ 时间_取随机时间 ...

验证码修改后也是无法post登陆。。。

wjnwwyh

可以了，你这样就行
图片框1.图片 ＝ HTTP读文件 (“http://www.3220.com/getcode.asp?id=” ＋ 时间_取随机时间戳 ())

jinsong003

wjnwwyh 发表于 2014-6-24 11:43
可以了，你这样就行
图片框1.图片 ＝ HTTP读文件 (“http://www.3220.com/getcode.asp?id=” ＋ 时间_取随 ...

但是调试输出的网址内容里还是现实为登陆状态。。

wjnwwyh

已做好，论坛不知道怎么搞的，，图片发不了，附件上传不上来，加我q吧 117918227