VB.NET HttpWebRequest POST

嗨，怎么了。我一直在看一些示例源代码，但我不太明白。我想发送一个POST请求，用我的帐户登录一个网站。例如，如何使用HttpWebRequest登录此网站

?

---

这是我为我的氏族建立的一个应用程序，你必须在论坛上有一个帐户才能打开这个应用程序，因此，如果登录成功，它就会打开。

为什么不利用这段代码来简化您的工作：

为什么不利用这段代码来简化您的工作：

这里有一个关于HTTPWebRequest POST方法的不错的教程和一个登录示例：

---

这里有一个关于HTTPWebRequest POST方法的不错的教程和一个登录示例：

---

那么我如何使用该类发送登录请求呢？EasyHttp.Send（“？”，“username=USER&password=PASS”）就是这样吗？你可以是的。只要确保无论表单字段的名称是什么，您都以显示的方式指定它们。那么，我如何使用该类发送登录请求呢？EasyHttp.Send（“？”，“username=USER&password=PASS”）就是这样吗？你可以是的。只要确保无论表单字段的名称是什么，您都可以按照显示的方式指定它们。

dim email as string = "your email"
dim pass as string = "your pass"

    Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://touch.facebook.com"), HttpWebRequest)
                postReq.Method = "GET"
                postReq.KeepAlive = True
                postReq.CookieContainer = logincookie
                postReq.ContentType = "application/x-www-form-urlencoded"
                postReq.UserAgent = "Mozilla/5.0 (iPhone; U; CPU like Mac OS X; en) AppleWebKit/420+ (KHTML, like Gecko) Version/3.0 Mobile/1C25 Safari/419.3"

                Dim postresponse As HttpWebResponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
                logincookie.Add(postresponse.Cookies)

                Dim postreqreader As New StreamReader(postresponse.GetResponseStream())

                Dim infos As String = postreqreader.ReadToEnd

                '---------------------------

                Dim byteData As Byte() = encoding.GetBytes("lsd=&charset_test=%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84&version=1&ajax=0&width=0&pxr=0&gps=0&m_ts=&li=&email=" & email.Replace("@", "%40") & "&pass=" & pass & "&login=Connexion")

                postReq = DirectCast(WebRequest.Create("https://touch.facebook.com/login.php?refsrc=https%3A%2F%2Ftouch.facebook.com%2F&refid=8"), HttpWebRequest)
                postReq.Method = "POST"
                postReq.KeepAlive = True
                postReq.CookieContainer = logincookie
                postReq.ContentType = "application/x-www-form-urlencoded"
                postReq.Referer = "https://touch.facebook.com/"
                postReq.UserAgent = "Mozilla/5.0 (iPhone; U; CPU like Mac OS X; en) AppleWebKit/420+ (KHTML, like Gecko) Version/3.0 Mobile/1C25 Safari/419.3"
                postReq.ContentLength = byteData.Length

                Dim postreqstream As Stream = postReq.GetRequestStream()
                postreqstream.Write(byteData, 0, byteData.Length)
                postreqstream.Close()

                postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
                logincookie.Add(postresponse.Cookies)

                postreqreader = New StreamReader(postresponse.GetResponseStream())