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