vrd

   Using Web As New Net.WebClient
            Web.Headers.Add("Accept: application/json")
            Web.Headers.Add("tellonym-client:web:0.46.0")
            Web.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:77.0) Gecko/20100101 Firefox/77.0")
            Web.Headers.Add("Accept-Language: en-US,en;q=0.5")
            Web.Headers.Add("Content-Type: application/json;charset=utf-8")
            Web.Headers.Add("Host: api.tellonym.me")

            Try
                Dim result As String = Web.DownloadString("https://api.tellonym.me/accounts/check?username=" & TextBox1.Text & "&limit=25")
                If result.Contains("""USERNAME_ALREADY_IN_USE""") Then
                    Label1.Text += 1

                End If
                If result.Contains("""username"":true") Then
                    Label2.Text += 1

                End If
            Catch ex As WebException

            End Try
        End Using