SHOW:
|
|
- or go back to the newest paste.
| 1 | Imports System.Net.Mail | |
| 2 | Public Class Form1 | |
| 3 | Dim count As Integer | |
| 4 | ||
| 5 | Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged | |
| 6 | If ComboBox1.Text = "Custom" Then | |
| 7 | Dim input As String = InputBox("Please enter a custom smtp server")
| |
| 8 | Label9.Text = input | |
| 9 | End If | |
| 10 | End Sub | |
| 11 | ||
| 12 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click | |
| 13 | Timer1.Enabled = True | |
| 14 | End Sub | |
| 15 | ||
| 16 | Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick | |
| 17 | If TextBox7.Text = count Then | |
| 18 | Timer1.Enabled = False | |
| 19 | MsgBox("Spam Complete! Messages Sent - " & count, MsgBoxStyle.Exclamation, "COMPLETE")
| |
| 20 | count = 0 | |
| 21 | ||
| 22 | Exit Sub | |
| 23 | End If | |
| 24 | If ComboBox1.Text = "Gmail" Then | |
| 25 | Try | |
| 26 | Dim mail As New MailMessage | |
| 27 | mail.Subject = TextBox5.Text | |
| 28 | mail.Body = TextBox4.Text | |
| 29 | mail.To.Add(TextBox6.Text) | |
| 30 | mail.From = New MailAddress(TextBox1.Text) | |
| 31 | ||
| 32 | Dim SMTP As New SmtpClient("smtp.gmail.com")
| |
| 33 | SMTP.EnableSsl = True | |
| 34 | SMTP.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text) | |
| 35 | SMTP.Port = "587" | |
| 36 | SMTP.Send(mail) | |
| 37 | 'MsgBox("Sent Message To : " & TextBox6.Text, MsgBoxStyle.Information, "Sent!")
| |
| 38 | Catch ex As Exception | |
| 39 | MsgBox("Failed To Send Message", MsgBoxStyle.Exclamation, "ERROR")
| |
| 40 | Exit Sub | |
| 41 | End Try | |
| 42 | Label10.Text = count + 1 | |
| 43 | count = count + 1 | |
| 44 | End If | |
| 45 | ||
| 46 | If ComboBox1.Text = "Yahoo" Then | |
| 47 | Try | |
| 48 | Dim mail As New MailMessage | |
| 49 | mail.Subject = TextBox5.Text | |
| 50 | mail.Body = TextBox4.Text | |
| 51 | mail.To.Add(TextBox6.Text) | |
| 52 | mail.From = New MailAddress(TextBox1.Text) | |
| 53 | ||
| 54 | Dim SMTP As New SmtpClient("smtp.mail.yahoo.com")
| |
| 55 | SMTP.EnableSsl = True | |
| 56 | SMTP.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text) | |
| 57 | SMTP.Port = "587" | |
| 58 | SMTP.Send(mail) | |
| 59 | 'MsgBox("Sent Message To : " & TextBox6.Text, MsgBoxStyle.Information, "Sent!")
| |
| 60 | Catch ex As Exception | |
| 61 | MsgBox("Failed To Send Message", MsgBoxStyle.Exclamation, "ERROR")
| |
| 62 | Exit Sub | |
| 63 | End Try | |
| 64 | Label10.Text = count + 1 | |
| 65 | count = count + 1 | |
| 66 | End If | |
| 67 | ||
| 68 | If ComboBox1.Text = "hotmail" Then | |
| 69 | Try | |
| 70 | Dim mail As New MailMessage | |
| 71 | mail.Subject = TextBox5.Text | |
| 72 | mail.Body = TextBox4.Text | |
| 73 | mail.To.Add(TextBox6.Text) | |
| 74 | mail.From = New MailAddress(TextBox1.Text) | |
| 75 | ||
| 76 | Dim SMTP As New SmtpClient("smtp.live.com")
| |
| 77 | SMTP.EnableSsl = True | |
| 78 | SMTP.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text) | |
| 79 | SMTP.Port = "587" | |
| 80 | SMTP.Send(mail) | |
| 81 | 'MsgBox("Sent Message To : " & TextBox6.Text, MsgBoxStyle.Information, "Sent!")
| |
| 82 | Catch ex As Exception | |
| 83 | MsgBox("Failed To Send Message", MsgBoxStyle.Exclamation, "ERROR")
| |
| 84 | Exit Sub | |
| 85 | End Try | |
| 86 | Label10.Text = count + 1 | |
| 87 | count = count + 1 | |
| 88 | End If | |
| 89 | ||
| 90 | If ComboBox1.Text = "Custom" Then | |
| 91 | Try | |
| 92 | Dim mail As New MailMessage | |
| 93 | mail.Subject = TextBox5.Text | |
| 94 | mail.Body = TextBox4.Text | |
| 95 | mail.To.Add(TextBox6.Text) | |
| 96 | mail.From = New MailAddress(TextBox1.Text) | |
| 97 | ||
| 98 | Dim SMTP As New SmtpClient(Label9.Text) | |
| 99 | SMTP.EnableSsl = True | |
| 100 | SMTP.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text) | |
| 101 | SMTP.Port = "587" | |
| 102 | SMTP.Send(mail) | |
| 103 | 'MsgBox("Sent Message To : " & TextBox6.Text, MsgBoxStyle.Information, "Sent!")
| |
| 104 | Catch ex As Exception | |
| 105 | MsgBox("Failed To Send Message", MsgBoxStyle.Exclamation, "ERROR")
| |
| 106 | Exit Sub | |
| 107 | End Try | |
| 108 | Label10.Text = count + 1 | |
| 109 | count = count + 1 | |
| 110 | End If | |
| 111 | ||
| 112 | ||
| 113 | ||
| 114 | ||
| 115 | End Sub | |
| 116 | End Class |
