تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتي
#1
بسم الله الرحمان الرحيم
فكرة الكود هذا
انه اذا شخص وضع كلمة سيئة في
الشات يقوم البرنامج بحظرة
والكلمات السئية موجودة في صندوق
textBox4.Text


textBox5.Text

الان المطلوب هوا اذا المستخدم في الشات قام بتكرار جملة
هكذا
1
2
3
4
5
6
7
يقوم البرنامج بحظرة تلقائية 
الكود المراد تعديلة
PHP كود :
Sub cnt_OnMessage(sender As ObjectMsg As agsXMPP.protocol.client.Message)
            If 
InvokeRequired Then
                BeginInvoke
(New agsXMPP.protocol.client.MessageHandler(cnt_OnMessage), New Object() {senderMsg})
            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 
الرد }}}
تم الشكر بواسطة:
#2
????????????/
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 102 منذ 9 ساعة مضت
آخر رد: مصمم هاوي
  تعديل كود ارسال صورة الى الواتس new_programer 0 58 12-03-24, 03:12 AM
آخر رد: new_programer
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 86 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 130 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 150 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 240 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 201 19-01-24, 12:42 PM
آخر رد: Taha Okla
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 417 09-01-24, 08:40 PM
آخر رد: new_programer
  ممكن تعديل في كود التفقيط للارقام melad2002 2 323 01-01-24, 08:47 PM
آخر رد: melad2002

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم