[VB.NET] Simple Username Checker

[Raid500]

Just a base, can simply be turned into a multi-username checker. (Not gonna spoon-feed you, sorry.) Probably not the most convenient way of doing it, but it's better than nothing.

Public Class frmName

    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
        Dim x As New System.Net.WebClient
        Dim username As String = txtUsername.Text
        Dim status As String = x.DownloadString("http://rscript.org/lookup.php?type=namecheck&name=" & username)
        If (status.IndexOf("NOTAVALIBLE") <> -1) Then
            txtOutput.Text = "NOT AVAILABLE"
        Else
            txtOutput.Text = "AVAILABLE"
        End If
'Credits to rscript.org for the checker, they spelled "AVAILABLE" wrong though

    End Sub

    Private Sub txtOutput_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtOutput.TextChanged
        If txtOutput.Text = "NOT AVALIBLE" Then
            txtOutput.ForeColor = Color.Red
        Else
            txtOutput.ForeColor = Color.Green
        End If
    End Sub
'This is just for color, you can delete it
End Class

Make a form that looks like this:

Note: The bottom box is a richtextbox (easier for colors, etc.)


Comments, questions, or concerns, please post.