求助老师禁止重定向问题

花猫的思念

.版本 2
.支持库 じ☆ve Hebe
.子程序 _按钮1_被单击
.局部变量 body, 文本型
.局部变量 str, 文本型
.局部变量 jcookie, 文本型
' ''////'这是完整的提交信息  mitUSERNAME=&mitPASSWORD=dGFvemhpNTIxZ2x3

body ＝ “mitUSERNAME=&mitPASSWORD=” ＋ BASE64编码 (到字节集 (“taozhi521glw”))
str ＝ 到文本 (网页_访问 (“http://192.168.0.1/login/Auth”, 1, body, , jcookie, #常量1, , 真))
输出调试文本 (str, jcookie)

家里的路由器抓包 重定向也禁止了.也带了协yi头但返回的数据总是错误的

苍龙

  

子程序名	返回值类型	公开	备 注
login

变量名	类 型	静态	数组	备 注
url	文本型
postdata	文本型
html_msg	文本型
str	文本型
z	正则表达式类
i	整数型
wlpasswd	文本型
user_name	文本型
user_passwd	文本型
wlness_pass	文本型
lan_ip	文本型
Cookie	文本型

url ＝ “http://192.168.0.1/login/Auth”
判断 (删首尾空 (编辑框_user.内容) ≠ “admin”)
postdata ＝ “mitUSERNAME=” ＋ 删首尾空 (编辑框_user.内容) ＋ “&mitPASSWORD=” ＋ 编码_BASE64编码 (到字节集 (删首尾空 (编辑框_pass.内容)))
postdata ＝ “mitUSERNAME=&mitPASSWORD=” ＋ 编码_BASE64编码 (到字节集 (删首尾空 (编辑框_pass.内容)))

网页_访问_对象 (url, 1, postdata, Cookie, , , html_msg, , 真)
判断 (寻找文本 (html_msg, “Location:”, , 假) ＝ -1)
信息框 (“登陆失败！”, 0, , )
url ＝ 文本_取出中间文本 (html_msg, “Location: ”, #换行符 )
str ＝ 编码_URL解码 (到文本 (网页_访问_对象 (url, 0, , Cookie)), 真)
z.创建 ( #常量_val, str)
计次循环首 (z.取匹配数量 (), i)
如果真 (i ＝ 2)
wlpasswd ＝ z.取子匹配文本 (i, 2)
如果真 (i ＝ 6)
user_name ＝ z.取子匹配文本 (i, 2)
如果真 (i ＝ 7)
user_passwd ＝ z.取子匹配文本 (i, 2)
如果真 (i ＝ 8)
wlness_pass ＝ z.取子匹配文本 (i, 2)
如果真 (i ＝ 17)
lan_ip ＝ z.取子匹配文本 (i, 2)
处理事件 ()
计次循环尾 ()
标签_msg.标题 ＝ “路由器IP地址：” ＋ lan_ip ＋ “   网络密码：” ＋ wlpasswd ＋ #换行符 ＋ #换行符 ＋ “用户名：” ＋ user_name ＋ “   密码：” ＋ user_passwd ＋ #换行符 ＋ #换行符 ＋ “ 无线wifi密码：” ＋ wlness_pass

.版本 2<br /> <br /> .子程序 login<br /> .局部变量 url, 文本型<br /> .局部变量 postdata, 文本型<br /> .局部变量 html_msg, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 z, 正则表达式类<br /> .局部变量 i, 整数型<br /> .局部变量 wlpasswd, 文本型<br /> .局部变量 user_name, 文本型<br /> .局部变量 user_passwd, 文本型<br /> .局部变量 wlness_pass, 文本型<br /> .局部变量 lan_ip, 文本型<br /> .局部变量 Cookie, 文本型<br /> <br /> url ＝ “http://192.168.0.1/login/Auth”<br /> .判断开始 (删首尾空 (编辑框_user.内容) ≠ “admin”)<br />     postdata ＝ “mitUSERNAME=” ＋ 删首尾空 (编辑框_user.内容) ＋ “&mitPASSWORD=” ＋ 编码_BASE64编码 (到字节集 (删首尾空 (编辑框_pass.内容)))<br /> .默认<br />     postdata ＝ “mitUSERNAME=&mitPASSWORD=” ＋ 编码_BASE64编码 (到字节集 (删首尾空 (编辑框_pass.内容)))<br /> .判断结束<br /> <br /> 网页_访问_对象 (url, 1, postdata, Cookie, , , html_msg, , 真)<br /> .判断开始 (寻找文本 (html_msg, “Location:”, , 假) ＝ -1)<br />     信息框 (“登陆失败！”, 0, , )<br /> .默认<br />     url ＝ 文本_取出中间文本 (html_msg, “Location: ”, #换行符)<br />     str ＝ 编码_URL解码 (到文本 (网页_访问_对象 (url, 0, , Cookie)), 真)<br />     z.创建 (#常量_val, str)<br />     .计次循环首 (z.取匹配数量 (), i)<br />         .如果真 (i ＝ 2)<br />             wlpasswd ＝ z.取子匹配文本 (i, 2)<br />         .如果真结束<br />         .如果真 (i ＝ 6)<br />             user_name ＝ z.取子匹配文本 (i, 2)<br />         .如果真结束<br />         .如果真 (i ＝ 7)<br />             user_passwd ＝ z.取子匹配文本 (i, 2)<br />         .如果真结束<br />         .如果真 (i ＝ 8)<br />             wlness_pass ＝ z.取子匹配文本 (i, 2)<br />         .如果真结束<br />         .如果真 (i ＝ 17)<br />             lan_ip ＝ z.取子匹配文本 (i, 2)<br />         .如果真结束<br />         处理事件 ()<br />     .计次循环尾 ()<br />     标签_msg.标题 ＝ “路由器IP地址：” ＋ lan_ip ＋ “   网络密码：” ＋ wlpasswd ＋ #换行符 ＋ #换行符 ＋ “用户名：” ＋ user_name ＋ “   密码：” ＋ user_passwd ＋ #换行符 ＋ #换行符 ＋ “ 无线wifi密码：” ＋ wlness_pass

苍龙

路由器没这么复杂吧，地址错误了吧
你这样看不出来什么的

花猫的思念

苍龙 发表于 2016-7-21 11:09
路由器没这么复杂吧，地址错误了吧
你这样看不出来什么的

路由器抓包.zip (135.19 KB, 下载次数: 3)

2016-7-21 12:02 上传

点击文件名下载附件
这是封包

苍龙

很简单啊！
一下就可以了

苍龙

联系我，远程帮你看看，我这也没法调试

苍龙

附上简单源码

花猫的思念

苍龙 发表于 2016-7-21 13:09
附上简单源码

老师能帮我远程一下吗我的qq是2041798989