Mail Boomber With VB.net 2010

Nih cm app sederhana dibuat dgn VB.net 2010 yg fungsi'a untuk mengirim email massal secara berulang2 sekaligus sesuai keinginan....

OK....langsung muLai ajja.......oh ya, disini ane pake smtpnya punya google, klo agan mau ubah ya ubah aja...ok

================START SCRIPT===============

Imports System.Net.Mail

Public Class Form1

    Dim i As Integer = 0

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub FileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileToolStripMenuItem.Click

        Me.Close()

    End Sub

    Private Sub StartToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartToolStripMenuItem.Click

        GroupBox2.Enabled = False

        GroupBox1.Enabled = False

        StartToolStripMenuItem.Enabled = False

        stopbtn.Enabled = True

        BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Sub done() Handles BackgroundWorker1.RunWorkerCompleted

        stopbtn.Enabled = False

        StartToolStripMenuItem.Enabled = True

        GroupBox2.Enabled = True

        GroupBox1.Enabled = True

        i = 0

    End Sub

    Private Sub StopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopbtn.Click

        BackgroundWorker1.CancelAsync()

    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        Dim MyMailMessage1 As New MailMessage()

        MyMailMessage1.From = New MailAddress(TextBox2.Text)

        MyMailMessage1.To.Add(TextBox4.Text)

        MyMailMessage1.Subject = (TextBox5.Text)

        MyMailMessage1.Body = TextBox1.Text

        MyMailMessage1.Priority = MailPriority.High

        Dim SMTPServer As New SmtpClient("smtp.googlemail.com")

        SMTPServer.Port = 587

        SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)

        SMTPServer.EnableSsl = True

        Do Until i = NumericUpDown1.Value

            If BackgroundWorker1.CancellationPending Then

                Exit Sub

            End If

            SMTPServer.Send(MyMailMessage1)

            i = i + 1

        Loop

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

End Class

=======================END SCRIPT=================

ICC

Mail Boomber With VB.net 2010 2012-02-28T05:37:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown