fRkn* ♥ CS -TR Kurucusu♥
Mesaj Sayısı : 345 Rep Puanı : 1103 Kayıt tarihi : 23/07/10 Nerden : İzmir
| Konu: VB.NET Mail Gönderme Kodu - Anlatimli Ptsi Tem. 26, 2010 10:00 pm | |
| Bu dersimizde keylogger için mail gönderme programı yapacağız.
Öncelikle bu programla başkasına mail gönderemezsiniz. Bu programla yalnızca kendi mail adresinize gerekli bilgileri saklamak ya da keyloggerlar için bilgileri mailinize göndermek amacıyla kullanabilirsiniz.
Formumuza 3 adet textbox (textbox1, textbox2, textbox3) ve 1 adet button ekliyelim.
textbox1'in multiline özelliğini true yapalım. Burayı göndereceğimiz maile yazı yazmak için kullanacağız.
textbox2 yi mail adresimizi girmek için kullanacağız.
textbox3'ü ise şifremizi girmek için kullanacağız.
Not: Hesabımızın gmail olması gerekmektedir. Hotmail hesabına ve başka hesaplara mail göndermez.
Şimdi kodlara geçelim: Formun general bölümüne şu kodu ekliyoruz:
- Kod:
-
Imports System.Net.Mail
Butonun içine ise şunları:
- Kod:
-
If TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox1.Text = "" Then MsgBox("gerekli yerleri boş bırakmayınız !", MsgBoxStyle.Exclamation) Else Dim mail As New MailMessage mail.Subject = "test e-mail" mail.To.Add(TextBox2.Text )'mail adresimiz mail.From = New MailAddress(TextBox2.Text ) mail.Body = TextBox1.Text
Dim smtp As New SmtpClient("smtp.gmail.com") smtp.EnableSsl = True smtp.Credentials = New System.Net.NetworkCredential(TextBox2.Text & ComboBox1.Text, TextBox3.Text) smtp.Port = 587 smtp.Send(mail) MsgBox(TextBox2.Text & " " & "Adresine Başarıyla Gönderildi", MsgBoxStyle.Information) End If | |
|