ستيشن ايدي

Imports System.Net, System.Text.RegularExpressions, System.Threading, System.Threading.Tasks
Imports System.IO
Imports System.Text
Imports Microsoft.VisualBasic.CompilerServices
Module Program
    Dim username , password As String
	dim cookies as string
	sub New
username= ""
password = ""
	end sub
	Sub Main()
		console.writeline("Username : " + username)
		console.writeline("Password : How Are You")
		go
    End Sub
    sub go
	login(username , password)
	end sub
	Function login(user As String, pass As String) As Object
        Dim result As Object = False
        Try
            Dim bit As Byte() = Encoding.Default.GetBytes("username=" & user & "&enc_password=#PWD_INSTAGRAM_BROWSER:0:1589682409:" & pass & "&queryParams={}&optIntoOneTap=false")
            Dim web As HttpWebRequest = DirectCast(WebRequest.Create("https://www.instagram.com/accounts/login/ajax/"), HttpWebRequest)
            web.Method = "POST"
            web.Host = "www.instagram.com"
            web.KeepAlive = True
            web.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:78.0) Gecko/20100101 Firefox/78.0"
            web.Accept = "*/*"
            web.ContentType = "application/x-www-form-urlencoded"
            web.Headers.Add("ested-With", "XMLHttpRequest")
            web.Headers.Add("X-IG-App-ID", "936619743392459")
            web.Headers.Add("X-Instagram-AJAX", "missing")
            web.Headers.Add("X-CSRFToken", "missing")
            web.Headers.Add("Accept-Language", "en-US,en;q=0.9")
            web.ContentLength = bit.Length
            Dim stream As Stream = web.GetRequestStream
            stream.Write(bit, 0, bit.Length)
            Dim httpwebresponse As HttpWebResponse = web.GetResponse
            Dim streamreader As New StreamReader(httpwebresponse.GetResponseStream())
            Dim response As String = streamreader.ReadToEnd
            Dim howw As String
             howw = httpwebresponse.Headers("Set-Cookie")
            cookies = String.Concat(New String() {Regex.Match(howw, "sessionid=(.*?);").Value, Strings.Space(1)})
                If response.Contains("""authenticated"": false") Then
	console.writeline("error info")
                    result = False
                else
	console.writeline(cookies)
	End If

        Catch ex As Exception
            result = False

        End Try
        Return result
    End Function
End Module