[bakriano30@yahoo.com]

(30-07-19, 04:40 AM)asemshahen5 كتب : الكود مع التعديل :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'ListBox1.Items.Add-تعبئة قائمه البريد المرسل له '
        ListBox1.Items.Add("asem6600@hotmail.com")
        ListBox1.Items.Add("asemshahen5@gmail.com")
    End Sub
    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Timer1.Interval = 1000
        'Label6''ليبل جديد يعرض قيمة التراك بار'
        Label6.Text = TrackBar1.Value
        'Timer1.Interval''زيادة عدد الثواني حسب التراك بار'
        Timer1.Interval = Timer1.Interval * TrackBar1.Value
        'Label7''ليبل جديد يعرض كل كم ثانية تريد الارسال الى قائمة المرسل لهم'
        Label7.Text = " [ " & Val(Timer1.Interval / 1000) & " ] ثانية"
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        'ListBox2.Items-قائمه البريد المرسل '
        For Each der As String In ListBox2.Items
            'ListBox1.Items-قائمه البريد المرسل له '
            For Each srt As String In ListBox1.Items
                SendMail(srt, der, "password")
            Next
        Next
    End Sub
    Private Sub SendMail(SendToStr As String, SendFrom As String, PasswordMail As String)
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            'اسم مستخدم و كلمة المرور للايميل الذي تريد الارسال منه'
            Smtp_Server.Credentials = New Net.NetworkCredential(SendFrom, PasswordMail)
            'البورت المستخدم للارسال'
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            'ملقم البريد الالكتروني'
            Smtp_Server.Host = "smtp.live.com"
            e_mail = New MailMessage()
            'ايميل المرسل'
            e_mail.From = New MailAddress(SendFrom)
            'عنوان المرسل له'
            e_mail.To.Add(SendToStr)
            'موضوع الرسالة'
            e_mail.Subject = "مرحبا"
            e_mail.IsBodyHtml = False
            'جسم الرسالة'
            e_mail.Body = RichTextBox3.Text
            'امر الارسال'
            Smtp_Server.Send(e_mail)
            'رسالة نجاح الارسال'
            MsgBox("Mail Sent Thanks Progrum Well pe Close")
        Catch error_t As Exception
            'اذا وقع خطا في الارسال'
            MsgBox(error_t.ToString)
        End Try
    End Sub 


اخي قاسم انا اعلم اني ثقلت عليك كثيرااا ولكن عقلي تشتت من كثره الاكواد فأتمني منك ان تمدني بمثال حتي افهم كل كود يعمل كيف