gistfile1.vb

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim referral As Object
        Dim URL As Object
        referral = TextBox1.Text
        URL = "http://livebux.com/?r=" & referral
        WebBrowser1.Navigate(URL)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim garbled As Integer
        garbled = Int(Rnd() * 10000000)
        WebBrowser1.Document.GetElementById("username").InnerText = TextBox2.Text
        WebBrowser1.Document.GetElementById("password").InnerText = TextBox3.Text
        WebBrowser1.Document.GetElementById("cpassword").InnerText = TextBox3.Text
        WebBrowser1.Document.GetElementById("email").InnerText = garbled & TextBox5.Text
        WebBrowser1.Document.GetElementById("cemail").InnerText = garbled & TextBox5.Text
        WebBrowser1.Document.GetElementById("pemail").InnerText = garbled & TextBox5.Text
        WebBrowser1.Document.Forms.Item(0).GetElementsByTagName("INPUT").Item("tos").SetAttribute("checked", "1")
        WebBrowser1.Document.GetElementById("country").SetAttribute("value", 1)
        End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim referral As Object
        Dim URL As Object
        referral = TextBox1.Text
        URL = "http://livebux.com/?r=" & referral
        WebBrowser1.Navigate(URL)
    End Sub
End Class