2013-06-27 49 views
1

我試圖讓一種形式的導航程序,我想知道如何使一個GET的HttpWebRequest這裏是我使用的POST代碼的HttpWebRequest如何使一個GET的HttpWebRequest在vb.net

Dim postData As String = "lsd=AVrFBNXT&display=&enable_profile_selector=&legacy_return=1&next=&profile_selector_ids=&trynum=1&timezone=-120&lgnrnd=163248_FehM&lgnjs=1372203160&email=" & (TextBox1.Text) & "&pass=" & (TextBox2.Text) & "f&default_persistent=1" 
Dim tempcookies As New CookieContainer 
Dim encoding As New UTF8Encoding 
Dim byteData As Byte() = encoding.GetBytes(postData) 
Dim postreq As HttpWebRequest = DirectCast(HttpWebRequest.Create("https://www.facebook.com/login.php"), HttpWebRequest) 
postreq.Method = "POST" 
postreq.KeepAlive = True 
postreq.CookieContainer = tempcookies 
postreq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729" 
postreq.ContentType = "application/x-www-form-urlencoded" 
postreq.Referer = "https://www.facebook.com/login.php" 
postreq.ContentLength = byteData.Length 
Dim postreqstream As Stream = postreq.GetRequestStream() 
postreqstream.Write(byteData, 0, byteData.Length) 
postreqstream.Close() 
Dim postresponse As HttpWebResponse 
postresponse = DirectCast(postreq.GetResponse, HttpWebResponse) 
tempcookies.Add(postresponse.Cookies) 
logincookie = tempcookies 
Dim postreqreader As New StreamReader(postresponse.GetResponseStream()) 
Dim thepage As String = postreqreader.ReadToEnd 
WebBrowser1.DocumentText = thepage 

回答

1

您可以將方法更改爲「GET」並刪除請求流:

Dim postData As String = "lsd=AVrFBNXT&display=&enable_profile_selector=&legacy_return=1&next=&profile_selector_ids=&trynum=1&timezone=-120&lgnrnd=163248_FehM&lgnjs=1372203160&email=" & (TextBox1.Text) & "&pass=" & (TextBox2.Text) & "f&default_persistent=1" 
Dim tempcookies As New CookieContainer 
Dim encoding As New UTF8Encoding 
Dim byteData As Byte() = encoding.GetBytes(postData) 
Dim postreq As HttpWebRequest = DirectCast(HttpWebRequest.Create("https://www.facebook.com/login.php"), HttpWebRequest) 
postreq.Method = "GET" 
postreq.KeepAlive = True 
postreq.CookieContainer = tempcookies 
postreq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729" 
postreq.ContentType = "application/x-www-form-urlencoded" 
postreq.Referer = "https://www.facebook.com/login.php" 
Dim postresponse As HttpWebResponse 
postresponse = DirectCast(postreq.GetResponse, HttpWebResponse) 
tempcookies.Add(postresponse.Cookies) 
logincookie = tempcookies 
Dim postreqreader As New StreamReader(postresponse.GetResponseStream()) 
Dim thepage As String = postreqreader.ReadToEnd 
WebBrowser1.DocumentText = thepage 
相關問題