1L防抽
我刚接触post和get

抽的不亦乐乎
Public Sub PostDataMy(ByVal URL As String, ByVal PostInfo As String)
Dim HostUrl As New System.Uri(URL)
Dim ReQ As HttpWebRequest
ReQ = CType(WebRequest.Create(HostUrl), HttpWebRequest)
ReQ.Referer = "https://passport.baidu.com/?login&tpl=mn"
ReQ.Timeout = 30000 '设置超时值30秒
ReQ.Method = "POST" '我们是要传送内容
'将字符串转成字节组，记住，编码类新要选为默认
Dim BytesData() As Byte = System.Text.Encoding.Default.GetBytes(PostInfo)
'设置传送的数据长度
ReQ.ContentLength = BytesData.Length
Dim PostStream As New StreamWriter(ReQ.GetRequestStream)
PostStream.Write(PostInfo, 0, PostInfo.Length)
'以上向服务器 POST 信息。
'以下是获取服务器返回信息
End Sub
Function getvbs()
Dim getinfo As WebRequest = WebRequest.Create("https://tieba.baidu.com/dc/common/tbs?t=")
Dim vbs As String
Dim vbsall As String
Dim res As WebResponse = getinfo.GetResponse
Dim sr As New IO.StreamReader(res.GetResponseStream)
vbs = sr.ReadToEnd
vbsall = vbs
TextBox1.Text = TextBox1.Text & vbCrLf & "当前全部VBS信息：" & vbs
vbs = Microsoft.VisualBasic.Left(vbs, 34)
vbs = Microsoft.VisualBasic.Right(vbs, 26)
Return vbCrLf & vbsall
End Function
‘调用
PostDataMy("https://passport.baidu.com/?login", "tpl_ok=&next_target=&tpl=mn&skip_ok=&aid=&need_pay=&need_coin=&pay_method=&u=http%3A%2F%2Fwww.baidu.com%2F&return_method=get&more_param=&return_type=&psp_tt=0&password=???&safe***=0&isphone=tpl&username=cso1djb&verifycode=&mem_pass=on")
getvbs()
这是我的代码，但每次获得的vbs都是login=0