Advertisement
339r

INSTAGRAM LOGINE - VB.Net

Jun 14th, 2019
3,816
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.42 KB | None | 0 0
  1.  
  2. Imports System.Net, System.Text.RegularExpressions
  3. Public Class Form1
  4.     Dim cookies
  5.     Dim w As New WebClient
  6.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  7.         If Not LOGIN_insta(TextBox2.Text, TextBox1.Text) Then
  8.             MsgBox("Fuck it's not true!!")
  9.         Else
  10.             MsgBox("LOGIN DONE!")
  11.         End If
  12.     End Sub
  13.     Private Function LOGIN_insta(ByVal pass, ByVal user)
  14.         Using w
  15.             Dim datainput As New System.Collections.Specialized.NameValueCollection
  16.             datainput.Add("username", user)
  17.             datainput.Add("password", pass)
  18.             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")
  19.             w.Headers.Add("x-csrftoken", "massing")
  20.             w.Headers.Add("accept-language", "en-US,en;q=0.9,ar-SA;q=0.8,ar;q=0.7")
  21.             w.Headers.Add("content-type", "application/x-www-form-urlencoded")
  22.             w.Headers.Add("x-instagram-ajax", "1")
  23.             w.Headers.Add("x-requested-with: XMLHttpRequest")
  24.             w.UploadValues("https://www.instagram.com/accounts/login/ajax/", "POST", datainput)
  25.             If w.ResponseHeaders("set-cookie").Contains("sessionid") Then
  26.  
  27.                 Return True
  28.             Else
  29.                 Return False
  30.             End If
  31.  
  32.         End Using
  33.     End Function
  34. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement