Instagram is a photo and video sharing app for
smartphones, we can call it a social network. As I said It's a smartphone app but you can view photos, like photos, comment on photos and follow/unfollow users via their website from computer also there are more than 10
popular websites where you can view photos, like photos, comment on photos and follow/unfollow users, browse hashtags and view stats they use the
API to do the works.
Without much talk let's get into it..
Remember you're just going to make a
Instagram Login, you won't be able to view photos or do anything. You need two textbox and a button you can also add two labels to make it look good. The textbox1 is for username and textbox2 is for password.
Time for some codes...
Required Namespaces :
Imports System.IO
Imports System.Net
Imports System.Text
Functions(We need two functions) :
Dim CC As New CookieContainer
Dim RQ As HttpWebRequest
Dim RP As HttpWebResponse
Public Function GetResponse(ByVal url As String, ByVal referer As String) As String
RQ = CType(HttpWebRequest.Create(url), HttpWebRequest)
RQ.CookieContainer = CC
If referer <> "" Then
RQ.Referer = referer
End If
RP = CType(RQ.GetResponse(), HttpWebResponse)
Return New StreamReader(RP.GetResponseStream()).ReadToEnd()
End Function
Public Function GetResponse(ByVal url As String, ByVal post As String, ByVal referer As String) As String
RQ = CType(HttpWebRequest.Create(url), HttpWebRequest)
RQ.Method = "POST"
RQ.CookieContainer = CC
RQ.UserAgent = "AppleWebKit/537.36 (KHTML, like Gecko) Mozilla/5.0 (Windows NT 6.1) Chrome/28.0.1468.0 Safari/537.36"
If referer <> "" Then
RQ.Referer = referer
End If
Dim byteArr() As Byte = Encoding.Default.GetBytes(post)
RQ.ContentLength = byteArr.Length
Dim dataStream As Stream = RQ.GetRequestStream()
dataStream.Write(byteArr, 0, byteArr.Length)
RP = CType(RQ.GetResponse(), HttpWebResponse)
Return New StreamReader(RP.GetResponseStream()).ReadToEnd()
End Function
This code is for your login button :
Dim html As String = GetResponse("https://instagram.com/accounts/login/", "")
Dim token As String = html.Substring(html.IndexOf("csrfmiddlewaretoken")).Split(""""c)(2)
Dim username As String = TextBox1.Text
Dim password As String = TextBox2.Text
Dim S_B As New StringBuilder
S_B.Append("csrfmiddlewaretoken=" & token)
S_B.Append("&username=" & username)
S_B.Append("&password=" & password)
html = GetResponse("https://instagram.com/accounts/login/", S_B.ToString, "https://instagram.com/accounts/login/")
If html.Contains("""username"":""" & username) Then
MsgBox("Successfully Logged In", MessageBoxIcon.Information)
ElseIf html.Contains("Please enter a correct username and password.") Then
MsgBox("Invalid Username or Password", MessageBoxIcon.Error)
Else
MsgBox("Unable Login Error", MessageBoxIcon.Error)
End If
Now run the program and test it..
If you enter correct login credentials you will get this message :
I am looking to develop a Instagram picture view if everything goes well I will let you all know. Follow me on Instagram
@54j33dh4.
From the moment man figured out how to move objects from one place to another, the world changed forever. Manual laborers armed with the tools to handle and transfer materials quickly and efficiently, soon transformed manufacturing and distribution---giving rise to whole new industries. Today, thanks to the power of automated material handling systems, a new transformation has occurred, allowing small and large businesses to thrive like never before. Here’s a look at some of the many benefits of automated material handling systems.
Are you looking to surprise your girlfriend by giving her an unexpected gift? Would you like to buy something special for your wife? Whether you are planning on buying a video game console or a brand-new mobile phone, this post will help you select the best technology present for your loved ones.
