Hallo Leute,
Ich habe einen Email Spammer programmiert, der funktioniert aber leider nicht:(
Hier Code, wäre klasse jemand könnte mir helfen ;D
Ich habe einen Email Spammer programmiert, der funktioniert aber leider nicht:(
Hier Code, wäre klasse jemand könnte mir helfen ;D
VB.NET-Quellcode
- Imports System.Net.Mail
- Public Class Form1
- Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Timer1.Start()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Timer1.Stop()
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- End
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim MyMailMessage As New MailMessage()
- MyMailMessage.From = New MailAddress(TextBox1.Text)
- MyMailMessage.To.Add(TextBox4.Text)
- MyMailMessage.Subject = (TextBox3.Text)
- MyMailMessage.Body = TextBox5.Text
- Dim SMTPServer As New SmtpClient("smtp.web.de")
- SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
- SMTPServer.EnableSsl = True
- Label1.Text = Val(Label1.Text + 1)
- SMTPServer.Send(MyMailMessage)
- End Sub
- End Class