织梦后台 post 登陆后的cookie问题

长翅膀的猫

我想做个POST 织梦CMS 发文章的看视频里的用对象的方式，
现在 登陆后获取到了cookie ，然后访问后台的一个文件，失败~
求大神指点
织梦post.rar (124.84 KB, 下载次数: 10)

2014-5-17 16:25 上传

点击文件名下载附件

半夏时光

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
返回cookies	文本型
返回cookies1	文本型

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

变量名	类 型	静态	数组	备 注
POST提交数据	文本型
POST提交地址	文本型
返回文本	文本型
url	文本型
str	文本型

网页_清除Cookie (“luoke.org”)
url ＝ “http://www.luoke.org/dede”
网页_访问_对象 (url, , , , , , , 真)
url ＝ “http://www.luoke.org/dede/”
网页_访问_对象 (url, , , , 返回cookies, , , 真)
POST提交地址 ＝ “http://www.luoke.org/dede/login.php”
POST提交数据 ＝ “gotopage=%2Fdede%2Findex.php&dopost=login&adminstyle=newdedecms&userid=admin&pwd=admin&sm1=”
返回文本 ＝ 到文本 (网页_访问_对象 (POST提交地址, 1, POST提交数据, 返回cookies, 返回cookies1))
如果真 (寻找文本 (返回文本, “成功登录，正在转向管理管理主页！”, , 假) ≠ -1)
调试输出 (“成功登录，正在转向管理管理主页！”)

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

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

url ＝ “http://www.luoke.org/dede/catalog_main.php”
str ＝ 到文本 (网页_访问_对象 (url, , , 网页_Cookie合并更新 (返回cookies, 返回cookies1), , ))
str ＝ 编码_URL解码 (str)
调试输出 (str)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 返回cookies, 文本型<br /> .程序集变量 返回cookies1, 文本型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 POST提交数据, 文本型<br /> .局部变量 POST提交地址, 文本型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 url, 文本型<br /> .局部变量 str, 文本型<br /> <br /> 网页_清除Cookie (“luoke.org”)<br /> url ＝ “http://www.luoke.org/dede”<br /> 网页_访问_对象 (url, , , , , , , 真)<br /> url ＝ “http://www.luoke.org/dede/”<br /> 网页_访问_对象 (url, , , , 返回cookies, , , 真)<br /> POST提交地址 ＝ “http://www.luoke.org/dede/login.php”<br /> POST提交数据 ＝ “gotopage=%2Fdede%2Findex.php&dopost=login&adminstyle=newdedecms&userid=admin&pwd=admin&sm1=”<br /> 返回文本 ＝ 到文本 (网页_访问_对象 (POST提交地址, 1, POST提交数据, 返回cookies, 返回cookies1))<br /> .如果真 (寻找文本 (返回文本, “成功登录，正在转向管理管理主页！”, , 假) ≠ -1)<br />     调试输出 (“成功登录，正在转向管理管理主页！”)<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 url, 文本型<br /> .局部变量 str, 文本型<br /> <br /> url ＝ “http://www.luoke.org/dede/catalog_main.php”<br /> str ＝ 到文本 (网页_访问_对象 (url, , , 网页_Cookie合并更新 (返回cookies, 返回cookies1), , ))<br /> str ＝ 编码_URL解码 (str)<br /> 调试输出 (str)

半夏时光

楼主看下源码，真心不喜欢你用创建winhttp对象的方式来访问网页，精易模块 网页访问多省事呀

半夏时光

看你这样子，貌似就是cookies的问题。。。

半夏时光

精易模块3.72