Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function checkusername(Username As String) As Object
- Dim result As Object = False
- Try
- Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/feed/user/" + Username + "/username/"), HttpWebRequest)
- httpWebRequest.Method = "GET"
- httpWebRequest.UserAgent = "Instagram 20.1.1.1.1 Android"
- httpWebRequest.Proxy = Nothing
- httpWebRequest.CookieContainer = Me.Sessionz
- Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
- Dim flag As Boolean = New StreamReader(httpWebResponse.GetResponseStream()).ReadToEnd().Contains("{""items"": [], ""num_results"": 0, ""status"": ""ok""}")
- If flag Then
- result = True
- Else
- result = False
- End If
- Catch ex As Exception
- result = False
- End Try
- Return result
- End Function
Advertisement
Add Comment
Please, Sign In to add comment