Advertisement
Guest User

Untitled

a guest
Jul 19th, 2018
262
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.50 KB | None | 0 0
  1. Public Function method_0(string_6 As String) As Object
  2. Dim result As Object = False
  3. Application.DoEvents()
  4. Try
  5. Guid.NewGuid().ToString().ToUpper()
  6. Me.string_1.Split(New Char() { "|"c })
  7. Dim str As String = Guid.NewGuid().ToString().ToUpper()
  8. Dim stringBuilder As StringBuilder = New StringBuilder()
  9. Dim stringBuilder2 As StringBuilder = stringBuilder
  10. Dim text As String = String.Concat(New String() { "" })
  11. text = String.Format("{0}.{1}", Form1.smethod_0(text, "b03e0daaf2ab17cda2a569cace938d639d1288a1197f9ecf97efd0a4ec0874d7"), text)
  12. stringBuilder2.AppendLine("--" + str)
  13. stringBuilder2.AppendLine("Content-Disposition: form-data; name=""signed_body""")
  14. stringBuilder2.AppendLine()
  15. stringBuilder2.AppendLine(text)
  16. stringBuilder2.AppendLine("--" + str)
  17. stringBuilder2.AppendLine("Content-Disposition: form-data; name=""ig_sig_key_version""")
  18. stringBuilder2.AppendLine()
  19. stringBuilder2.AppendLine("4")
  20. stringBuilder2.Append("--" + str + "--")
  21. Dim bytes As Byte() = Encoding.UTF8.GetBytes(stringBuilder.ToString())
  22. Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/feed/user/" + string_6 + "/username/"), HttpWebRequest)
  23. httpWebRequest.AutomaticDecompression = DecompressionMethods.GZip
  24. httpWebRequest.Method = "POST"
  25. httpWebRequest.Host = "i.instagram.com"
  26. httpWebRequest.UserAgent = "Instagram 26.15.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
  27. httpWebRequest.Headers.Add("Accept-Language", "ar;q=1, en;q=0.9")
  28. httpWebRequest.KeepAlive = True
  29. httpWebRequest.Proxy = Nothing
  30. httpWebRequest.ContentType = "multipart/form-data; boundary=" + str
  31. httpWebRequest.ContentLength = CLng(bytes.Length)
  32. httpWebRequest.CookieContainer = Me.cookieContainer_0
  33. Dim requestStream As Stream = httpWebRequest.GetRequestStream()
  34. requestStream.Write(bytes, 0, bytes.Length)
  35. requestStream.Close()
  36. Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
  37. Using streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
  38. If streamReader.ReadToEnd().Contains("auto_load_more_enabled") Then
  39. result = False
  40. Else
  41. result = True
  42. End If
  43. If streamReader.ReadToEnd().Contains("wait") Then
  44. result = True
  45. End If
  46. streamReader.Close()
  47. End Using
  48. httpWebResponse.Close()
  49. Catch ex As Exception
  50. result = False
  51. End Try
  52. Return result
  53. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement