27-07-17, 08:30 PM
(27-07-17, 08:17 PM)silverlight كتب : يا أخ عماد او يا أخ e-coder
انت ما زلت ف نفس المشكلة بلا حل؟؟؟؟!!!!
ربما لأن أغلب الناس مش فاهمة قوي ماذا تفعل بهذا الكود
وللأسف انا لم يعد يصبر مثل زمان إني ادرس كود كتبه شخص أخر
حاول توضح لنا الكود من فضلك ......
اخي في التايمر يوجد كود ولكن المشكلة هي كالتالي :
اذا كان العدد في listbox قليل بشتغل الكود
يعني مثال : اذا كان في listox الايميلات التالية
emad
emad2
emad3
بشتغل الكود وتمام التمام ولكن المشكلة هي كالتالي
اذا كان في listbox1
emad1
emad2
emad3
emad4
emad5
emad6
emad7
emad8
emad9
emad10
emad11
emad12
emad...20
لا يعمل الكود
الكود في التايمر هو
PHP كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Start3.Interval = "800"
emad1.Send(String.Concat(New String() {"<message xmlns='jabber:client' to='", room.Text, "@conference.nimbuzz.com/", Me.ListBox1.Items.Item(0).ToString, "' type='chat' id='292'><body>" + mspv1.Text + vbNewLine + mspv2.Text + vbNewLine + mspv3.Text + vbNewLine + mspv4.Text + vbNewLine + mspv5.Text + "</body><html xmlns='http://jabber.org/protocol/xhtml-im'><body xmlns='http://www.w3.org/1999/xhtml'><p><em>false</em><strong>true</strong><span style='" + colors + "'/></p></body></html></message>"}))
Me.ListBox1.Items.RemoveAt(0)
Catch ex As Exception
End Try
If ListBox1.Items.Count < 1 Then
Start1.Stop()
ProgressBar1.Value = False
Me.emad1.Send(String.Concat(New String() {"<presence to='" + room.Text + "@conference.nimbuzz.com/imanking' type='unavailable'></presence>"}))
Exit Sub
End If
End Sub
كود تشغيل التايمر
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
ProgressBar1.Maximum = ListBox1.Items.Count
Start1.Start()
Catch ex As Exception
End Try
End Sub
المراد من الكود ارسال اضافات لكل الموجودين في
listbox1 فقط هي المطلوب
