تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً
#1
سلام عليكم

اريد تعديل ع كود من برنامج ليكن جاهزاً
حاولت كل الطرق ولكن تعبت ولجأت الي الله ثم لكم
بمساعدتي

الكود كما هو موضح بصورة


يعطي خطأ
ما السبب؟؟
وشكراً
الرد }}}
تم الشكر بواسطة:
#2
أخي الكريم، لا تتعب من يريد مساعدك بوضع صورة للأكواد،

السبب غالباً أن المتغير msg لم تعيين قيمة له أي أنه Nothing أو ما يعرف ب Null
الرد }}}
تم الشكر بواسطة: 3asfa~mdmra
#3
طيب شو الحل؟؟
الرد }}}
تم الشكر بواسطة:
#4
الحل عندك في طريقتك في تعبئة Message عند إرسالها إلى الروتين n_room

وأسئلتك صعب الإجابة عليها لعدم وضوح باقي الكود وعدم رغبتك بإرفاق مشروع ولو صغير للجزئية التي تريد فهمها.
الرد }}}
تم الشكر بواسطة: 3asfa~mdmra , 3asfa~mdmra , أبو عمر
#5
اخي المشروع كبير جداً ولكن سوف احدد لكم جزئية المتبقية

الفكرة قائمة ع اي شخص يتلفظ بكلمة سيئة داخل الغرفة يقوم بحظرة البوت
لذلك وضعت الكلمات السيئة داخل logInusertextbox3
الرد }}}
تم الشكر بواسطة:
#6
ضع بنية Structure الخاصة ب Message وكيف تقوم بتعبئة خصائصها ومتغيراتها، لربما يستطيع أحد الأخوة الأعضاء مساعدتك
الرد }}}
تم الشكر بواسطة:
#7
انا رفعت المشروع الرجاء مشاهدتة والرد بأقرب سرعة
http://up.top4top.net/downloadf-315kcr6a1-rar.html
الرد }}}
تم الشكر بواسطة:
#8
ما رفعت المشروع ولا حتى مشروع مصغّر يبين المشكلة انت رفعت هذا الكلاس للفورم
PHP كود :
Imports agsXMPP
Imports agsXMPP
.Xml.Dom
Imports agsXMPP
.protocol.client
Imports System
.Runtime.CompilerServices
Imports Microsoft
.VisualBasic.CompilerServices
Imports System
Imports agsXMPP
.protocol.x.muc


Public Class Form1
    Dim target 
As String
    
Private msg As String
    
Private As String
    
Private a1 As String
    
Public mem As String()
    Public 
meem As String()
    Public 
Shared emad As agsXMPP.XmppClientConnection = New agsXMPP.XmppClientConnection()

    Private 
Sub LogInButton1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton1.Click
        emad 
= New agsXMPP.XmppClientConnection
        With emad
            
.Server "nimbuzz.com"
            
.ConnectServer "o.nimbuzz.com"
            
.Open(LogInUserTextBox1.TextLogInUserTextBox2.Text'id + password
            .Resource = ("Nimbuzz_Symbian" & Me.Generatecode())
            .Status = ("TEST My Soft")
            .ClientVersion = ("2.2.0")
            .Port = "5222"
            AddHandler .OnClose, AddressOf dc
            AddHandler .OnReadXml, AddressOf xmlwlcowner
            AddHandler .OnReadXml, AddressOf xmlwlcadmin
            AddHandler .OnReadXml, AddressOf xmlban
            AddHandler .OnReadXml, AddressOf xmlip
            AddHandler .OnReadXml, AddressOf xmlmem
            AddHandler .OnReadXml, AddressOf xmlkick
            AddHandler .OnReadXml, AddressOf xmlvis
            AddHandler .OnReadXml, AddressOf xml2
            AddHandler .OnReadXml, AddressOf Xml3
            AddHandler .OnReadXml, AddressOf Xml4
            AddHandler .OnReadXml, AddressOf Xml5
            AddHandler .OnReadXml, AddressOf Xml6
            AddHandler .OnReadXml, AddressOf Xml7
            AddHandler .OnLogin, AddressOf loged
            AddHandler .OnAuthError, AddressOf wrong
            AddHandler .OnMessage, AddressOf mesg
            AddHandler .OnPresence, AddressOf rec
            AddHandler .OnPresence, AddressOf onjoin
            AddHandler .OnMessage, AddressOf cnt_OnMessage
        End With
    End Sub
    Private Sub onjoin(ByVal sender As Object, ByVal pre As Presence)
        On Error Resume Next
        If MyBase.InvokeRequired Then
            MyBase.BeginInvoke(New PresenceHandler(AddressOf Me.onjoin), New Object() {sender, pre})
        Else
            If pre.From.Server.StartsWith("conference") Then
                If pre.Type = PresenceType.available Then
                    If Me.LogInOnOffSwitch18.Toggled = Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
                        Dim sry As String() = Nothing
                        sry = "chmz#fownz#chgz#bcz".Split(New Char() {"#"c})
                        Dim sryy As New Random
                        Dim sryyyy As String = sry(sryy.Next(sry.Length))
                        target = pre.From.Resource
                        emad.Send("<message to='" + room.Text + "
@conference.nimbuzz.com' type='groupchat'><body>/vg " + sryyyy + " " + target + "</body></message>")
                        emad.Send("<message to='" + room.Text + "
@conference.nimbuzz.com' type='groupchat'><body>Auto gift {9/Point} to " & " ↦ " + pre.From.Resource + "</body></message>")
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub xmlvis(ByVal sender As Object, ByVal a As String)
        If MyBase.InvokeRequired Then
            MyBase.BeginInvoke(New XmlHandler(AddressOf Me.xmlvis), New Object() {RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(sender))), a})
        Else
            a = Strings.Replace(a, """", "'", 1, -1, CompareMethod.Text)
            If (Me.LogInOnOffSwitch4.Toggled = Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled AndAlso ((Strings.InStr(a, "
affiliation='None'", CompareMethod.Text) And (Strings.InStr(a, "role='participant'", CompareMethod.Text) Or -(((Strings.InStr(a, "type='available'", CompareMethod.Text) > 0) < False) > False))) > 0)) Then
                Dim str9 As String = a.Substring((a.IndexOf("
jid='") + 5))
                str9 = str9.Substring(0, (str9.IndexOf("@") - 0))
                Try
                    emad.Send(String.Concat(New String() {"<iq type='
set' to='", Me.room.Text, "@conference.nimbuzz.com' id='badbuzz'><query xmlns='http://jabber.org/protocol/muc#admin'><item nick='", str9, "' role='visitor' /></query></iq>"}))
                
Catch exception9 As Exception
                    ProjectData
.SetProjectError(exception9)
                    
Dim exception5 As Exception exception9
                    ProjectData
.ClearProjectError()
                    
ProjectData.ClearProjectError()
                
End Try
            
End If
        
End If
    
End Sub

    
Private Sub xmlkick(ByVal sender As ObjectByVal a As String)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf Me.xmlkick), New Object() {RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(sender))), a})
        Else
            
Strings.Replace(a"""""'"1, -1CompareMethod.Text)
            If (
Me.LogInOnOffSwitch3.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled AndAlso ((Strings.InStr(a"affiliation='None'"CompareMethod.Text) And (Strings.InStr(a"role='participant'"CompareMethod.Text) Or -(((Strings.InStr(a"type='available'"CompareMethod.Text) > 0) < False) > False))) > 0)) Then
                Dim str9 
As String a.Substring((a.IndexOf("jid='") + 5))
                
str9 str9.Substring(0, (str9.IndexOf("@") - 0))
                Try
                    
emad.Send(String.Concat(New String() {"<iq to='"Me.room.Text"@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='none' nick='"str9"'><reason>: loopeto</reason></item></query></iq>"}))
                Catch 
exception9 As Exception
                    ProjectData
.SetProjectError(exception9)
                    
Dim exception5 As Exception exception9
                    ProjectData
.ClearProjectError()
                    
ProjectData.ClearProjectError()
                
End Try
            
End If
        
End If
    
End Sub
    
Private Sub xmlmem(ByVal sender As ObjectByVal a As String)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf Me.xmlmem), New Object() {RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(sender))), a})
        Else
            
