how to follow user without api on instagram ?
i try this code but return error 404
[php]
Public Function Follow(name As String) As Boolean
Try
Dim id As String = GetIDProfile(name)
Dim csrf As String = returnCSRFToken("*instagram*com/" & name)
Dim post As String = ""
Dim request As HttpWebRequest = DirectCast(WebRequest.Create((Convert.ToString("*instagram*com/web/friendships/") & id) + "/follow/"), HttpWebRequest)
request.Method = "POST"
request.Host = "www*instagram*com"
request.KeepAlive = True
request.ContentLength = 0
request.Accept = "*/*"
request.Headers.Add("Origin", "*instagram*com")
request.Headers.Add("X-Requested-With", "XMLHttpRequest")
request.Headers.Add("X-Instagram-AJAX", "1")
request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.103 Safari/537.36"
request.Headers.Add("X-CSRFToken", csrf)
request.Referer = (Convert.ToString("*instagram*com/") & name) + "/"
request.Headers.Add("Accept-Encoding", "gzip, deflate, br")
request.Headers.Add("Accept-Language", "en-US,en;q=0.8")
request.Headers.Add("Cookie", "sessionid=" & IGSessionIDLogin & "; s_network=; ig_pr=0.8999999761581421; ig_vw=1517; csrftoken=" & csrf & "; ds_user_id=" & LoggedOnID)
Dim postBytes As Byte() = Encoding.ASCII.GetBytes(post)
request.ContentLength = postBytes.Length
Dim requestStream As Stream = request.GetRequestStream()
requestStream.Write(postBytes, 0, postBytes.Length)
requestStream.Close()
Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
Dim html As String = New StreamReader(response.GetResponseStream()).ReadToEnd()
Console.WriteLine(html)
Return html.Contains("""result"": ""following""")
Catch ex As Exception
MessageBox.Show(ex.Message)
Return False
End Try
End Function
i try this code but return error 404
[php]
Public Function Follow(name As String) As Boolean
Try
Dim id As String = GetIDProfile(name)
Dim csrf As String = returnCSRFToken("*instagram*com/" & name)
Dim post As String = ""
Dim request As HttpWebRequest = DirectCast(WebRequest.Create((Convert.ToString("*instagram*com/web/friendships/") & id) + "/follow/"), HttpWebRequest)
request.Method = "POST"
request.Host = "www*instagram*com"
request.KeepAlive = True
request.ContentLength = 0
request.Accept = "*/*"
request.Headers.Add("Origin", "*instagram*com")
request.Headers.Add("X-Requested-With", "XMLHttpRequest")
request.Headers.Add("X-Instagram-AJAX", "1")
request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.103 Safari/537.36"
request.Headers.Add("X-CSRFToken", csrf)
request.Referer = (Convert.ToString("*instagram*com/") & name) + "/"
request.Headers.Add("Accept-Encoding", "gzip, deflate, br")
request.Headers.Add("Accept-Language", "en-US,en;q=0.8")
request.Headers.Add("Cookie", "sessionid=" & IGSessionIDLogin & "; s_network=; ig_pr=0.8999999761581421; ig_vw=1517; csrftoken=" & csrf & "; ds_user_id=" & LoggedOnID)
Dim postBytes As Byte() = Encoding.ASCII.GetBytes(post)
request.ContentLength = postBytes.Length
Dim requestStream As Stream = request.GetRequestStream()
requestStream.Write(postBytes, 0, postBytes.Length)
requestStream.Close()
Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
Dim html As String = New StreamReader(response.GetResponseStream()).ReadToEnd()
Console.WriteLine(html)
Return html.Contains("""result"": ""following""")
Catch ex As Exception
MessageBox.Show(ex.Message)
Return False
End Try
End Function



