30-07-19, 04:40 AM
الكود مع التعديل :
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