本帖最后由 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)
|