08-08-17, 02:36 PM
بسم الله الرحمان الرحيم
فكرة الكود هذا
انه اذا شخص وضع كلمة سيئة في
الشات يقوم البرنامج بحظرة
والكلمات السئية موجودة في صندوق
textBox4.Text
textBox5.Text
الان المطلوب هوا اذا المستخدم في الشات قام بتكرار جملة
هكذا
1
2
3
4
5
6
7
يقوم البرنامج بحظرة تلقائية
الكود المراد تعديلة
PHP كود :
Sub cnt_OnMessage(sender As Object, Msg As agsXMPP.protocol.client.Message)
If InvokeRequired Then
BeginInvoke(New agsXMPP.protocol.client.MessageHandler(cnt_OnMessage), New Object() {sender, Msg})
Else
If Msg.Body.ToLower() = textBox4.Text Or Msg.Body.ToLower() = textBox5.Text Then
'inja ye shart mizarim migim age mseghaye daryafti barabar bod ba meseg dakhele text boxha dastorate ziro anjam bde
mojtaba.Send("<message to='" + rom.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + Msg.From.Resource.Trim() + " Dahaneto gereftam ta dg to bashi harfe zesht nazani :-| To kaf bash :p:D</body></message>")
'in xml ersal msg be rome ke msg ke neveshtamo misende to rom
'inam xml visitoor kardane id dar rom ke bayad in bot admin bashe ta in xml ejra beshe
mojtaba.Send("<iq type='set' to='" + rom.Text + "@conference.nimbuzz.com' id='mir_437'><query xmlns='http://jabber.org/protocol/muc#admin'><item nick='" + Msg.From.Resource.Trim() + "' role='visitor' /></query></iq>")
End If
End If
End Sub