Skype Resolver VB Script

'QUANTUM FUSION SKYPE RESOLVER'

Imports System.Net
Public Class Form1

    Private Sub CarbonFiberTheme1_Click(sender As Object, e As EventArgs) Handles CarbonFiberTheme1.Click

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        WebRequest.Create("http://abrasivecraft.com/api.php?cmd=10&username=" + TextBox1.Text)
        TextBox2.Text = New System.Net.WebClient().DownloadString("http://abrasivecraft.com/api.php?cmd=10&username=" + TextBox1.Text)
        WebRequest.Create("http://abrasivecraft.com/api.php?cmd=4&host=" + TextBox2.Text)
        TextBox3.Text = New System.Net.WebClient().DownloadString("http://abrasivecraft.com/api.php?cmd=4&host=" + TextBox2.Text)
    End Sub

    Private Sub CarbonFiberButton1_Click(sender As Object, e As EventArgs) Handles CarbonFiberButton1.Click
        Application.Exit()
    End Sub
End Class