Foro de elhacker.net

Imports System.Net.Mail
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim MyMailMessage As New MailMessage
        Try

            MyMailMessage.From() = New MailAddress(TextBox1.Text)
            MyMailMessage.To.Add(TextBox3.Text)
            MyMailMessage.Subject = TextBox5.Text
            MyMailMessage.Body = (TextBox4.Text)
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
            SMTP.Send(MyMailMessage)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Interval = Textbox6.Text
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Close()
    End Sub

    Private Sub ReportarBugsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportarBugsToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://foro.elhacker.net/pm.html;sa=send;u=463020")
    End Sub

    Private Sub IrAForoElHackernetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IrAForoElHackernetToolStripMenuItem.Click

    End Sub

    Private Sub RegistrateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegistrateToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://foro.elhacker.net/register.html")
    End Sub

    Private Sub IrALaWebToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IrALaWebToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://foro.elhacker.net/")
    End Sub
End Class