VB.NET HttpWebRequest POST - PullRequest
       12

VB.NET HttpWebRequest POST

1 голос
/ 20 августа 2010

Эй, что случилось. Я искал некоторые примеры исходных кодов, но я не могу понять это. Я хочу отправить запрос POST для входа на сайт с моей учетной записью. Например, как мне войти на этот сайт, используя HttpWebRequest ..

http://z4.invisionfree.com/cotec/index.php?

Это приложение, которое я создаю для своего клана, где для открытия приложения на форуме должна быть учетная запись, поэтому при входе в систему оно открывается.

Ответы [ 3 ]

3 голосов
/ 24 августа 2011

Здесь есть достойное руководство для методов POST HTTPWebRequest и пример входа в систему: http://howtostartprogramming.com/vb-net/vb-net-tutorial-51-httpwebrequest-post-method/

2 голосов
/ 20 февраля 2014
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())
1 голос
/ 20 августа 2010

Почему бы не использовать этот бит кода для упрощения ваших усилий: http://joel.net/code/easyhttp.aspx

...