|
楼主 |
发表于 2013-4-8 23:02:53
|
显示全部楼层
河南省驻马店市
那小子很坏 发表于 2013-4-8 22:59
其实没怎么帮到你不过你可以参考呵呵
.版本 2
.支持库 internet
.支持库 spec
.子程序 post发博文
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 提交返回, 文本型
.局部变量 源, 文本型
.局部变量 fks, 文本型
.局部变量 EDITBLOG, 文本型
.局部变量 http, HTTP类
.局部变量 协议, 文本型
源 = 到文本 (HTTP读文件 (“http://zz282036664.blog.163.com/getBlog.do?fromString=topbar”))
类.创建 (#a3, 假, 真)
类.搜索全部 (源)
fks = 类.取子匹配文本 (1, 1)
调试输出 (fks)
类.创建 (#a4, 假, 真)
类.搜索全部 (源)
EDITBLOG = 类.取子匹配文本 (1, 1)
调试输出 (EDITBLOG)
提交地址 = “http://api.blog.163.com/zz282036664/editBlogNew.do?p=1&n=1&from=topbar”
提交数据 = “tag=&cls=fks_084069084094080071086084080095086087086069083086087071080&contribute=&allowview=-100&refurl=&abstract=&bid=&origClassId=&origPublishState=&oldtitle=&todayPublishedCount=0&NETEASE_BLOG_TOKEN_EDITBLOG=85f17e1f8672f2823428c87bf7823a14&title=%E8%AE%A4%E8%AF%86%E4%BD%A0%E7%9C%9F%E5%BC%80%E5%BF%83%EF%BC%81&HEContent=%E8%AE%A4%E8%AF%86%E4%BD%A0%E7%9C%9F%E5%BC%80%E5%BF%83%EF%BC%81%E9%A6%96%E5%85%88%E8%B7%9F%E7%9D%80%E5%B0%8F%E7%AE%A1%E6%9D%A5%E7%86%9F%E6%82%89%E4%B8%80%E4%B8%8B%E6%96%B0%E7%8E%AF%E5%A2%83%E5%90%A7--%3CWBR%3E©Photos=&suggestedSortedIds=&suggestedRecomCnt=&suggestedStyle=0&isSuggestedEachOther=0&photoBookImgUrl=&contributeType=&msyn=1&miniBlogCard=0&p=1”
' “tag=&cls=fks_” + fks + “&contribute=&allowview=-100&refurl=&abstract=&bid=&origClassId=&origPublishState=&oldtitle=&todayPublishedCount=0&NETEASE_BLOG_TOKEN_EDITBLOG=” + EDITBLOG + “&title=” + 编码_URL解码_UTF8 (“这是测试标题之二十三”) + “&HEContent=” + 编码_URL解码_UTF8 (“这是测试内容之二百三”) + “©Photos=&suggestedSortedIds=&suggestedRecomCnt=&suggestedStyle=0&isSuggestedEachOther=0&photoBookImgUrl=&contributeType=&msyn=1&miniBlogCard=0&p=1”
协议 = “Accept: */*” + #换行符 + “Content-Type: application/x-www-form-urlencoded” + #换行符 + “Referer: http://api.blog.163.com/crossdomain.html?t=20100205” + #换行符 + “Accept-Language: zh-cn” + #换行符 + “Accept-Encoding: gzip, deflate” + #换行符 + “User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)” + #换行符 + “Host: api.blog.163.com” + #换行符 + “Content-Length: 684” + #换行符 + “Connection: Keep-Alive” + #换行符 + “Cache-Control: no-cache”
调试输出 (到文本 (http.访问网络 (提交地址, “post”, , , 提交数据)))
-------------------------------------------
以上 是折磨我的部分源码,当然,作为测试,部分没有用上。用原始数据再次post,就又不屡了。晕了---这一块我都没脾气了…… |
|