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=================

Author: Black Holes

Indonesian Cyber Center

One Comment Add yours

  1. Rest up to give your body more time to rebuild muscle and increase metabolic
    rate. Lean – Tea acts as a good Carminative and regularizes
    appetite. The principles of calorie counting comes down to calories in and calories out.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s