找回密码
 加入
搜索
查看: 7408|回复: 7

[网络通信] 帮忙写一个修改网易博客的post

[复制链接]
发表于 2011-11-20 20:16:53 | 显示全部楼层 |阅读模式
悬赏200金钱已解决
本帖最后由 cxlater 于 2011-11-21 02:41 编辑

文章地址:http://autoittest.blog.163.com/b ... 9520020111020883753
用户名:autoittest
密码:au3au3au3
用post完成博文内容的修改!
请教了

最佳答案

查看完整内容

寫好了 不過 基礎的 重要的部分寫好了 細節你自己要修飾一下 不懂得在問我吧 [AU3]#include #include $X2="https://reg.163.com/logins.jsp" $X3="password=au3au3au3&type=1&url=http%3A%2F%2Fblog.163.com%2FloginGate.do%3Ftarget%3Dhttp%253A%252F%252Fautoittest.blog.163.com%252Fblog%252Fstatic%252F19989520020111020883753%252F%26blogActivation%3Dtrue&product=blog&savelogin=0&username=autoittest@163.com" ...
发表于 2011-11-20 20:16:54 | 显示全部楼层
本帖最后由 kk_lee69 于 2011-11-21 01:01 编辑

寫好了 不過 基礎的 重要的部分寫好了

細節你自己要修飾一下  不懂得在問我吧
#include <Array.au3>
#include <WinHttp_GetRespond.au3>




$X2="https://reg.163.com/logins.jsp"
$X3="password=au3au3au3&type=1&url=http%3A%2F%2Fblog.163.com%2FloginGate.do%3Ftarget%3Dhttp%253A%252F%252Fautoittest.blog.163.com%252Fblog%252Fstatic%252F19989520020111020883753%252F%26blogActivation%3Dtrue&product=blog&savelogin=0&username=autoittest@163.com"


$xiu = "http://api.blog.163.com/autoittest/editBlogNew.do?p=1&n=0"
$POSDATA="tag=&cls=fks_084071085081082066086095086095085095088075093083084067084&allowview=-100&refurl=&abstract=&bid=fks_087067080086084066093086083069072087088074092095083065084086&origClassId=fks_084071085081082066086095086095085095088075093083084067084&origPublishState=1&oldtitle=test&todayPublishedCount=0&NETEASE_BLOG_TOKEN_EDITBLOG=cc92b46b19a5069ee0005e81b9d734da&title=test&HEContent=%0D%0A%3CDIV%20align%3Dleft%3Etesttext%E4%BF%AE%E6%94%B9%E6%B5%8B%E8%AF%95AACCCCCCCCCCCCAAA%3CBR%3E%3C%2FDIV%3E©Photos=&suggestedSortedIds=&suggestedRecomCnt=&suggestedStyle=0&isSuggestedEachOther=0&photoBookImgUrl=&miniBlogCard=0&p=1"
 
                                ;獲取網頁
                $MyOpen=_WinHttpOpen()
 

        $rContext=_WinHTTP_GetRespond($MyOpen,$X2,1 + 4 + 2, 50000, $X3, -1, "Content-Type: application/x-www-form-urlencoded")
        If @error Then 
                        MsgBox(0,@error,"出錯了2")
                        Exit
                EndIf
                _ArrayDisplay($rContext)


                
                $rContext=_WinHTTP_GetRespond($MyOpen, $xiu,1 + 4 + 2, 50000,$POSDATA, -1, "Content-Type: application/x-www-form-urlencoded")
                If @error Then 
                        MsgBox(0,@error,"獲取失敗3")
                        Exit
                EndIf
                _ArrayDisplay($rContext)
                     
                
                ;_WinHttpCloseHandle($GlbalConnect) 
        _WinHttpCloseHandle($MyOpen) 
 楼主| 发表于 2011-11-20 22:37:10 | 显示全部楼层
顶一下吧  对winhttp一窍不通
 楼主| 发表于 2011-11-21 00:29:44 | 显示全部楼层
200太少了?
发表于 2011-11-21 01:00:40 | 显示全部楼层
至於 文章內容要先轉換為.....%EA%12 類似這種格式的東西

請參考  中文資料區   我寫的一篇 關於給新手的POST 跟GET 的部份 裡面的程式碼都有
 楼主| 发表于 2011-11-21 01:09:44 | 显示全部楼层
这个是urlencode  我知道的  
先吃一下这个过程
谢谢
发表于 2011-11-21 01:14:06 | 显示全部楼层
程式碼應該是可以用的  不過我在台灣....成功過一次後 必須要等一陣子 才成在成功.......不知道是不是 兩岸的問題...........有問題的話 歡迎提出討論
 楼主| 发表于 2011-11-21 01:39:40 | 显示全部楼层
豁然开朗  感谢楼上
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-6 09:59 , Processed in 0.074685 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表