pero ya se mejorara con el tiempo.
(Solo sirve con Gmail)
Código:
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
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
Link: http://www.mediafire.com/download.php?yj3xa0butnbcbr0