aaa

    Private Function checkusername() As Object
        Dim millisecondsTimeout As Integer = Conversions.ToInteger(Me.TextBox3.Text)
        While Not Me.OFF
            Try
                Dim webClient As WebClient = New WebClient()
                Try
                    ServicePointManager.DefaultConnectionLimit = 600
                    ServicePointManager.UseNagleAlgorithm = False
                    ServicePointManager.Expect100Continue = False
                    webClient.Proxy = Nothing
                    webClient.Headers.Add("User-Agent", "Instagram 10.30.0 (iPhone7,1; iPhone OS 9_3_3; en_SA@calendar=gregorian; en-SA; scale=2.61; gamut=normal; 1080x1920) AppleWebKit/420+")
                    webClient.Headers.Add("Cookie", Class12.string_9)
                    Dim left As String = webClient.DownloadString("https://i.instagram.com/api/v1/feed/user/" + TextBox4.Text + "/username/")
                    Dim flag As Boolean = Operators.CompareString(left, "{""items"": [], ""num_results"": 0, ""status"": ""ok""}", False) <> 0
                    If flag Then
                        Me.int_0 += 1
                        Me.loops1()
                    Else
                       changeusername(user)

                    End If
                    webClient.Dispose()
                Finally
                    Dim flag As Boolean = webClient IsNot Nothing
                    If flag Then
                        CType(webClient, IDisposable).Dispose()
                    End If
                End Try
                Thread.Sleep(millisecondsTimeout)
            Catch ex As Exception
                Try
                    ServicePointManager.DefaultConnectionLimit = 600
                    ServicePointManager.UseNagleAlgorithm = False
                    ServicePointManager.Expect100Continue = False
                    Dim text As String = check(String.Concat(New String() {"https://i.instagram.com/api/v1/users/search?q=", TextBox4.Text, "&access_token=", Guid.NewGuid().ToString().ToUpper(), "/"}))
                    Dim flag As Boolean = Not (text.Contains("""username"": """ + TextBox4.Text + """") Or False)
                    If flag Then

                       changeusername(user)

                    Else
                        Me.int_0 += 1
                        Me.loops1()
                    End If
                Catch ex2 As Exception
                End Try
                Thread.Sleep(millisecondsTimeout)
            End Try
        End While
        Dim result As Object
        Return result
    End Function