Strings.Replace(a"""""'"1, -1CompareMethod.Text)
            If (
Me.LogInOnOffSwitch2.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled AndAlso ((Strings.InStr(a"affiliation='None'"CompareMethod.Text) And (Strings.InStr(a"role='participant'"CompareMethod.Text) Or -(((Strings.InStr(a"type='available'"CompareMethod.Text) > 0) < False) > False))) > 0)) Then
                Dim str9 
As String a.Substring((a.IndexOf("jid='") + 5))
                
str9 str9.Substring(0, (str9.IndexOf("@") - 0))
                Try
                    
emad.Send(String.Concat(New String() {"<iq to='"Me.room.Text"@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='member' jid='"str9"@nimbuzz.com'/> </query> </iq>"}))
                    
Me.ListBox5.Items.Add(str9)
                Catch 
exception9 As Exception
                    ProjectData
.SetProjectError(exception9)
                    
Dim exception5 As Exception exception9
                    ProjectData
.ClearProjectError()
                    
ProjectData.ClearProjectError()
                
End Try
            
End If
        
End If
    
End Sub

    
Private Sub cnt_OnMessage(ByVal sender As ObjectByVal Msg As Message)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New MessageHandler(AddressOf Me.cnt_OnMessage), New Object() {senderMsg})
        ElseIf ((
Msg.Body.ToLower "الكلمات السيئة") Or (Msg.Body.ToLower "الكلمات السيئة")) Then 'المشكلة هنا 
            emad.Send(String.Concat(New String() {"<message to='", Me.room.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>"}))
            emad.Send(String.Concat(New String() {"<iq type='
set' to='", Me.room.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 Sub
    
Private Sub xmlwlcadmin(ByVal sender As ObjectByVal a As String)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf Me.xmlwlcadmin), New Object() {RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(sender))), a})
        Else
            
Strings.Replace(a"""""'"1, -1CompareMethod.Text)
            If (
Me.LogInOnOffSwitch11.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled AndAlso ((Strings.InStr(a"affiliation='Admin'"CompareMethod.Text)))) Then
                Dim str 
As String a.Substring((a.IndexOf("jid='") + 5))
                
Dim str2 As String = (str.Substring(0, (str.IndexOf("@") - 0)) & " (f) ")
                Try
                    
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat' id='macoud'><body>Wlc Admin ♥"str2"</body></message>"}))
                Catch 
exception1 As Exception
                    ProjectData
.SetProjectError(exception1)
                    
Dim exception As Exception exception1
                    ProjectData
.ClearProjectError()
                    
ProjectData.ClearProjectError()
                
End Try
            
End If
        
End If
    
End Sub


    
Private Sub xmlwlcowner(ByVal sender As ObjectByVal a As String)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf Me.xmlwlcowner), New Object() {RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(sender))), a})
        Else
            
