E-mail gönderme

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

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:

Imports System.Net.Mail

Butonun içine ise şunları:

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

Kodlar bu kadar.

Programın exe'sini isteyen arkadaşlar yorum yazabilirler.

Hepinize kolay gelsin.

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu​

 

[Karcemackers]

Paylasım icin tesekkurler.