VB.net - HttpWebRequest POST(登录 Instagram.com) [英] VB.net - HttpWebRequest POST (login to Instagram.com)

问题描述

我想知道如何登录像 instagram.com 这样的网站，因为我对 twitter 有同样的问题，当我尝试通过代码登录而不使用 vb.net 中的方法 post 尝试通过代码登录时出现了疑问使用此代码会在 Instagram 错误 404 上返回我:

I would like to know how will see log into sites like instagram.com, as I have the same question for twitter, my doubt comes when trying to log in by code without the webbrowser using method post in vb.net, trying to use this code returns me on instagram Error 404:

Dim postData As String = "csrfmiddlewaretoken=" & TextBox1.Text & "&username=xxxxx&password=xxxxx"
    Dim tempCookies As New CookieContainer
    Dim encoding As New ASCIIEncoding
    Dim byteData As Byte() = encoding.GetBytes(postData)
    Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://instagram.com/accounts/login/"), HttpWebRequest)
    postReq.Method = "POST"
    postReq.KeepAlive = True
    postReq.CookieContainer = cokkie
    postReq.ContentType = "application/x-www-form-urlencoded"
    postReq.Referer = "https://instagram.com/accounts/login/"
    postReq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:28.0) Gecko/20100101 Firefox/28.0"
    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)
    Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
    Dim thepage As String = postreqreader.ReadToEnd
    RichTextBox1.Text = thepage

我通过get方法获取了instagram页面的csrfmiddlewaretoken，真的不明白，但是我想我读到我必须先获取一个cookie才能登录，但真的不知道，如果有人可以帮助我，我将不胜感激

I get the csrfmiddlewaretoken the instagram page by method get, really do not understand, but I think I read that I must first get a cookie before log in, but really do not know, if anyone can help me I would greatly appreciate

推荐答案

我想通了，我们实际上需要发送 cookie 才能进行日志记录，代码在这里供有相同问题的人使用:公共 cokkie 作为 CookieContainer

I figured it out, we actually need to send cookies to be able to logging, the code here for those people who have the same question: Public cokkie As CookieContainer

    Public Sub cookie()
    'Dim webClient As New System.Net.WebClient
    'Dim result As String = webClient.DownloadString("https://instagram.com/accounts/login")
    Dim postData As String = ""
    Dim tempCookies As New CookieContainer
    Dim encoding As New ASCIIEncoding
    Dim byteData As Byte() = encoding.GetBytes(postData)
    Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://instagram.com/accounts/login"), HttpWebRequest)
    postReq.CookieContainer = tempCookies
    Dim postresponse As HttpWebResponse
    postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
    tempCookies.Add(postresponse.Cookies)
    cokkie = tempCookies
    Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
    Dim thepage As String = postreqreader.ReadToEnd
    RichTextBox1.Text = thepage
    TextBox1.Text = cokkie.ToString
    Dim regx As New Regex("name=""csrfmiddlewaretoken"" value=""(.*?)""/>", RegexOptions.IgnoreCase)
    Dim mactches As MatchCollection = regx.Matches(thepage)
    For Each match As Match In mactches
        TextBox1.Text = match.Value
        TextBox1.Text = TextBox1.Text.Replace("name=""csrfmiddlewaretoken"" value=""", "")
        TextBox1.Text = TextBox1.Text.Replace("""/>", "")
    Next
End Sub

Public Sub log()
    Dim postData As String = "csrfmiddlewaretoken=" & TextBox1.Text & "&username=xxxx&password=xxxx"
    Dim tempCookies As New CookieContainer
    Dim encoding As New ASCIIEncoding
    Dim byteData As Byte() = encoding.GetBytes(postData)
    Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://instagram.com/accounts/login/"), HttpWebRequest)
    postReq.Method = "POST"
    postReq.KeepAlive = True
    postReq.CookieContainer = cokkie
    postReq.ContentType = "application/x-www-form-urlencoded"
    postReq.Referer = "https://instagram.com/accounts/login/"
    postReq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:28.0) Gecko/20100101 Firefox/28.0"
    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)

    Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
    Dim thepage As String = postreqreader.ReadToEnd
    RichTextBox1.Text = thepage
End Sub

这篇关于VB.net - HttpWebRequest POST(登录 Instagram.com)的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！