Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Net, System.Text.RegularExpressions
- Public Class Form1
- Dim cookies
- Dim w As New WebClient
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- If Not LOGIN_insta(TextBox2.Text, TextBox1.Text) Then
- MsgBox("Fuck it's not true!!")
- Else
- MsgBox("LOGIN DONE!")
- End If
- End Sub
- Private Function LOGIN_insta(ByVal pass, ByVal user)
- Using w
- Dim datainput As New System.Collections.Specialized.NameValueCollection
- datainput.Add("username", user)
- datainput.Add("password", pass)
- w.Headers.Add("user-agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.169 Safari/537.36")
- w.Headers.Add("x-csrftoken", "massing")
- w.Headers.Add("accept-language", "en-US,en;q=0.9,ar-SA;q=0.8,ar;q=0.7")
- w.Headers.Add("content-type", "application/x-www-form-urlencoded")
- w.Headers.Add("x-instagram-ajax", "1")
- w.Headers.Add("x-requested-with: XMLHttpRequest")
- w.UploadValues("https://www.instagram.com/accounts/login/ajax/", "POST", datainput)
- If w.ResponseHeaders("set-cookie").Contains("sessionid") Then
- Return True
- Else
- Return False
- End If
- End Using
- End Function
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement