level 6
cy9934303
楼主
Public Function client() As String
Dim WebClientObj As WebClient = New WebClient()
Dim PostVars As Specialized.NameValueCollection = New System.Collections.Specialized.NameValueCollection()
PostVars.Add("__VIEWSTATE", "太长省略，这是第一页的数据")
PostVars.Add("__EVENTTARGET", "MoreInfoList1$Pager")
PostVars.Add("__EVENTARGUMENT", "3")
WebClientObj.Headers.Add("ContentType", "application/x-www-form-urlencoded")
Dim s = ""
For Each name1 In PostVars.Keys
If s.Length > 0 Then s += "&"
s += name1 + "=" + HttpUtility.UrlEncode(PostVars(name1))
Next
Dim byte2() As Byte = Encoding.ASCII.GetBytes(s)
Dim byte1() As Byte = WebClientObj.UploadData("网址", "POST", byte2)
Dim ResponseStr$ = Encoding.UTF8.GetString(byte1)
Return ResponseStr
End Function
图片是点击第二页获取的头。
我用了各种办法不管怎么弄都只能获取第一页的信息啊，难道只能用WB抓标签？
2016年06月21日 05点06分
1
Dim WebClientObj As WebClient = New WebClient()
Dim PostVars As Specialized.NameValueCollection = New System.Collections.Specialized.NameValueCollection()
PostVars.Add("__VIEWSTATE", "太长省略，这是第一页的数据")
PostVars.Add("__EVENTTARGET", "MoreInfoList1$Pager")
PostVars.Add("__EVENTARGUMENT", "3")
WebClientObj.Headers.Add("ContentType", "application/x-www-form-urlencoded")
Dim s = ""
For Each name1 In PostVars.Keys
If s.Length > 0 Then s += "&"
s += name1 + "=" + HttpUtility.UrlEncode(PostVars(name1))
Next
Dim byte2() As Byte = Encoding.ASCII.GetBytes(s)
Dim byte1() As Byte = WebClientObj.UploadData("网址", "POST", byte2)
Dim ResponseStr$ = Encoding.UTF8.GetString(byte1)
Return ResponseStr
End Function
图片是点击第二页获取的头。
我用了各种办法不管怎么弄都只能获取第一页的信息啊，难道只能用WB抓标签？