[Help] Account Generator

Dim wb as new webbrowser

Public Sub GenerateQuickAccount(ByVal user as string, ByVal password as string)
wb.navigate("yoururl")
wb.Document.GetElementById(......).SetAttribute(......)
End Sub

Nickname ID:
ct100_ContentPlaceHolder1_tnickname
type = "text"

Password ID:
ct100_ContentPlaceHolder1_tpassword1
type = "password"

Re-Enter Password:
ct100_ContentPlaceHolder1_tpassword2
type = "password"

    Dim wb As New WebBrowser

    Public Sub FillInfo(ByVal accountName As String, ByVal password As String)
        wb.Navigate("url")
        wb.Document.GetElementById("ct100_ContentPlaceHolder1_tnickname").SetAttribute("text", accountName)
        wb.Document.GetElementById("ct100_ContentPlaceHolder1_tpassword1").SetAttribute("password", password)
        wb.Document.GetElementById("ct100_ContentPlaceHolder1_tpassword2").SetAttribute("password", password)
    End Sub