[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]Dim smtpServer As New SmtpClient()[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]Dim mail As New MailMessage()[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]smtpServer.Credentials = New Net.NetworkCredential("gmailadresiniz", "Şifreniz")[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]smtpServer.Port = 587[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]smtpServer.Host = "smtp.gmail.com"[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]smtpServer.EnableSsl = True[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]mail = New MailMessage()[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]mail.From = New MailAddress("gmailiniz")[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]mail.To.Add("gönderilecekyer")[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]mail.Subject = Me.Text & " Adlı Programınız Kullanıldı !"[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]mail.Body = Me.Text & " Adlı Programınız " & My.Computer.Name & " Adlı Bilgisayardan Kullanıldı!" & vbNewLine & "SiberGüvenlik.Tk / AkabeDesing"[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]smtpServer.Send(mail)[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]Dim smtpServer As New SmtpClient()[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]Dim mail As New MailMessage()[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]smtpServer.Credentials = New Net.NetworkCredential("gmailadresiniz", "Şifreniz")[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]smtpServer.Port = 587[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]smtpServer.Host = "smtp.gmail.com"[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]smtpServer.EnableSsl = True[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]mail = New MailMessage()[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]mail.From = New MailAddress("gmailiniz")[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]mail.To.Add("gönderilecekyer")[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]mail.Subject = Me.Text & " Adlı Programınız Kullanıldı !"[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]mail.Body = Me.Text & " Adlı Programınız " & My.Computer.Name & " Adlı Bilgisayardan Kullanıldı!" & vbNewLine & "SiberGüvenlik.Tk / AkabeDesing"[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]smtpServer.Send(mail)[/FONT][/FONT]
[font="Titillium Web", sans-serif][font="Open Sans", Tahoma, Verdana, Arial, sans-serif]End Sub[/FONT][/FONT]
