VB post注册的问题

bjlove2012 2012-11-04 06:28:12

哪位高人写过post注册yy的例子没,请指教指教小弟，不知道是不是要对cookie操作，下面是post的代码，但是post后获得的源码总是"您当前的IP访问太频繁，请过一段时间再试".请各位大大帮小弟分析分析，谢过~



Webstring = Inet1.OpenURL("https://udb.yy.com/register/core.do?regType=inner&appid=21&url=http%3A%2F%2Fwww.yy.com%2F")

Sstring1 = Split(Split(Webstring, "type=" & """" & "hidden" & """" & " name=" & """")(1), """")(0)

Sstring2 = Split(Split(Webstring, "type=" & """" & "hidden" & """" & " name=" & """")(1), """")(2)

Sstring3 = Split(Split(Webstring, "timer4reg" & """")(1), """")(1)

Sstring4 = Split(Split(Webstring, "rcall")(1), """")(2)

Spost = Script(Me.Text5.Text)' text5中放的js代码，Script用来获得post地址后面变化的部分

url = "https://udb.duowan.com/registerV2/" & Spost & ".do"

postTem = "url=http%253A%252F%252Fwww.yy.com%252F&appid=21®Type=inner&" & Sstring1 & "=" & Sstring2 & "&timer4reg=" & Sstring3 & "&rcall=" & Sstring4 & "&username=" & Username & "&password=" & Password & "&securityCode1=" & Yanzhengma

Inet1.Execute url, "POST", postTem, "Content-Type: application/x-www-form-urlencoded"

Do While Inet1.StillExecuting

    DoEvents

Loop

temp = UTF8_Decode(Inet1.GetChunk(20000))

Debug.Print temp

这个是抓的包
POST /registerV2/fc02.do HTTP/1.1
Accept: text/html, application/xhtml+xml, */*
Referer: https://udb.yy.com/register/core.do?regType=inner&appid=21&url=http%3A%2F%2Fwww.yy.com%2F
Accept-Language: zh-CN
User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; qdesk 2.5.1270.201; Windows NT 6.2; WOW64; Trident/6.0)
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
Host: udb.yy.com
Content-Length: 320
DNT: 1
Connection: Keep-Alive
Cache-Control: no-cache
Cookie: username2=ge4t944j; UDBSESSIONID=0cc1fd54a58965a2a49e42553fba8f7d182546ca; UDBRJESSESSIONID=aaaFmS0BkoWh448tDaaRt; _r=1b841d5fe5b295b58675d8677dc9b6e041e6a305; _a=f3f04228d9e06fcdfaab2857643180a06210fe88; hiido_ui=0.6148015452169304

url=http%253A%252F%252Fwww.yy.com%252F&appid=21®Type=inner&75ed8d477877addd930545cdb4f7c9c480dcda91=4547c73d9cdff16e9f3be59dc60ce5a3c7a049ea&timer4reg=41F829955F45326114F45380FF86FA59&rcall=%2BpfmWHeMpBGNQqt6EHQ%2BWlT45k53zn49f1zN40luxTH%2FsZNE9JUmdA%3D%3D&username=zhongguodiaoyudao&password=oo1234&securityCode1=dvibna

...全文