02-06-17, 06:01 PM
سلام عليكم
عند الضغط ع ستارت
لتشغيل تايمر
يحدث تهنج بالبرنامج فما الحل؟؟
الكود الموجود بتايمر
PHP كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ComboBox1.SelectedItem = "Start" Then
Jids = RichTextBox2.Text.Split("#")
If k = Jids.Length Then
k = 0
Else
If emad(k).Authenticated = True Then
Me.colora()
emad(k).Send("<presence to='" + TextBox1.Text + "@conference.nimbuzz.com/" + emad(k).Username + "'><x xmlns='http://jabber.org/protocol/muc'></x></presence>")
emad(k).Send(String.Concat(New String() {"<message to='" + TextBox1.Text + "@conference.nimbuzz.com' type='groupchat'><body>", Form2.TextBox1.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>"}))
emad(k).Send(String.Concat(New String() {"<message to='" + TextBox1.Text + "@conference.nimbuzz.com' type='groupchat'><body>", Form2.TextBox2.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>"}))
emad(k).Send(String.Concat(New String() {"<message to='" + TextBox1.Text + "@conference.nimbuzz.com' type='groupchat'><body>", Form2.TextBox3.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>"}))
emad(k).Send(String.Concat(New String() {"<presence to='" + TextBox1.Text + "@conference.nimbuzz.com/imanking' type='unavailable'></presence>"}))
End If
k += 1
End If
End If
End Sub