from1

 Private Sub chat(ByVal sender As Object, msg As Message)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New MessageHandler(AddressOf chat), New Object() {sender, msg})
        Else
            On Error Resume Next
            If msg.Type = MessageType.chat AndAlso msg.HasTag("body") Then
                Monitor.AppendText(msg.From.User + "  :  " + msg.Body.ToString() + "  [" + DateAndTime.Now.ToLongTimeString() + "]" + vbNewLine)
                If jb.Checked = True Then
                    If msg.Body.ToLower() = "j" Or msg.Body.ToLower() = "joke" Or msg.Body.ToLower() = "ج" Or msg.Body.ToLower() = "جوک" Then
                        Dim rnd As New Random
                        joke = txtjoke.Text.Split("#")
                        Dim ms1 As String = joke(rnd.Next(joke.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                ''''''''''''''
                If lb.Checked = True Then
                    If msg.Body.ToLower() = "l" Or msg.Body.ToLower() = "love" Or msg.Body.ToLower() = "ل" Or msg.Body.ToLower() = "لاو" Then
                        Dim rnd As New Random
                        love = txtlove.Text.Split("#")
                        Dim ms1 As String = love(rnd.Next(love.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                '''''''''''''
                If fb.Checked = True Then
                    If msg.Body.ToLower() = "f" Or msg.Body.ToLower() = "fall" Or msg.Body.ToLower() = "ف" Or msg.Body.ToLower() = "فال" Then
                        Dim rnd As New Random
                        fall = txtfall.Text.Split("#")
                        Dim ms1 As String = fall(rnd.Next(fall.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                ''''''''''''''
                If mb.Checked = True Then
                    If msg.Body.ToLower() = "m" Or msg.Body.ToLower() = "music" Or msg.Body.ToLower() = "م" Or msg.Body.ToLower() = "موزیک" Then
                        Dim rnd As New Random
                        music = txtmusic.Text.Split("#")
                        Dim ms1 As String = music(rnd.Next(music.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                '''''''''''''
                If pb.Checked = True Then
                    If msg.Body.ToLower() = "p" Or msg.Body.ToLower() = "pic" Or msg.Body.ToLower() = "ع" Or msg.Body.ToLower() = "عکس" Then
                        Dim rnd As New Random
                        pic = txtpic.Text.Split("#")
                        Dim ms1 As String = pic(rnd.Next(pic.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                '''''''''''''
                If ps.Checked = True Then
                    If msg.Body.ToLower() = "pc" Or msg.Body.ToLower() = "pc soft" Or msg.Body.ToLower() = "پی سی" Or msg.Body.ToLower() = "کامپیوتر" Then
                        Dim rnd As New Random
                        pc = txtpc.Text.Split("#")
                        Dim ms1 As String = pc(rnd.Next(pc.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                '''''''''''''
                If ioss.Checked = True Then
                    If msg.Body.ToLower() = "ios" Or msg.Body.ToLower() = "ios soft" Or msg.Body.ToLower() = "ای او اس" Or msg.Body.ToLower() = "برنامه ios" Then
                        Dim rnd As New Random
                        ios = txtios.Text.Split("#")
                        Dim ms1 As String = ios(rnd.Next(ios.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                ''''''''''''
                If mb.Checked = True Then
                    If msg.Body.ToLower() = "mob" Or msg.Body.ToLower() = "mobile" Or msg.Body.ToLower() = "soft mob" Or msg.Body.ToLower() = "موبایل" Then
                        Dim rnd As New Random
                        mob = txtmob.Text.Split("#")
                        Dim ms1 As String = mob(rnd.Next(mob.Length))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, ms1))
                    End If
                End If
                '''''''''''''''''''
                If msg.Body.ToLower().StartsWith("yav/") Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Yahoo Avatar : " + (msg.Body.Replace("yav/", "")) + "" + vbNewLine + "http://img.msg.yahoo.com/avatar.php?yids=" + (msg.Body.ToLower().Replace("yav/", ""))))
                End If
                If msg.Body.ToLower().StartsWith("fav/") Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "FaceBook Avatar : " + (msg.Body.Replace("fav/", "")) + "" + vbNewLine + "http://graph.facebook.com/" + (msg.Body.ToLower().Replace("fav/", "")) + "/picture"))
                End If
                If msg.Body.ToLower().StartsWith("tav/") Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Twitter Avatar : " + (msg.Body.Replace("tav/", "")) + "" + vbNewLine + "http://twitavatar.appspot.com/" + (msg.Body.ToLower().Replace("tav/", "")) + ".jpg"))
                End If
                If msg.Body.ToLower().StartsWith("nav/") Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Nimbuzz Avatar : " + (msg.Body.Replace("nav/", "")) + "" + vbNewLine + "http://avatar.nimbuzz.com/getAvatar?jid=" + (msg.Body.ToLower().Replace("nav/", "")) + "@nimbuzz.com"))
                End If
                If msg.Body.ToLower() = "time" Or msg.Body.ToLower() = "زمان" Then
                    Dim dat As DateTime
                    dat = DateTime.Now
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Current Time :" + vbNewLine + "" + dat))
                End If
                '''''''''''''
                If aan.Checked = True Then
                    For i = 0 To anslist.Rows.Count - 1
                        If msg.Body.ToLower() = anslist.Rows(i).Cells(0).Value.ToString() Then
                            Dim result As String = anslist.Rows(i).Cells(1).Value.ToString()
                            meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, result))
                            Thread.Sleep(1000)
                        End If
                    Next
                End If
                '''''''''''''
                If gs.Checked = True Then
                    If msg.Body.ToLower().StartsWith("gs/") Then
                        keyw = msg.Body.ToLower().Replace("gs/", "")
                        gsearch()
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, RichTextBox1.Text))
                        RichTextBox1.Clear()
                    End If
                End If
                '''''''''''

                ''''''''''''
                If nnm.Checked = True Then
                    If msg.Body.ToLower().StartsWith("nick/") Then
                        Dim nic As String = msg.Body.ToLower().Replace("nick/", "")
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Nick Names For : " + nic + vbNewLine + vbNewLine + "←◙◦☺☼" + nic + "☼☺◦◙→" + vbNewLine + "★ϟ★ϟ★" + nic + "★ϟ★ϟ★" + vbNewLine + "☼∩☼∩☼" + nic + "☼∩☼∩☼" + vbNewLine + "▄ █ ▄ █ ▓" + nic + "▓ █ ▄ █ ▄" + vbNewLine + "●๋•ミ★" + nic + "★彡●๋●" + vbNewLine + "→✘▓▓" + nic + "▓▓✘←" + vbNewLine + "ॐ♥♜♛" + nic + "♜♚♥ॐ" + vbNewLine + "₡₪↯♥" + nic + "♥↯₪₡" + vbNewLine + "═◦∞☆" + nic + "☆∞◦═" + vbNewLine + "▀▄▀▄▀▄" + nic + "▄▀▄▀▄▀" + vbNewLine + "•°¯`••" + nic + "••´¯°•" + vbNewLine + "§.•´¨'°÷•..×" + nic + "×,.•´¨'°÷•..§" + vbNewLine + "◄█◙◙█▀" + nic + "▀█◙◙█►" + vbNewLine + "♫ ♪♪" + nic + "♪♪ ♫" + vbNewLine + "╞☺♀▓▒░►♣♠" + nic + "♠♣◄░▒▓♀☺╡" + vbNewLine + "←(☻_.•°``°•" + nic + "•°``°•._☻)→" + vbNewLine + "╔════" + nic + "════╗" + vbNewLine + "♥•°``°•♥" + nic + "♥•°``°•♥" + vbNewLine + "║═☻◘‼↔" + nic + "↔‼◘☻═║" + vbNewLine))
                    End If
                End If
                '''''''''''
                If gru.Checked = True Then
                    If msg.Body.ToLower().StartsWith("gru/") Then
                        logingrabber()
                        targetuser = msg.From.User
                        targetroom = msg.Body.ToLower().Replace("gru/", "")
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Please Wait ... !!!"))
                    End If
                End If
                '''''''''''

                ''''''''''
                If lc.Checked = True Then
                    If msg.Body.ToLower().StartsWith("love/") Then
                        Dim rnd As New Random
                        Dim st As String = Convert.ToString(rnd.Next(10, 100))
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Meghdare Eshghe Beyne " + msg.Body.ToLower().Replace("love/", "").Replace("/", " Va ") + " " + st + " % Mibashad ."))
                    End If
                End If
                ''''''''''
                If gp.Checked = True Then
                    If msg.Body.ToLower().StartsWith("p/") Then
                        msgfrom = msg.From.ToString()
                        meti.Send("<iq to='" + msg.Body.Replace("p/", "") + "@nimbuzz.com' type='get' id='amirslr'><query xmlns='http://jabber.org/protocol/profile'/></iq>")
                    End If
                End If
                ''''''''''''
                If msg.Body.ToLower().StartsWith("code/") Then
                    Dim capa As String = msg.Body.ToLower().Replace("code/", "")
                    graber.Send("<message to='" + targetroom + "@conference.nimbuzz.com' type='groupchat'><body>" + capa + "</body></message>")
                End If
                ''''''''''''''
                If msg.Body.ToLower() = "help" Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, txthelp1.Text))
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, txthelp2.Text))
                End If
                ''''''''''''''
                If msg.Body.ToLower().StartsWith("anti/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If saad.Checked = True Then
                        If g.Length = 6 Then
                            Dim adver As New AntiAdvertiser
                            adver.LoginAntiAdvertiser(g(1), g(2), g(3), g(4), g(5), msg.From.User)
                        End If
                    End If
                End If
                ''''''''''''''
                If msg.Body.ToLower().StartsWith("advertise/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If sad.Checked = True Then
                        If g.Length = 6 Then
                            Dim adver As New Advertiser
                            adver.LoginAdvertiser(g(1), g(2), g(3), g(4), g(5), msg.From.User)
                        End If
                    End If
                End If
                ''''''''''''''
                If msg.Body.ToLower().StartsWith("full/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If sfb.Checked = True Then
                        If g.Length = 6 Then
                            Dim full As New FullBoter
                            full.LoginFullBot(g(1), g(2), g(3), g(4), g(5), msg.From.User)
                        End If
                    End If
                End If
                '''''''''''''
                If msg.Body.ToLower().StartsWith("pro/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If sah.Checked = True Then
                        If g.Length = 7 Then
                            Dim prot As New Protector
                            prot.LoginProtector(g(1), g(2), g(3), g(4), g(5), g(6), msg.From.User)
                        End If
                    End If
                End If
                '''''''''''''
                If msg.Body.ToLower().StartsWith("dead/") Then
                    If sdi.Checked = True Then
                        Dim k As String() = msg.Body.ToLower().Split("/")
                        Dim dead As New Deader
                        dead.LoginDead(k(1), k(2), k(3), k(4), msg.From.User)
                    End If
                End If

                ''''''''''''
                If msg.Body.ToLower().StartsWith("s2a/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If ss2a.Checked = True Then
                        If g.Length = 6 Then
                            Dim se As New S2A
                            se.LoginS2A(g(1), g(2), g(3), g(4), g(5), msg.From.User)
                        End If
                    End If
                End If
                '''''''''''''
                If msg.Body.ToLower().StartsWith("joke/") Then
                    Dim g As String() = msg.Body.ToLower().Split("/")
                    If sjb.Checked = True Then
                        If g.Length = 5 Then
                            Dim joko As New Joker
                            joko.LoginJoker(g(1), g(2), g(3), g(4), msg.From.User)
                        End If
                    End If
                End If
                '''''''''''''
            End If
            For i = 0 To masters.Rows.Count - 1
                If msg.From.User = masters.Rows(i).Cells(0).Value.ToString() Then
                    ''LOVE BOT
                    If msg.Body.ToLower() = "lb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Love Bot Active !"))
                        lb.Checked = True
                    End If
                    If msg.Body.ToLower() = "lb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Love Bot Deactive !"))
                        lb.Checked = False
                    End If
                    ''JOKE BOT
                    If msg.Body.ToLower() = "jb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Joke Bot Active !"))
                        jb.Checked = True
                    End If
                    If msg.Body.ToLower() = "jb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Joke Bot Deactive !"))
                        jb.Checked = False
                    End If
                    ''FALL BOT
                    If msg.Body.ToLower() = "fb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Fall Bot Active !"))
                        fb.Checked = True
                    End If
                    If msg.Body.ToLower() = "fb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Fall Bot Deactive !"))
                        fb.Checked = False
                    End If
                    ''MUSIC BOT
                    If msg.Body.ToLower() = "mb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Music Bot Active !"))
                        mb.Checked = True
                    End If
                    If msg.Body.ToLower() = "mb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Music Bot Deactive !"))
                        mb.Checked = False
                    End If
                    ''PICTURE BOT
                    If msg.Body.ToLower() = "pb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Picture Bot Active !"))
                        pb.Checked = True
                    End If
                    If msg.Body.ToLower() = "pb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Picture Bot Deactive !"))
                        pb.Checked = False
                    End If
                    ''PC SOFTWARES
                    If msg.Body.ToLower() = "ps/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "PC Softwares Bot Active !"))
                        ps.Checked = True
                    End If
                    If msg.Body.ToLower() = "ps/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Pc Softwares Bot Deactive !"))
                        ps.Checked = False
                    End If
                    ''MOBILE SOFTWARES
                    If msg.Body.ToLower() = "ms/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Mobile Softwares Bot Active !"))
                        ms.Checked = True
                    End If
                    If msg.Body.ToLower() = "ms/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Mobile Softwares Bot Deactive !"))
                        ms.Checked = False
                    End If
                    ''IOS SOFTWARES
                    If msg.Body.ToLower() = "ios/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "IOS Softwares Bot Active !"))
                        ioss.Checked = True
                    End If
                    If msg.Body.ToLower() = "ios/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "IOS Softwares Bot Deactive !"))
                        ioss.Checked = False
                    End If
                    ''AUTO ANSWER
                    If msg.Body.ToLower() = "aa/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Auto Answer Bot Active !"))
                        aan.Checked = True
                    End If
                    If msg.Body.ToLower() = "aa/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Auto Answer Bot Deactive !"))
                        aan.Checked = False
                    End If
                    ''MULTI STATUS
                    If msg.Body.ToLower() = "stc/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Multi Status Active !"))
                        multists.Checked = True
                    End If
                    If msg.Body.ToLower() = "stc/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Multi Status Deactive !"))
                        multists.Checked = False
                    End If
                    ''GOOGLE SEARCH
                    If msg.Body.ToLower() = "go/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Google Search Bot Active !"))
                        gs.Checked = True
                    End If
                    If msg.Body.ToLower() = "go/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Google Search Bot Deactive !"))
                        gs.Checked = False
                    End If
                    ''LOVE COUNTER
                    If msg.Body.ToLower() = "lc/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Love Counter Bot Active !"))
                        lc.Checked = True
                    End If
                    If msg.Body.ToLower() = "lc/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Love Counter Bot Deactive !"))
                        lc.Checked = False
                    End If
                    ''NICK NAME MAKER
                    If msg.Body.ToLower() = "nnm/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Nick Name Maker Bot Active !"))
                        nnm.Checked = True
                    End If
                    If msg.Body.ToLower() = "nnm/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Nick Name Maker Bot Deactive !"))
                        nnm.Checked = False
                    End If
                    ''SERVER FULLBOT
                    If msg.Body.ToLower() = "sfb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server FullBot Joiner Active !"))
                        sfb.Checked = True
                    End If
                    If msg.Body.ToLower() = "sfb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server FullBot Joiner Deactive !"))
                        sfb.Checked = False
                    End If
                    ''SERVER DEAD ID
                    If msg.Body.ToLower() = "sdi/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Dead ID Joiner Active !"))
                        sdi.Checked = True
                    End If
                    If msg.Body.ToLower() = "sdi/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Dead ID Joiner Deactive !"))
                        sdi.Checked = False
                    End If
                    ''SERVER ADVERTISER
                    If msg.Body.ToLower() = "sad/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Advertiser Joiner Active !"))
                        sad.Checked = True
                    End If
                    If msg.Body.ToLower() = "sad/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Advertiser Joiner Deactive !"))
                        sad.Checked = False
                    End If
                    ''SERVER ANTI ADVERTISER
                    If msg.Body.ToLower() = "saad/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Anti Advertiser Joiner Active !"))
                        saad.Checked = True
                    End If
                    If msg.Body.ToLower() = "saad/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Anti Advertiser Joiner Deactive !"))
                        saad.Checked = False
                    End If
                    ''SERVER JOKEBOT
                    If msg.Body.ToLower() = "sjb/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server JokeBot Joiner Active !"))
                        sjb.Checked = True
                    End If
                    If msg.Body.ToLower() = "sjb/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server JokeBot Joiner Deactive !"))
                        sjb.Checked = False
                    End If
                    ''SERVER S2A
                    If msg.Body.ToLower() = "ss2a/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server S2A Sender Active !"))
                        ss2a.Checked = True
                    End If
                    If msg.Body.ToLower() = "ss2a/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server S2A Sender Deactive !"))
                        ss2a.Checked = False
                    End If
                    ''SERVER ACCOUNT PROTECTOR
                    If msg.Body.ToLower() = "sap/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Account Protector Active !"))
                        sah.Checked = True
                    End If
                    If msg.Body.ToLower() = "sap/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Server Account Protector Deactive !"))
                        sah.Checked = False
                    End If
                    ''GET PROFILE
                    If msg.Body.ToLower() = "gp/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Profile Grabber Bot Active !"))
                        gp.Checked = True
                    End If
                    If msg.Body.ToLower() = "gp/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Profile Grabber Bot Deactive !"))
                        gp.Checked = False
                    End If
                    ''USER SEARCHER
                    If msg.Body.ToLower() = "us/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "User Searcher Bot Active !"))
                        us.Checked = True
                    End If
                    If msg.Body.ToLower() = "us/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "User Searcher Bot Deactive !"))
                        us.Checked = False
                    End If
                    ''GET ROOM USERS
                    If msg.Body.ToLower() = "getu/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Get Room Users Bot Active !"))
                        gru.Checked = True
                    End If
                    If msg.Body.ToLower() = "getu/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Get Room Users Bot Deactive !"))
                        gru.Checked = False
                    End If
                    ''GET USER SINCE
                    If msg.Body.ToLower() = "gus/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Get User Since Bot Active !"))
                        gus.Checked = True
                    End If
                    If msg.Body.ToLower() = "gus/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Get User Since Bot Deactive !"))
                        gus.Checked = False
                    End If
                    ''S2A TO BOT ADDLIST
                    If msg.Body.ToLower().StartsWith("Send/") Then
                        Dim t As String() = msg.Body.ToLower().Split("/")
                        txtsubject.Text = t(1)
                        txttext.Text = t(2)
                        Button16.PerformClick()
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "S2A To My Addlist Sended !"))
                        txtsubject.Clear()
                        txttext.Clear()
                    End If
                    ''VIEW MONITOR
                    If msg.Body.ToLower() = "view/mo" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, Monitor.Text))
                    End If
                    ''GET ROOM USERS ID
                    If msg.Body.ToLower().StartsWith("setid/") Then
                        Dim t As String = msg.Body.ToLower().Replace("setid/", "")
                        spy.Text = t
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Spy ID For Get Room Users Has Been Changed To : " + spy.Text))
                    End If
                    ''GET ROOM USERS PW
                    If msg.Body.ToLower().StartsWith("setpw/") Then
                        Dim t As String = msg.Body.ToLower().Replace("setpw/", "")
                        pswspy.Text = t
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Password Of Spy ID For Get Room Users Has Been Changed To : " + pswspy.Text))
                    End If
                    ''CLENIT VERSION
                    If msg.Body.ToLower().StartsWith("cname/") Then
                        Dim t As String = msg.Body.ToLower().Replace("cname/", "")
                        cname.Text = t
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Client Version Name Has Been Changed To : " + cname.Text))
                    End If
                    If msg.Body.ToLower().StartsWith("cver/") Then
                        Dim t As String = msg.Body.ToLower().Replace("cver/", "")
                        cversion.Text = t
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Client Version Has Been Changed To : " + cversion.Text))
                    End If
                    If msg.Body.ToLower().StartsWith("cos/") Then
                        Dim t As String = msg.Body.ToLower().Replace("cos/", "")
                        cos.Text = t
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Client Version OS Has Been Changed To : " + cos.Text))
                    End If
                    ''AUTO ACCEPT ADD
                    If msg.Body.ToLower() = "aaar/ac" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Auto Accept Add Request Active !"))
                        aaar.Checked = True
                    End If
                    If msg.Body.ToLower() = "aaar/de" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Auto Accept Add Request Deactive !"))
                        aaar.Checked = False
                    End If
                    If msg.Body.ToLower() = "rem help" Then
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, Form2.TextBox1.Text))
                    End If
                    If msg.Body.ToLower().StartsWith("chgwlc/") Then
                        Dim mk As String = msg.Body.ToLower().Replace("chgwlc/", "")
                        txtwlc.Text = mk
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Welcome Message Has Been Changed To : " + vbNewLine + "" + mk))
                    End If
                End If
            Next
        End If
    End Sub