Locker-z Forum

Inizio subito col specificare che è il mio primo programma reso pubblico, non fa niente di "speciale" sono agli inizi della programmazione, e oltre che naturalmente a testare il programma sarebbe comodo aver anche qualche consiglio. Il programma è un semplice tool per velocizzare il processo di inviare email con mittente modificato, messo a disposizione da diversi servizi online ma pieno di pubblicità. Inoltre, ho aggiunta una funzione che permette al programma di inviare la stessa email ogni tot secondi. Ho infine aggiunto una funzione che permette di vedere il numero di email inviate, e infine un'ultima funzione che permette di fermare il programma arrivati ad un numero da voi scelto di email. Per richieste non esitate a chiedere. Aggiorno anche il codice. Aggiungo inoltre anche il codice utilizzato, per aiutare novellini come me. SPOILER ( click to view ) CODE Imports System.Net Imports System.Net.Mail Public Class Form2 Dim posta As New MailMessage() Dim inviate As Integer Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.Items.Add("out.alice.it") ComboBox1.Items.Add("smtp.tele2.it") ComboBox1.Items.Add("smtpmail.vodafone.it") ComboBox1.SelectedItem = "out.alice.it" Timer1.Enabled = False TextBox4.Text = "iltuopesoideale@klaatu.it" TextBox3.Text = "Il tuo peso idale ;)" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox4.Text = "" Then MsgBox("Inserire mittente.") : Exit Sub End If If TextBox1.Text = "" Then MsgBox("Inserire destinatario.") : Exit Sub End If If TextBox3.Text = "" Then MsgBox("Inserire oggetto.") : Exit Sub End If If TextBox2.Text = "" Then MsgBox("Inserire testo.") : Exit Sub End If posta = New MailMessage posta.From = New MailAddress(TextBox4.Text) posta.To.Add(TextBox1.Text) posta.Subject = TextBox2.Text posta.Priority = MailPriority.High posta.Body = TextBox3.Text If TextBox5.Text <> "" Then posta.Attachments.Add(New Attachment(TextBox5.Text)) End If Dim smtp As New SmtpClient(ComboBox1.Text) smtp.Send(posta) TextBox7.Text = 0 TextBox7.Text = TextBox7.Text + "1" Timer1.Enabled = True If Timer1.Enabled = True Then MsgBox("L'invio di email è appena iniziato!", MsgBoxStyle.Exclamation, "Attenzione") End If If Timer1.Enabled = False Then MsgBox("L'email è stata inviata correttamente.", MsgBoxStyle.Information, "Attenzione") End If End Sub Private Sub InformazioniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformazioniToolStripMenuItem.Click End Sub Private Sub DefaultToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultToolStripMenuItem.Click DefaultToolStripMenuItem.Checked = True Me.BackColor = Color.Empty BluToolStripMenuItem.Checked = False VerdeToolStripMenuItem.Checked = False RossoToolStripMenuItem.Checked = False End Sub Private Sub BluToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BluToolStripMenuItem.Click BluToolStripMenuItem.Checked = True Me.BackColor = Color.Blue DefaultToolStripMenuItem.Checked = False VerdeToolStripMenuItem.Checked = False RossoToolStripMenuItem.Checked = False End Sub Private Sub VerdeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerdeToolStripMenuItem.Click BluToolStripMenuItem.Checked = False Me.BackColor = Color.Green DefaultToolStripMenuItem.Checked = False VerdeToolStripMenuItem.Checked = True RossoToolStripMenuItem.Checked = False End Sub Private Sub RossoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RossoToolStripMenuItem.Click BluToolStripMenuItem.Checked = False Me.BackColor = Color.Red DefaultToolStripMenuItem.Checked = False VerdeToolStripMenuItem.Checked = False RossoToolStripMenuItem.Checked = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Interval = TextBox6.Text * 1000 posta = New MailMessage posta.From = New MailAddress(TextBox4.Text) posta.To.Add(TextBox1.Text) posta.Subject = TextBox2.Text posta.Priority = MailPriority.High posta.Body = TextBox3.Text If TextBox5.Text <> "" Then posta.Attachments.Add(New Attachment(TextBox5.Text)) End If Dim smtp As New SmtpClient(ComboBox1.Text) smtp.Send(posta) TextBox7.Text = TextBox7.Text + 1 If TextBox7.Text = TextBox8.Text Then Timer1.Enabled = False End If End Sub Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click Me.Close() End Sub Private Sub TimerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerToolStripMenuItem.Click MsgBox("Grazie a questa funzione potrai impostare di inviare la medesima e-mail ogni tot. secondi.", MsgBoxStyle.Information, "Timer") End Sub Private Sub ApplicazioneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplicazioneToolStripMenuItem.Click MsgBox("Il programma è stato sviluppato da ghost_rider97.", MsgBoxStyle.Information, "INFORMAZIONE") End Sub Private Sub SfondoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SfondoToolStripMenuItem.Click End Sub Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then TextBox6.Enabled = True Button3.Visible = True End If If CheckBox1.Checked = False Then TextBox6.Enabled = False Button3.Visible = False End If End Sub Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Timer1.Enabled = False End Sub Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter End Sub Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked = True Then TextBox8.Enabled = True End If If CheckBox2.Checked = False Then TextBox8.Enabled = False End If End Sub Private Sub CheckBox2_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckStateChanged End Sub End Class End Class Se trovare inutile il programma per favore evitate di commentare, accetto invece critiche/suggerimenti. https://www.dropbox.com/s/3bqkyjhm78dfkv6/...re%20e.mail.exe EDIT: Nuova versione. Aggiornato topic, cambiato link di download. Modificato da ghost_rider97 - 4/11/2012, 21:33

Carica il programma su un altro sito.

UP! Corretto Link(spero) e aggiornato.

Aggiungi nella casella "SMTP" il server per inviare email a indirizzi hotmail/live (smtp.live.com)