[bakriano30@yahoo.com]

محتاج افهم ازاي ممكن انفذ ده 

http://vb4arb.com/vb/showthread.php?tid=30586

[asemshahen5]

اخي العزيز ضع مثال ليتم التعديل عليه .

[bakriano30@yahoo.com]

(30-07-19, 02:18 AM)asemshahen5 كتب : اخي العزيز ضع مثال ليتم التعديل عليه .

انا لا امتلك مثال اخي قاسم ولكن هي ما الا فكره وهموت وانفذها ومش عارف بأختصار شديد 
 انا عندي فورم فيها عدد 2 تكست بوكس واحد للميل و واحد للباسورد الخاص بحسابي علي الجميل مثلا
محتاج لما اكتب الميل والباسورد يعمل تسجيل دخول ويضفهم في الريتش بوكس المخصص ليهم كماهو موضح 
واضيف عدد من الاميل المرسل له في المكان المخصص واضيف الرساله 
وعند الضغط علي ارسال البرنامج يقوم بالاتي يأخذ اول حساب من حسابي ويرسل منه اول رساله الي اول مرسل ويرجع يأخذ ثاني حساب من حسابي 
ويرسل منه الي ثاني مرسل ومن ثم يرجع يرسل من اول حساب من الاول الي ثالث مرسل وهكذا حتي يتم الانتهاء 

ولكن بفاصل زمني محدد عن طريق اداه TrackBar

[اسامه الهرماوي]

ضع ملف التعديل نفسة وليست صورة.

[bakriano30@yahoo.com]

(30-07-19, 02:30 AM)اسامه الهرماوي كتب : ضع ملف التعديل نفسة وليست صورة.

[asemshahen5]

هذا كود ارسال رسالة الى ايميل :

PHP كود :

   Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("Asem6600@Hotmail.com", "passsword")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.live.com"
            e_mail = New MailMessage()
            e_mail.From = New MailAddress("Asem6600@Hotmail.com")
            e_mail.To.Add("Asem6600@Hotmail.com")
            e_mail.Subject = "ERROR"
            e_mail.IsBodyHtml = False
            e_mail.Body = rtfError.Text 
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent Thanks Progrum Well pe Close")
            Close()
        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try
    End Sub 


ماذا بقي عندك اعمل قائمة باسماء و عناوين المرسل اليهم في قاعدة بيانات و عرف متغيرين واحد من نوع ستريغ و واحذ انتجر و ضع مؤقت على الفورم بوقت تحدده انت من حاصية انترفل كل 1000 تعبر عن ثانية ضع بالمؤقت المتغير الرقمي يزيد بعدد 1 و حسب الرقم يتم اختيار المقابل له من عنوان المرسل و من ثم يعمل ارسال و هكذا .

[اسامه الهرماوي]

اتبع

وهذا هنا في المنتدي:
اتبع

[bakriano30@yahoo.com]

(30-07-19, 02:37 AM)asemshahen5 كتب : هذا كود ارسال رسالة الى ايميل :

PHP كود :

   Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("Asem6600@Hotmail.com", "passsword")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.live.com"
            e_mail = New MailMessage()
            e_mail.From = New MailAddress("Asem6600@Hotmail.com")
            e_mail.To.Add("Asem6600@Hotmail.com")
            e_mail.Subject = "ERROR"
            e_mail.IsBodyHtml = False
            e_mail.Body = rtfError.Text '& TextDataFormat.Text
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent Thanks Progrum Well pe Close")
            Close()
        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try
    End Sub 


ماذا بقي عندك اعمل قائمة باسماء و عناوين المرسل اليهم في قاعدة بيانات و عرف متغيرين واحد من نوع ستريغ و واحذ انتجر و ضع مؤقت على الفورم بوقت تحدده انت من حاصية انترفل كل 1000 تعبر عن ثانية ضع بالمؤقت المتغير الرقمي يزيد بعدد 1 و حسب الرقم يتم اختيار المقابل له من عنوان المرسل و من ثم يعمل ارسال و هكذا .

الفكره كلها اخي قاسم ان انا عايز يبدل الحسابات المرسل منها تلقائي يعني اضيف في ليست بوكس 5 حسابات مرسل اليهم و 3 حسابات مرسل منهم والبرنامج يبدل 
كل رساله مع كل حساب تلقائي علي حسب فاصل زمني محدد

---

(30-07-19, 02:38 AM)اسامه الهرماوي كتب : اتبع

وهذا هنا في المنتدي:
اتبع

الفكره كلها اخي اسامه ان انا عايز يبدل الحسابات المرسل منها تلقائي يعني اضيف في ليست بوكس 5 حسابات مرسل اليهم و 3 حسابات مرسل منهم والبرنامج يبدل 
كل رساله مع كل حساب تلقائي علي حسب فاصل زمني محدد

---

(30-07-19, 02:38 AM)اسامه الهرماوي كتب : اتبع

وهذا هنا في المنتدي:
اتبع

الفكره كلها اخي اسامه ان انا عايز يبدل الحسابات المرسل منها تلقائي يعني اضيف في ليست بوكس 5 حسابات مرسل اليهم و 3 حسابات مرسل منهم والبرنامج يبدل 
كل رساله مع كل حساب تلقائي علي حسب فاصل زمني محدد

[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
        'ListBox1.Items-قائمه البريد المرسل له '
        For Each srt As String In ListBox1.Items
            SendMail(srt)
        Next
    End Sub
    Private Sub SendMail(SendToStr 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("Asem6600@Hotmail.com", "password")
            'البورت المستخدم للارسال'
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            'ملقم البريد الالكتروني'
            Smtp_Server.Host = "smtp.live.com"
            e_mail = New MailMessage()
            'ايميل المرسل'
            e_mail.From = New MailAddress("Asem6600@Hotmail.com")
            'عنوان المرسل له'
            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 


[bakriano30@yahoo.com]

(30-07-19, 03:42 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
        'ListBox1.Items-قائمه البريد المرسل له '
        For Each srt As String In ListBox1.Items
            SendMail(srt)
        Next
    End Sub
    Private Sub SendMail(SendToStr 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("Asem6600@Hotmail.com", "password")
            'البورت المستخدم للارسال'
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            'ملقم البريد الالكتروني'
            Smtp_Server.Host = "smtp.live.com"
            e_mail = New MailMessage()
            'ايميل المرسل'
            e_mail.From = New MailAddress("Asem6600@Hotmail.com")
            'عنوان المرسل له'
            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 


شكراااا اخي تمعنت جيدااا وفهمت كل معدا النقطه دي فقط 


 Smtp_Server.Credentials = New Net.NetworkCredential("Asem6600@Hotmail.com", "password")
هنا هنستبدل مكان اليوزر والباسورد بالتكست بوكس المناسب الفكره هناااا بقي اخي 
عند كتابه الاميل والباسورد في التكست بوكس والضغط علي زر اضافه كما موضوح بالمثال 
هل يتم احتجاز الحسابات في المكان المخصص لها وهل سيتم التبديل التلقائي في الارسال بين الحسابات المرسل منها