Login Cod

Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.IO
Public Class Form1
    Public CSRF As String
    Public Cookies As New CookieContainer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim LoginPage As String = HttpGet("https://www.instagram.com/accounts/login/?force_classic_login", Cookies)
        CSRF = Regex.Match(LoginPage, ("""csrfmiddlewaretoken"" value=""([A-z0-9])""/>")).Groups(1).Value
        If login(txtuser.Text, txtpass.Text) Then
            MsgBox("successful login")
        Else
            MsgBox("Error Account")
        End If
    End Sub
    Public Function login(ByVal us As String, ByVal pa As String)
        Dim encoding As New ASCIIEncoding
        Dim byteData As Byte() = encoding.GetBytes("csrfmiddlewaretoken=" & CSRF & "&username=" & us & "&password=" & pa)
        Dim Request As HttpWebRequest
        Request = DirectCast(WebRequest.Create("https://www.instagram.com/accounts/login/?force_classic_login"), HttpWebRequest)
        Request.Method = "POST"
        Request.KeepAlive = True
        Request.CookieContainer = Cookies
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.Referer = "https://www.instagram.com/accounts/login/?force_classic_login"
        Request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:28.0) Gecko/20100101 Firefox/28.0"
        Request.ContentLength = byteData.Length
        Dim Response As HttpWebResponse
        Dim PostStream As Stream = Request.GetRequestStream()
        PostStream.Write(byteData, 0, byteData.Length)
        PostStream.Close()
        Response = CType(Request.GetResponse(), HttpWebResponse)
        Dim postreqreader As New StreamReader(Response.GetResponseStream())
        Dim HTML As String = postreqreader.ReadToEnd
        Return HTML.Contains("profile_pic_url")
    End Function
    Private Function HttpGet(ByVal Page As String, ByVal Cookies As CookieContainer, Optional ByVal Referrer As String = Nothing) As String
        Dim Request As HttpWebRequest
        Request = DirectCast(WebRequest.Create(Page), HttpWebRequest)
        Request.Method = "GET"
        Request.KeepAlive = True
        Request.CookieContainer = Cookies
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:28.0) Gecko/20100101 Firefox/28.0"
        Request.Referer = Referrer
        Request.AllowAutoRedirect = True
        Dim Response As HttpWebResponse
        Response = CType(Request.GetResponse(), HttpWebResponse)
        Cookies.Add(Response.Cookies)
        Dim Reader As New StreamReader(Response.GetResponseStream())
        Return Reader.ReadToEnd()
    End Function
End Class