Strings.Replace(a"""""'"1, -1CompareMethod.Text)
            If (
Me.LogInOnOffSwitch11.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled AndAlso ((Strings.InStr(a"affiliation='Owner'"CompareMethod.Text)))) Then
                Dim str 
As String a.Substring((a.IndexOf("jid='") + 5))
                
Dim str2 As String = (str.Substring(0, (str.IndexOf("@") - 0)) & " (f) ")
                Try
                    
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat' id='macoud'><body>Wlc Owner ♥"str2"</body></message>"}))
                Catch 
exception1 As Exception
                    ProjectData
.SetProjectError(exception1)
                    
Dim exception As Exception exception1
                    ProjectData
.ClearProjectError()
                    
ProjectData.ClearProjectError()
                
End Try
            
End If
        
End If
    
End Sub




    
Private Sub rec(ByVal sender As ObjectByVal pres As Presence)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New PresenceHandler(AddressOf Me.rec), New Object() {senderpres})
        ElseIf ((
pres.Type PresenceType.availableAndAlso Me.LogInOnOffSwitch10.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.ToggledThen
            Dim strArray 
As String() = "X#bot#BOT#kpv".Split(New Char() {"#"c})
            
Dim index As Integer 0
            index 
0
            
Do While (index <= (strArray.GetUpperBound(0) - 1))
                If 
Convert.ToString(pres).Contains(strArray(index)) Then
                    
If Me.LogInOnOffSwitch10.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
                        emad
.Send(String.Concat(New String() {"<iq to='"Me.room.Text"@conference.nimbuzz.com' type='set'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='"pres.From.Resource"@nimbuzz.com' /></query></iq>"}))
                        
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat'><body>"pres.From.Resource" : Gomsho Birun :@</body></message>"}))
                        Exit Do
                    
End If
                    If 
Me.LogInOnOffSwitch10.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
                        emad
.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat'><body>/ban f "pres.From.Resource"</body></message>"}))
                        
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat'><body>"pres.From.Resource" : Boro Gom Sho Biron :@ IP Ban Shod :P</body></message>"}))
                        Exit Do
                    
End If
                    If 
Me.LogInOnOffSwitch10.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
                        emad
.Send(String.Concat(New String() {"<iq to='"Me.room.Text"@conference.nimbuzz.com' type='set' id='781'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='none' nick='"pres.From.Resource"'><reason>: loopo boro havakhori:D</reason></item></query></iq>"}))
                        
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat'><body>"pres.From.Resource" : Nayomade Boro Birun :D</body></message>"}))
                        Exit Do
                    
End If
                    If 
Me.LogInOnOffSwitch10.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
                        emad
.Send(String.Concat(New String() {"<iq type='set' to='"Me.room.Text"@conference.nimbuzz.com' id='347'><query xmlns='http://jabber.org/protocol/muc#admin'><item nick='"pres.From.Resource"' role='visitor' /></query></iq>"}))
                        
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat'><body>"pres.From.Resource" : Wb. Pas Chera Harf Nmizani :D ?</body></message>"}))
                        Exit Do
                    
End If

                
End If

                
index += 1
            Loop
        End 
If
    
End Sub
    
Private Sub xmlban(ByVal sender As ObjectByVal a As String)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf Me.xmlban), New Object() {RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(sender))), a})
        Else
            
'auto ban normail
            a = Strings.Replace(a, """", "'", 1, -1, CompareMethod.Text)
            If (Me.LogInOnOffSwitch17.Toggled = Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled AndAlso ((Strings.InStr(a, "
affiliation='none'", CompareMethod.Text) And (Strings.InStr(a, "role='participant'", CompareMethod.Text) Or -(((Strings.InStr(a, "type='available'", CompareMethod.Text) > 0) < False) > False))) > 0)) Then
                Dim str As String = a.Substring((a.IndexOf("
jid='") + 5))
                str = str.Substring(0, (str.IndexOf("@") - 0))
                Try
                    emad.Send(String.Concat(New String() {"<message to='", Me.room.Text, "
@conference.nimbuzz.com' type='groupchat' id='macoud'><body>/ban", str, "</body></message>"}))
                    Me.ListBox4.Items.Add(str)
                Catch exception1 As Exception
                    ProjectData.SetProjectError(exception1)
                    Dim exception As Exception = exception1
                    ProjectData.ClearProjectError()
                    ProjectData.ClearProjectError()
                End Try
            End If
        End If
    End Sub

    Private Sub xmlip(ByVal sender As Object, ByVal a As String)
        If MyBase.InvokeRequired Then
            MyBase.BeginInvoke(New XmlHandler(AddressOf Me.xmlip), New Object() {RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(sender))), a})
        Else
            '
auto ban ip
            a 
Strings.Replace(a"""""'"1, -1CompareMethod.Text)
            If (
Me.LogInOnOffSwitch1.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled AndAlso ((Strings.InStr(a"affiliation='none'"CompareMethod.Text) And (Strings.InStr(a"role='participant'"CompareMethod.Text) Or -(((Strings.InStr(a"type='available'"CompareMethod.Text) > 0) < False) > False))) > 0)) Then
                Dim str 
As String a.Substring((a.IndexOf("jid='") + 5))
                
str str.Substring(0, (str.IndexOf("@") - 0))
                Try
                    
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat' id='macoud'><body>/ban f "str"</body></message>"}))
                    
Me.ListBox4.Items.Add(str)
                Catch 
exception1 As Exception
                    ProjectData
.SetProjectError(exception1)
                    
Dim exception As Exception exception1
                    ProjectData
.ClearProjectError()
                    
ProjectData.ClearProjectError()
                
End Try
            
End If
        
End If
    
End Sub
    
Private Sub xml2(ByVal sender As ObjectByVal v As String)
        If 
MyBase.InvokeRequired True Then
            MyBase
.BeginInvoke(New agsXMPP.XmlHandler(AddressOf xml2), New Object() {senderv})
        Else


            
On Error Resume Next
            v 
Replace(v"""""'")

            If (
InStr(v"Enter the right answer to start chatting."CompareMethod.Text) <> 0Then
                a 
v.Substring(v.IndexOf("Enter the right answer to start chatting.") + 42)
                
a.Substring(0a.IndexOf("<") - 0)
                
Form2.P1.ImageLocation a
                Form2
.Show()
            
End If
            If 
InStr(v"code='503'"CompareMethod.Text) <> 0 Then
                MsgBox
("Room IS Full"MsgBoxStyle.Critical"Error 503")
            
End If
            If 
InStr(v"code='307'"CompareMethod.Text) <> 0 Then
                MsgBox
("ID Kicked"MsgBoxStyle.Critical"Error 307")
            
End If
            If 
InStr(v"role='visitor'"CompareMethod.Text) <> 0 Then
                MsgBox
("ID 1 Is Visitor"MsgBoxStyle.Critical"Error Visitor")
            
End If



        
End If
    
End Sub
    
Private Sub rooom(ByVal sender As ObjectByVal msg As Message)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New agsXMPP.protocol.client.MessageHandler(AddressOf Me.rooom), New Object() {sendermsg})
            If 
msg.Type MessageType.chat AndAlso msg.HasTag("body"Then
            
Else
                If 
Me.LogInOnOffSwitch15.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
                
ElseIf ((msg.Body.ToLower "زب") Or (msg.Body.ToLower "كس")) Then
                    emad
.Send(String.Concat(New String() {"<message to='"Me.room.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>"}))
                    
emad.Send(String.Concat(New String() {"<iq type='set' to='"Me.room.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
                If 
Me.LogInOnOffSwitch15.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
                    emad
.Send(String.Concat(New String() {"<iq xmlns='jabber:client' to='"Me.room.Text"@conference.nimbuzz.com' type='set' id='apple'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='"msg.From.Resource.Trim"@nimbuzz.com' /></query></iq>"}))
                    
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat'><body>"msg.From.Resource.Trim" : Khafe sho :@</body></message>"}))
                
End If
                If 
Me.LogInOnOffSwitch12.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
                    emad
.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat'><body>/ban f "msg.From.Resource.Trim"</body></message>"}))
                    
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat'><body>"msg.From.Resource.Trim" : Boro Gom Sho Biron :@ IP Ban Shod :P</body></message>"}))
                
End If
                If 
Me.LogInOnOffSwitch14.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
                    emad
.Send(String.Concat(New String() {"<iq to='"Me.room.Text"@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='none' nick='"msg.From.Resource.Trim"'><reason>: loopeto</reason></item></query></iq>"}))
                    
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat'><body>"msg.From.Resource.Trim" : Boro Birun ye Havayi Bokhor Biya :D</body></message>"}))
                
End If
                If 
Me.LogInOnOffSwitch13.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
                    emad
.Send(String.Concat(New String() {"<iq type='set' to='"Me.room.Text"@conference.nimbuzz.com' id='badbuzz'><query xmlns='http://jabber.org/protocol/muc#admin'><item nick='"msg.From.Resource.Trim"' role='visitor' /></query></iq>"}))
                    
emad.Send(String.Concat(New String() {"<message to='"Me.room.Text"@conference.nimbuzz.com' type='groupchat'><body>"msg.From.Resource.Trim" : Sedat Chera Dar nmiyad ? :D</body></message>"}))
                
End If
            
End If
        
End If

    
End Sub




    
Public Sub Xml6(ByVal sender As ObjectByVal xml As String)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf Me.Xml6), New Object() {senderxml})
        Else
            Try
                
xml xml.Replace("""""'")
                Try
                    If ((
xml.IndexOf("<query xmlns='http://jabber.org/protocol/muc#admin'>") >= 0AndAlso (xml.IndexOf("affiliation='member'") >= 0)) Then
                        xml 
xml.Substring((xml.IndexOf("<item jid='") + 11))
                        
xml xml.Replace("' affiliation='member' /></query></iq>""").Replace("' affiliation='member' />""")
                        
xml xml.Replace("role='participant' />""")
                        
Me.meem Strings.Split(xml"<item jid='", -1CompareMethod.Binary)
                        
Me.ListBox3.Items.Clear()
                        
Dim i As Integer Me.meem.GetLowerBound(0)
                        Do While (
<= Me.meem.GetUpperBound(0))
                            
Me.ListBox3.Items.Add(Me.meem(i))
                            
LogInButton20.Text = ("Total member" Me.ListBox3.Items.Count)
                            
+= 1
                        Loop
                    End 
If
                Catch 
ex As Exception
                End 
Try
            Catch 
ex As Exception
            End 
Try
        
End If

    
End Sub
    
Public Sub Xml5(ByVal sender As ObjectByVal xml As String)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf Me.Xml5), New Object() {senderxml})
        Else
            Try
                
xml xml.Replace("""""'")
                Try
                    If ((
xml.IndexOf("<query xmlns='http://jabber.org/protocol/muc#admin'>") >= 0AndAlso (xml.IndexOf("affiliation='outcast'") >= 0)) Then
                        xml 
xml.Substring((xml.IndexOf("<item jid='") + 11))
                        
xml xml.Replace("' affiliation='outcast' /></query></iq>""").Replace("' affiliation='outcast' />""")
                        
xml xml.Replace("role='participant' />""")
                        
Me.mem Strings.Split(xml"<item jid='", -1CompareMethod.Binary)
                        
Me.ListBox2.Items.Clear()
                        
Dim i As Integer Me.mem.GetLowerBound(0)
                        Do While (
<= Me.mem.GetUpperBound(0))
                            
Me.ListBox2.Items.Add(Me.mem(i))
                            
LogInButton18.Text = ("Total ban" Me.ListBox2.Items.Count)
                            
+= 1
                        Loop
                    End 
If
                Catch 
ex As Exception
                End 
Try
            Catch 
ex As Exception
            End 
Try
        
End If

    
End Sub
    
Private Sub mesg(ByVal sender As ObjectByVal msg As Message)
        If 
MyBase.InvokeRequired True Then
            MyBase
.BeginInvoke(New MessageHandler(AddressOf mesg), New Object() {sendermsg})
        Else
            If 
msg.Type MessageType.groupchat Then
                LogInRichTextBox1
.AppendText(msg.From.Resource " : " msg.Body vbNewLine)
            
End If
        
End If
    
End Sub
    
Private Sub Xml3(ByVal sender As ObjectByVal a As String)
        
On Error Resume Next
        
If MyBase.InvokeRequired True Then
            MyBase
.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml3), New Object() {sendera})
        Else
            
Replace(a"""""'")
            If (
InStr(a"affiliation=")) <> 0 Then
                
If Not (InStr(a"type='groupchat'")) <> 0 Then
                    
If Not (InStr(a"role='none'")) <> 0 Then
                        
If Not (InStr(a"actor jid=")) <> 0 Then
                            Dim user 
As String
                            user 
a.Substring(a.IndexOf("jid='") + 5)
                            
user user.Substring(0user.IndexOf("@") - 0)

                            If 
user.ToString "admin" Then
                                
Return
                            
End If

                            
ListBox1.Items.Add(user)
                            
Label10.Text "User room : " ListBox1.Items.Count.ToString()
                        
End If
                    
End If
                
End If
            
End If
        
End If
    
End Sub
    
Private Sub Xml4(ByVal sender As ObjectByVal a As String)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf Me.Xml4), New Object() {RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(sender))), a})
        Else
            Try
                
Application.DoEvents()
                
a.ToLower
                a 
a.Replace("""""'")
                If (((
a.IndexOf(("@conference.nimbuzz.com/" Me.LogInUserTextBox3.Text "'"), StringComparison.OrdinalIgnoreCase) + 1) <> 0AndAlso ((a.IndexOf("ip/on"StringComparison.OrdinalIgnoreCase) + 1) <> 0)) Then
                    Me
.LogInCheckBox2.Checked True
                    emad
.Send(("<message to='" Me.room.Text "@conference.nimbuzz.com' type='groupchat' id='macoud'><body>Ban ip Start ✔ / حظر الايبي نشط ✔ </body></message>"))

                
End If
            Catch 
exception1 As Exception
                ProjectData
.SetProjectError(exception1)
                
Dim exception As Exception exception1
                ProjectData
.ClearProjectError()
            
End Try

            Try
                
Application.DoEvents()
                
a.ToLower
                a 
a.Replace("""""'")
                If (((
a.IndexOf(("@conference.nimbuzz.com/" Me.LogInUserTextBox3.Text "'"), StringComparison.OrdinalIgnoreCase) + 1) <> 0AndAlso ((a.IndexOf("ip/off"StringComparison.OrdinalIgnoreCase) + 1) <> 0)) Then
                    Me
.LogInCheckBox2.Checked False
                    
Try
                        
emad.Send(("<message to='" Me.room.Text "@conference.nimbuzz.com' type='groupchat' id='macoud'><body>Ban ip Stoped ✘ / حظر الايبي متوقف ✘</body></message>"))

                    Catch 
exception20 As Exception
                        ProjectData
.SetProjectError(exception20)
                        
Dim exception3 As Exception exception20
                        ProjectData
.ClearProjectError()
                        
ProjectData.ClearProjectError()
                    
End Try
                
End If
            Catch 
exception21 As Exception
                ProjectData
.SetProjectError(exception21)
                
Dim exception4 As Exception exception21
                ProjectData
.ClearProjectError()
            
End Try
        
End If
    
End Sub
    
Private Sub dc(ByVal sender As Object)
        If 
MyBase.InvokeRequired True Then
            MyBase
.BeginInvoke(New ObjectHandler(AddressOf dc), New Object() {sender})
        Else
            
'Dc Contact id
            LogInUserTextBox1.BackColor = Color.Yellow
            LogInUserTextBox2.BackColor = Color.Yellow
            Label8.Visible = True
            Label6.Visible = False
            Label7.Visible = False
            If LogInCheckBox1.Checked = True Then  '
Anti dc id
                emad 
= New agsXMPP.XmppClientConnection
                With emad
                    
.Server "nimbuzz.com"
                    
.ConnectServer "o.nimbuzz.com"
                    
.Open(LogInUserTextBox1.TextLogInUserTextBox2.Text'id + password
                    .Resource = ("Nimbuzz_Symbian" & Me.Generatecode())
                    .Status = ("TEST")
                    .ClientVersion = ("1.0")
                    .Port = "5222"
                    AddHandler .OnClose, AddressOf dc
                    AddHandler .OnReadXml, AddressOf Xml4
                    AddHandler .OnLogin, AddressOf loged
                    AddHandler .OnAuthError, AddressOf wrong
                End With
            End If
        End If
    End Sub
    Private Sub loged(ByVal sender As Object)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf loged), New Object() {sender})
        Else
            '
loged Contact id
            LogInUserTextBox1
.BackColor Color.LimeGreen
            LogInUserTextBox2
.BackColor Color.LimeGreen
            Label6
.Visible True
            Label7
.Visible False
            Label8
.Visible False

        End 
If
    
End Sub
    
Private Sub wrong(ByVal sender As ObjectByVal e As agsXMPP.Xml.Dom.Element)
        If 
MyBase.InvokeRequired True Then
            MyBase
.BeginInvoke(New agsXMPP.XmppElementHandler(AddressOf wrong), New Object() {sendere})
        Else
            
'wrong Contact id
            LogInUserTextBox1.BackColor = Color.Red
            LogInUserTextBox2.BackColor = Color.Red
            Label7.Visible = True
            Label6.Visible = False
            Label8.Visible = False
        End If
    End Sub
    Public Function Generatecode() As Object
        Dim intRnd As Object
        Dim strName As Object
        Dim intNameLength As Object
        Dim intLenght As Object
        Dim strInputString As Object
        Dim inStep As Object
        strInputString = "1234567890"
        intLenght = Len(strInputString)
        intNameLength = 3
        Randomize()
        strName = ""
        For inStep = 1 To intNameLength
            intRnd = Int((intLenght * Rnd()) + 1)
            strName = strName & Mid(strInputString, intRnd, 1)
        Next
        Generatecode = strName
    End Function

    Private Sub LogInButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInButton4.Click
        emad.Send("<presence to='" + room.Text + "
@conference.nimbuzz.com/" + LogInUserTextBox1.Text + "'><x xmlns='http://jabber.org/protocol/muc'></x></presence>")
        
Timer1.Enabled True
    End Sub

    
Private Sub LogInButton2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton2.Click
        emad
.Close()
    
End Sub

    
Private Sub LogInButton3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton3.Click
        emad
.Send("<presence to='" room.Text "@conference.nimbuzz.com/imanking' type='unavailable'></presence>"'left room
        Timer1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Integer = 1
        i = Convert.ToInt32("1000")
        Me.Timer1.Interval = (i * 1000)
        emad.Send(("<message from='" + room.Text + "
@conference.nimbuzz.com/" + LogInUserTextBox1.Text + "' id='aaf1a' type='groupchat'><body> ✔ hide msg :D</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='#ffff441e'/></p></body></html></message> "))
    
End Sub

    
Private Sub LogInButton5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton5.Click
        
If (MessageBox.Show((Me.us.Text " kick you?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen

            emad
.Send(String.Concat(New String() {"<iq to='"room.Text"@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='none' nick='"Me.us.Text"'><reason>kicked</reason></item></query></iq>"}))
            
Label12.Text = (Me.us.Text " ↦ " " kicked")
        
End If
    
End Sub

    
Private Sub LogInButton6_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton6.Click
        
If (MessageBox.Show((Me.us.Text " Ban you?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<iq id=""o3d*"" to="""room.Text"@conference.nimbuzz.com"" type=""set""><query xmlns=""http://jabber.org/protocol/muc#admin""><item affiliation=""outcast"" jid="""Me.us.Text"@nimbuzz.com""/></query></iq>"}))
            
Label12.Text = (Me.us.Text " Bannd")
        
End If
    
End Sub

    
Private Sub LogInButton7_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton7.Click
        
If (MessageBox.Show((Me.us.Text " member you?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<iq id=""o3d*"" to="""room.Text"@conference.nimbuzz.com"" type=""set""><query xmlns=""http://jabber.org/protocol/muc#admin""><item affiliation=""member"" jid="""Me.us.Text"@nimbuzz.com""/></query></iq>"}))
            
Label12.Text = (Me.us.Text " ↦ " " member")
        
End If
    
End Sub

    
Private Sub LogInButton10_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton10.Click
        
If (MessageBox.Show((" Kick all room?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<message to='"room.Text"@conference.nimbuzz.com' type='groupchat' id='macoud'><body>/kick a</body></message>"}))
            
Label12.Text = ("Kicked all room")
        
End If
    
End Sub

    
Private Sub LogInButton9_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton9.Click
        
If (MessageBox.Show((" Ban all room?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<message to='"room.Text"@conference.nimbuzz.com' type='groupchat' id='macoud'><body>/ban a</body></message>"}))
            
Label12.Text = ("Bannd all room")
        
End If
    
End Sub

    
Private Sub LogInButton8_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton8.Click
        
If (MessageBox.Show(("Member all room?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<message to='"room.Text"@conference.nimbuzz.com' type='groupchat' id='macoud'><body>/mem a</body></message>"}))
            
Label12.Text = ("Member all room")
        
End If
    
End Sub

    
Private Sub LogInButton16_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton16.Click
        
If (MessageBox.Show((Me.us.Text " Visitor you?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<iq to='"room.Text"@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='visitor' nick='"Me.us.Text"'/></query></iq>"}))
            
Label12.Text = (Me.us.Text "visitor")
        
End If
    
End Sub

    
Private Sub LogInButton15_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton15.Click
        
If (MessageBox.Show((Me.us.Text " Make Owner?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<iq id=""o3d*"" to="""room.Text"@conference.nimbuzz.com"" type=""set""><query xmlns=""http://jabber.org/protocol/muc#admin""><item affiliation=""owner"" jid="""Me.us.Text"@nimbuzz.com""/></query></iq>"}))
            
Label12.Text = (Me.us.Text " ↦ " "Owner")
        
End If
    
End Sub

    
Private Sub LogInButton14_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton14.Click
        
If (MessageBox.Show((Me.us.Text "none you?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<iq to='"room.Text"@conference.nimbuzz.com' type='set' id='admin_modify'><query xmlns='http://jabber.org/protocol/muc#admin'><item jid='"Me.us.Text"@nimbuzz.com' affiliation='none'/></query></iq> "}))
            
Label12.Text = (Me.us.Text "None")
        
End If
    
End Sub

    
Private Sub LogInButton13_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton13.Click
        
If (MessageBox.Show((Me.us.Text "Unvisitor you?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<iq to='"room.Text"@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='participant' nick='"us.Text"'/></query></iq>"}))
            
Label12.Text = (Me.us.Text " ↦ " "Unvisitor")
        
End If
    
End Sub

    
Private Sub LogInButton12_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton12.Click
        
If (MessageBox.Show((Me.us.Text " Make Admin?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<iq id=""o3d*"" to="""room.Text"@conference.nimbuzz.com"" type=""set""><query xmlns=""http://jabber.org/protocol/muc#admin""><item affiliation=""admin"" jid="""Me.us.Text"@nimbuzz.com""/></query></iq>"}))
            
Label12.Text = (Me.us.Text " ↦ " "Admin")
        
End If
    
End Sub

    
Private Sub LogInButton11_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton11.Click
        
If (MessageBox.Show((Me.us.Text " Band ip?"), "Are you sure ?"MessageBoxButtons.YesNoMessageBoxIcon.Question) = DialogResult.YesThen
            emad
.Send(String.Concat(New String() {"<message to='"room.Text"@conference.nimbuzz.com' type='groupchat' id='macoud'><body>/ban f "us.Text"</body></message>"}))
            
Label12.Text = (Me.us.Text " ↦ " "Bannd ip")
        
End If
    
End Sub

    
Private Sub ListBox1_MouseDoubleClick(ByVal sender As ObjectByVal e As MouseEventArgs)
        
Dim itemIndex As Integer Me.ListBox1.IndexFromPoint(e.Location)
        If 
itemIndex <> System.Windows.Forms.ListBox.NoMatches Then
            us
.Text ""
            
us.Text ListBox1.Items(itemIndex)
        
End If
    
End Sub

    
Private Sub LogInButton17_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton17.Click
        
Try
            
emad.Send("<message to='" room.Text "@conference.nimbuzz.com' type='groupchat'><body>" LogInUserTextBox7.Text "</body></message>")
            
LogInUserTextBox7.Text ""
        
Catch ex As Exception
        End 
Try
    
End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        LogInUserTextBox7
.Text &= ":-SS" sender.text
    End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        LogInUserTextBox7
.Text &= "(a)" sender.text
    End Sub

    
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click
        LogInUserTextBox7
.Text &= ":@" sender.text
    End Sub

    
Private Sub Button22_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button22.Click
        LogInUserTextBox7
.Text &= "" sender.text
    End Sub
    
Private Sub ListBox2_MouseDoubleClick(ByVal sender As ObjectByVal e As MouseEventArgsHandles ListBox2.MouseDoubleClick
        Dim itemIndex 
As Integer Me.ListBox2.IndexFromPoint(e.Location)
        If 
itemIndex <> System.Windows.Forms.ListBox.NoMatches Then
            LogInUserTextBox8
.Text ""
            
LogInUserTextBox8.Text ListBox2.Items(itemIndex)
        
End If
    
End Sub

    
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ListBox1.SelectedIndexChanged

    End Sub

    
Private Sub LogInButton18_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton18.Click
        emad
.Send(("<iq type='get' to='" Me.room.Text "@conference.nimbuzz.com' id='qip_1026'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' /></query></iq>"))
    
End Sub

    
Private Sub LogInButton19_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton19.Click
        Dim close 
As String
        close 
MessageBox.Show("Do you want to give this user member or none" ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "yes = member" ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "No = none " ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "هل تريد اعطاء هذا المستخدم عضوية" ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "اذا اخترت yes يعطي عضوية" ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "اذا اخترت no يعطي بلا عضوية""{Information}"MessageBoxButtons.YesNoCancelMessageBoxIcon.InformationMessageBoxDefaultButton.Button2)
        If 
close MsgBoxResult.No Then
            emad
.Send(String.Concat(New String() {"<iq to='"room.Text"@conference.nimbuzz.com' type='set' id='admin_modify'><query xmlns='http://jabber.org/protocol/muc#admin'><item jid='"Me.LogInUserTextBox8.Text"' affiliation='none'/></query></iq> "}))
            
NotifyIcon1.ShowBalloonTip(5000"Doctor room nimbuzz V.1""Now none" "↦" LogInUserTextBox8.TextToolTipIcon.Info)
        Else
            
emad.Send(String.Concat(New String() {"<iq id=""o3d*"" to="""room.Text"@conference.nimbuzz.com"" type=""set""><query xmlns=""http://jabber.org/protocol/muc#admin""><item affiliation=""member"" jid="""Me.LogInUserTextBox8.Text"""/></query></iq>"}))
            
NotifyIcon1.ShowBalloonTip(5000"Doctor room nimbuzz V.1""Now member" "↦" LogInUserTextBox8.TextToolTipIcon.Info)
        
End If
    
End Sub

    
Private Sub LogInButton20_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInButton20.Click
        emad
.Send(("<iq type='get' to='" Me.room.Text "@conference.nimbuzz.com' id='qip_1026'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='member' /></query></iq>"))
    
End Sub

    
Private Sub LogInCheckBox2_CheckedChanged(ByVal sender As System.ObjectHandles LogInCheckBox2.CheckedChanged
        
If LogInCheckBox2.Checked True Then
            Timer1
.Enabled True

        
Else
            
Timer1.Enabled False
        End 
If

    
End Sub

    
Private Sub ListBox3_MouseDoubleClick(ByVal sender As ObjectByVal e As MouseEventArgsHandles ListBox3.MouseDoubleClick
        Dim itemIndex 
As Integer Me.ListBox3.IndexFromPoint(e.Location)
        If 
itemIndex <> System.Windows.Forms.ListBox.NoMatches Then
            LogInUserTextBox9
.Text ""
            
LogInUserTextBox9.Text ListBox3.Items(itemIndex)
        
End If
    
End Sub

    
Private Function SplitXML(ByVal FirstInt As StringByVal LastInt As StringByVal SplitFromXML As String) As String
        Dim num 
As Integer Strings.InStr(1SplitFromXMLFirstIntCompareMethod.Binary)
        If (
num 0Then
            Dim num2 
As Integer Strings.InStr((num Strings.Len(FirstInt)), SplitFromXMLLastIntCompareMethod.Binary)
            If (
num2 0Then
                Dim length 
As Integer = (num2 - (num Strings.Len(FirstInt)))
                Return 
Strings.Mid(SplitFromXML, (num Strings.Len(FirstInt)), length)
            
End If
            Return 
""
        
End If
        Return 
""
    
End Function
    Private 
Sub Xml7(ByVal sender As ObjectByVal a As String)
        If 
MyBase.InvokeRequired Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf Me.Xml7), New Object() {RuntimeHelpers.GetObjectValue(sender), a})
        Else
            
Strings.Replace(a"""""'"1, -1CompareMethod.Binary)
            
Me.a1 a
            
If (Strings.InStr(a"<item role='moderator'"CompareMethod.Binary) > 0Then

            End 
If
            If (
Strings.InStr(a"<item role='participant'"CompareMethod.Binary) > 0Then

            End 
If
            If (
Strings.InStr(Me.a1" type='unavailable'"CompareMethod.Binary) > 0Then

            End 
If
            If (
Strings.InStr(Me.a1"' affiliation='outcast'"CompareMethod.Text) <> 0Then
                Dim str11 
As String Me.SplitXML("' nick='""'>"Me.a1)
                
Dim text As String Me.SplitXML("<actor jid='""@nimbuzz.com' nick='"Me.a1)
                
RichTextBox1.SelectionColor Color.Gold
                RichTextBox1
.AppendText(("[" Conversions.ToString(DateAndTime.TimeOfDay) & "] "))
                
RichTextBox1.SelectionColor Color.Green
                RichTextBox1
.AppendText((str11 " Ban By: "))
                
RichTextBox1.SelectionColor Color.Orange
                RichTextBox1
.AppendText([text])
                
RichTextBox1.AppendText(ChrW(13) & ChrW(10))
                
RichTextBox1.SelectionStart RichTextBox1.Text.Length
                RichTextBox1
.ScrollToCaret()
            
End If
            If (
Strings.InStr(Me.a1"' role='none'"CompareMethod.Text) <> 0Then
                Dim str13 
As String Me.SplitXML("' nick='""'>"Me.a1)
                
Dim str12 As String Me.SplitXML("<actor jid='""@nimbuzz.com' nick='"Me.a1)
                
RichTextBox1.SelectionColor Color.Gold
                RichTextBox1
.AppendText(("[" Conversions.ToString(DateAndTime.TimeOfDay) & "] "))
                
RichTextBox1.SelectionColor Color.Green
                RichTextBox1
.AppendText((str13 " Kick By: "))
                
RichTextBox1.SelectionColor Color.Orange
                RichTextBox1
.AppendText(str12)
                
RichTextBox1.AppendText(ChrW(13) & ChrW(10))
                
RichTextBox1.SelectionStart RichTextBox1.Text.Length
                RichTextBox1
.ScrollToCaret()
            
End If
            If (
Strings.InStr(Me.a1"<actor nick='"CompareMethod.Text) <> 0Then
                Dim str14 
As String Me.SplitXML("' nick='""'>"Me.a1)
                
RichTextBox1.SelectionColor Color.Gold
                RichTextBox1
.AppendText(("[" Conversions.ToString(DateAndTime.TimeOfDay) & "] "))
                
RichTextBox1.SelectionColor Color.Green
                RichTextBox1
.AppendText((str14 " Kick By: "))
                
RichTextBox1.SelectionColor Color.Orange
                RichTextBox1
.AppendText(room.Text)
                
RichTextBox1.AppendText(ChrW(13) & ChrW(10))
                
RichTextBox1.SelectionStart RichTextBox1.Text.Length
                RichTextBox1
.ScrollToCaret()
            
End If
            If (
Strings.InStr(a"</last></set></query></iq>"CompareMethod.Binary) > 0Then
            End 
If

        
End If
    
End Sub

    
Private Sub LogInOnOffSwitch5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInOnOffSwitch5.Click
        
If Me.LogInOnOffSwitch5.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
            emad
.Send(String.Concat(New String() {"<iq to='"Me.room.Text"@conference.nimbuzz.com' type='set' id='setform'><query xmlns='http://jabber.org/protocol/muc#owner'><x xmlns='jabber:x:data' type='submit'><field var='muc#roomconfig_roomname' type='text-single'><value>"Me.room.Text"</value></field><field var='muc#roomconfig_roomdesc' type='text-single'><value></value></field><field var='muc#roomconfig_persistentroom' type='boolean'><value>1</value></field><field var='muc#roomconfig_passwordprotectedroom' type='boolean'><value>0</value></field><field var='muc#roomconfig_roomsecret' type='text-single'><value></value></field><field var='muc#roomconfig_lang' type='text-single'><value></value></field><field var='muc#roomconfig_location' type='text-single'><value></value></field><field var='muc#roomconfig_location-type' type='list-single'><value>worldwide</value></field><field var='muc#roomconfig_membersonly' type='boolean'><value>1</value></field><field var='muc#roomconfig_pnvonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_maxusers' type='list-single'><value>25</value></field></x></query></iq> "}))
            
MsgBox(("" Me.room.Text " Member only Start 【✔】"))
        Else
            
Me.LogInOnOffSwitch5.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.NotToggled
            emad
.Send(String.Concat(New String() {"<iq to='"Me.room.Text"@conference.nimbuzz.com' type='set' id='setform'><query xmlns='http://jabber.org/protocol/muc#owner'><x xmlns='jabber:x:data' type='submit'><field var='muc#roomconfig_roomname' type='text-single'><value>"Me.room.Text"</value></field><field var='muc#roomconfig_roomdesc' type='text-single'><value></value></field><field var='muc#roomconfig_persistentroom' type='boolean'><value>1</value></field><field var='muc#roomconfig_passwordprotectedroom' type='boolean'><value>0</value></field><field var='muc#roomconfig_roomsecret' type='text-single'><value></value></field><field var='muc#roomconfig_lang' type='text-single'><value></value></field><field var='muc#roomconfig_location' type='text-single'><value></value></field><field var='muc#roomconfig_location-type' type='list-single'><value>worldwide</value></field><field var='muc#roomconfig_membersonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_pnvonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_maxusers' type='list-single'><value>25</value></field></x></query></iq> "}))
            
MsgBox(("" Me.room.Text " Member only Stoped【✘】"))
        
End If
    
End Sub

    
Private Sub LogInOnOffSwitch6_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInOnOffSwitch6.Click
        
If Me.LogInOnOffSwitch6.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then

            emad
.Send(String.Concat(New String() {"<iq to='"Me.room.Text"@conference.nimbuzz.com' type='set' id='setform'><query xmlns='http://jabber.org/protocol/muc#owner'><x xmlns='jabber:x:data' type='submit'><field var='muc#roomconfig_roomname' type='text-single'><value>"Me.room.Text"</value></field><field var='muc#roomconfig_roomdesc' type='text-single'><value></value></field><field var='muc#roomconfig_persistentroom' type='boolean'><value>1</value></field><field var='muc#roomconfig_passwordprotectedroom' type='boolean'><value>0</value></field><field var='muc#roomconfig_roomsecret' type='text-single'><value></value></field><field var='muc#roomconfig_lang' type='text-single'><value></value></field><field var='muc#roomconfig_location' type='text-single'><value></value></field><field var='muc#roomconfig_location-type' type='list-single'><value>worldwide</value></field><field var='muc#roomconfig_membersonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_pnvonly' type='boolean'><value>1</value></field><field var='muc#roomconfig_maxusers' type='list-single'><value>25</value></field></x></query></iq>"}))
            
MsgBox(("" Me.room.Text " Check mobile number Success【✔】"))
        Else
            
Me.LogInOnOffSwitch6.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.NotToggled
            emad
.Send(String.Concat(New String() {"<iq to='"Me.room.Text"@conference.nimbuzz.com' type='set' id='setform'><query xmlns='http://jabber.org/protocol/muc#owner'><x xmlns='jabber:x:data' type='submit'><field var='muc#roomconfig_roomname' type='text-single'><value>"Me.room.Text"</value></field><field var='muc#roomconfig_roomdesc' type='text-single'><value></value></field><field var='muc#roomconfig_persistentroom' type='boolean'><value>1</value></field><field var='muc#roomconfig_passwordprotectedroom' type='boolean'><value>0</value></field><field var='muc#roomconfig_roomsecret' type='text-single'><value></value></field><field var='muc#roomconfig_lang' type='text-single'><value></value></field><field var='muc#roomconfig_location' type='text-single'><value></value></field><field var='muc#roomconfig_location-type' type='list-single'><value>worldwide</value></field><field var='muc#roomconfig_membersonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_pnvonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_maxusers' type='list-single'><value>25</value></field></x></query></iq>"}))
            
MsgBox(("" Me.room.Text " Check mobile number Failure【✘】"))
        
End If
    
End Sub



    
Private Sub LogInRadioButton1_CheckedChanged(ByVal sender As System.ObjectHandles LogInRadioButton1.CheckedChanged

        emad
.Send("<iq to='" room.Text "@conference.nimbuzz.com' type='set' id='setform'><query xmlns='http://jabber.org/protocol/muc#owner'><x xmlns='jabber:x:data' type='submit'><field var='muc#roomconfig_roomname' type='text-single'><value>" room.Text "</value></field><field var='muc#roomconfig_roomdesc' type='text-single'><value></value></field><field var='muc#roomconfig_persistentroom' type='boolean'><value>1</value></field><field var='muc#roomconfig_passwordprotectedroom' type='boolean'><value>0</value></field><field var='muc#roomconfig_roomsecret' type='text-single'><value></value></field><field var='muc#roomconfig_lang' type='text-single'><value>ar</value></field><field var='muc#roomconfig_location' type='text-single'><value></value></field><field var='muc#roomconfig_location-type' type='list-single'><value>worldwide</value></field><field var='muc#roomconfig_membersonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_pnvonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_maxusers' type='list-single'><value>25</value></field></x></query></iq>")
    
End Sub

    
Private Sub LogInRadioButton2_CheckedChanged(ByVal sender As System.ObjectHandles LogInRadioButton2.CheckedChanged
        emad
.Send("<iq to='" room.Text "@conference.nimbuzz.com' type='set' id='setform'><query xmlns='http://jabber.org/protocol/muc#owner'><x xmlns='jabber:x:data' type='submit'><field var='muc#roomconfig_roomname' type='text-single'><value>" room.Text "</value></field><field var='muc#roomconfig_roomdesc' type='text-single'><value></value></field><field var='muc#roomconfig_persistentroom' type='boolean'><value>1</value></field><field var='muc#roomconfig_passwordprotectedroom' type='boolean'><value>0</value></field><field var='muc#roomconfig_roomsecret' type='text-single'><value></value></field><field var='muc#roomconfig_lang' type='text-single'><value>en</value></field><field var='muc#roomconfig_location' type='text-single'><value></value></field><field var='muc#roomconfig_location-type' type='list-single'><value>worldwide</value></field><field var='muc#roomconfig_membersonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_pnvonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_maxusers' type='list-single'><value>25</value></field></x></query></iq>")
    
End Sub

    
Private Sub LogInOnOffSwitch9_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles LogInOnOffSwitch9.Click
        
If Me.LogInOnOffSwitch9.Toggled Doctor_room_nimbuzz_V._1.LogInOnOffSwitch.Toggles.Toggled Then
            emad
.Send("<iq to='" room.Text "@conference.nimbuzz.com' type='set' id='setform'><query xmlns='http://jabber.org/protocol/muc#owner'><x xmlns='jabber:x:data' type='submit'><field var='muc#roomconfig_roomname' type='text-single'><value>" room.Text "</value></field><field var='muc#roomconfig_roomdesc' type='text-single'><value></value></field><field var='muc#roomconfig_persistentroom' type='boolean'><value>1</value></field><field var='muc#roomconfig_passwordprotectedroom' type='boolean'><value>0</value></field><field var='muc#roomconfig_roomsecret' type='text-single'><value></value></field><field var='muc#roomconfig_lang' type='text-single'><value>ar</value></field><field var='muc#roomconfig_location' type='text-single'><value></value></field><field var='muc#roomconfig_location-type' type='list-single'><value>worldwide</value></field><field var='muc#roomconfig_membersonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_pnvonly' type='boolean'><value>0</value></field><field var='muc#roomconfig_maxusers' type='list-single'><value>25</value></field></x></query></iq>")
            
MsgBox(("" Me.room.Text " The room has become in search of all the world【✔】"))
        
End If
    
End Sub
End 
Class 

وأيضا ليس من السهل ايجاد الحل لك لكن انصحك بالبحث عن How make bad word filter
ستجد كثير من الدوال استخدم ما يرضيك
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#9
If Me.checkBox19.Checked Then
Dim strArray12 As String() = Me.richTextBox9.Text.Split(New Char() { "#"c })
Dim num10 As Integer = strArray12.GetLowerBound(0)
Do While (num10 <= strArray12.GetUpperBound(0))
If msg.Body.ToLower.Contains(strArray12(num10).ToString) Then 'هنا المشكلة بهذا لسطر
If Me.checkBox32.Checked Then
Form1.apple.Send(String.Concat(New String() { "<iq xmlns='jabber:client' to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='set' id='apple'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='", msg.From.Resource.Trim, "@nimbuzz.com' /></query></iq>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Khafe sho Angry</body></message>" }))
End If
If Me.checkBox25.Checked Then
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>/ban f ", msg.From.Resource.Trim, "</body></message>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Boro Gom Sho Biron Angry IP Ban Shod Tongue</body></message>" }))
End If
If Me.checkBox31.Checked Then
Form1.apple.Send(String.Concat(New String() { "<iq to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='none' nick='", msg.From.Resource.Trim, "'><reason>: loopeto</reason></item></query></iq>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Boro Birun ye Havayi Bokhor Biya Big Grin</body></message>" }))
End If
If Me.checkBox30.Checked Then
Form1.apple.Send(String.Concat(New String() { "<iq type='set' to='", Me.textBox6.Text, "@conference.nimbuzz.com' id='badbuzz'><query xmlns='http://jabber.org/protocol/muc#admin'><item nick='", msg.From.Resource.Trim, "' role='visitor' /></query></iq>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Sedat Chera Dar nmiyad ? Big Grin</body></message>" }))
End If
End If
num10 += 1
Loop
End If

المشروع هنا بشكل كامل كل وانا حطيت فيه الايميل والباسورد
كل ماعليك هو تسجيل دخول ومن ثم Join
وبضغط
ع Filter
لتفعيل الكود
تظهر المشكلة
رابط المشروع بالكامل وهو عبارة عن نموذج
http://up.top4top.net/downloadf-315foztt1-rar.html
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 102 منذ 6 ساعة مضت
آخر رد: مصمم هاوي
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 126 12-03-24, 10:37 AM
آخر رد: strongriseman
  تعديل كود ارسال صورة الى الواتس new_programer 0 58 12-03-24, 03:12 AM
آخر رد: new_programer
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 86 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 129 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
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 103 22-02-24, 12:09 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 201 19-01-24, 12:42 PM
آخر رد: Taha Okla

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


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