Public Class Form1

    Private Sub BttnGerarNick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BttnGerarNick.Click
        Dim numero As New Random
        Dim senha1, senha2 As String
        senha1 = numero.Next(0, 9).ToString("0")
        senha2 = numero.Next(0, 9).ToString("0")
        'Coloquei para gerar 2 Numeros no final do nick. Mais vc pode tirar ou Colocar Mais'

        Dim carregando_letras As String = "qwertyuiopasdfghjklzxcvbnm"
        ' o "qwertyuiopasdfghjklzxcvbnm", seria que é para gerar 1 entra random do Alfabeto, ai teria q colocar o'
        'alfabeto completo,ou determinada letra q vc quer gerar'
        Dim letras As New Random
        Dim Resultado1 As String = ""
        Dim Resultado2 As String = ""
        Dim Resultado3 As String = ""
        Dim Resultado4 As String = ""
        Dim Resultado5 As String = ""
        Dim Resultado6 As String = ""
        'Resultando 1 Ao 6, Seria que eu quero 6 Letras para ser Gerada!'
        Dim ag = 1
        Dim sp = 0

        While sp < ag
            Resultado1 = carregando_letras(letras.Next(0, carregando_letras.Length))
            Resultado2 = carregando_letras(letras.Next(0, carregando_letras.Length))
            Resultado3 = carregando_letras(letras.Next(0, carregando_letras.Length))
            Resultado4 = carregando_letras(letras.Next(0, carregando_letras.Length))
            Resultado5 = carregando_letras(letras.Next(0, carregando_letras.Length))
            Resultado6 = carregando_letras(letras.Next(0, carregando_letras.Length))
            sp += 1
            'Não Tem Muito oq Explicar aqui '
        End While

        TextoSenha.Text = Resultado1 + Resultado2 + Resultado3 + Resultado4 + Resultado5 + Resultado6 + senha1 + senha2
        'Nessa Parte Coloca que o TextBox vai ser igual os 6 resultados, e 2 senhas'
        WebBrowser1.Document.GetElementById("userid").SetAttribute("value", TextoSenha.Text)
        'Como Sempre Coloquei que o userid vai receber o valor do textbox'
        'Caso Tenha Duvida va na parte do Gerar Senha que vai tar mais explicado'
    End Sub

    Private Sub TextoNick_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoNick.TextChanged

    End Sub

    Private Sub BtnnCpNick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnnCpNick.Click
        TextoNick.SelectAll()
        'Selecionaria o Texto da TextBox.'
        TextoNick.Copy()
        'Ira Copiar o Texto Selecionado Da TextBox.'
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim numero As New Random
        Dim senha1, senha2, senha3, senha4, senha5, senha6 As String
        senha1 = numero.Next(0, 9).ToString("0")
        senha2 = numero.Next(0, 9).ToString("0")
        senha3 = numero.Next(0, 9).ToString("0")
        senha4 = numero.Next(0, 9).ToString("0")
        senha5 = numero.Next(0, 9).ToString("0")
        senha6 = numero.Next(0, 9).ToString("0")
        'Senha1 A Senha 6 = Seria 6 Numeros '-'
        TextoNick.Text = senha1 + senha2 + senha3 + senha4 + senha5 + senha6
        'Aqui Taria Colocando Na Textbox Para Juntar As 6 Strins'
        WebBrowser1.Document.GetElementById("password").SetAttribute("value", TextoNick.Text)
        'Vc Poderia Fazer 1 Botao Para Passar o Valor Da TextBox Para o Site,Na Qual Seria a msm coisa'
        'mais como aqui vou fazer Direto pro da z8, e evitar de colocar bastante codigo, vou por tudo junto'
        'Pode Dar Erro Nessa Parte, Se é Site Não Estiver Aperto, Pelo Fato Do VB não encontas a id Password'
        'GetElementById("UserName")= Seria o Id Do Texto Ou Do Botão, Para poder pegar Essa id só inspecionar elemento'
        'Ai Com isso ele taria pegando o Valor da TextBox.
        WebBrowser1.Document.GetElementById("confirmpwd").SetAttribute("value", TextoNick.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextoSenha.SelectAll()
        'Selecionaria o Texto da TextBox.'
        TextoSenha.Copy()
        'Ira Copiar o Texto Selecionado Da TextBox.'
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Tem Como Fazer Essa source de maneira simplificada,mas eu aprendi desse jeito!")
        WebBrowser1.Navigate("http://br.z8games.com/signup.html")
    End Sub

    Private Sub GerarEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GerarEmail.Click
        MsgBox(" Para Criar 1 Gerador de email, e Bem Facil! Se vc pensar um pouco vai conseguir fazer 1 gerador de email")
        MsgBox(" A Msm coisa para Gerar a Pergunta Secreta, Bem Facil! Só usar a Cabeça ")

    End Sub
End Class