spybot

Private Sub remot(ByVal sender As Object, msg As Message)
        If MyBase.InvokeRequired = True Then
            MyBase.BeginInvoke(New MessageHandler(AddressOf remot), New Object() {sender, msg})
        Else
            If msg.Type = MessageType.chat AndAlso msg.HasTag("body") Then
                If msg.Body.ToLower() = "help" Then
                    meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, help.Text.Replace("%DATE%", "( " + System.DateTime.Now.ToString("yyyy/MM/dd | HH:mm:ss") + " )")))
                ElseIf msg.Body.ToLower().StartsWith("g/") Then
                    If cbgetuser.Checked = True Then
                        whichroom = msg.Body.Replace("g/", "")
                        whowantroomusers = msg.From.User
                        usergereft = True
                        meti.Send("<presence to='" + whichroom + "@conference.nimbuzz.com/" + user.Text + "' xml:lang='en'><x xmlns='http://jabber.org/protocol/muc'><password></password></x></presence>")
                    Else
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "This option of spybot features is disabled by bot administrator ."))
                    End If
                ElseIf msg.Body.ToLower().StartsWith("cap/") Then
                    If usergereft = True Then
                        meti.Send(New agsXMPP.protocol.client.Message(New Jid(whichroom + "@conference." + meti.Server), MessageType.groupchat, msg.Body.Replace("cap/", "")))
                    End If
                ElseIf msg.Body.ToLower().StartsWith("r/") Then
                    If cbrooms.Checked = True Then
                        targetroom = msg.Body.Replace("r/", "")
                        roomlistreq = msg.From.User
                        Rooming.Enabled = True
                    Else
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "This option of spybot features is disabled by bot administrator ."))
                    End If
                ElseIf msg.Body.ToLower().StartsWith("p/") Then
                    If cbprofile.Checked = True Then
                        msgfrom = msg.From.ToString()
                        meti.Send("<iq to='" + msg.Body.ToLower().Replace("p/", "") + "@nimbuzz.com' type='get' id='amirslr'><query xmlns='http://jabber.org/protocol/profile'/></iq>")
                    Else
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "This option of spybot features is disabled by bot administrator ."))
                    End If
                ElseIf msg.Body.ToLower().StartsWith("a/") Then
                    If cbavatar.Checked = True Then
                        Dim avatar As String = ""
                        avatar = HttpUtility.UrlEncode(msg.Body.Remove(0, 2) + "@nimbuzz.com")
                        Dim str1 As String = "Avatar link of " + msg.Body.Remove(0, 2) + " :" + vbNewLine + "http://avatar.nimbuzz.com/getAvatar?jid=" + avatar
                        DirectCast(sender, XmppClientConnection).Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, str1))
                    Else
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "This option of spybot features is disabled by bot administrator ."))
                    End If
                ElseIf msg.Body.ToLower().StartsWith("s/") Then
                    If cbsearch.Checked = True Then
                        strSearcher = msg.From.User
                        targetsearch = strUserForSearch
                        strUserForSearch = msg.Body.Remove(0, 2)
                        creationDate = False
                        userSearch = True
                        BgSearchP1.RunWorkerAsync()
                    Else
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "This option of spybot features is disabled by bot administrator ."))
                    End If
                ElseIf msg.Body.ToLower().StartsWith("c/") Then
                    If cbsince.Checked = True Then
                        strSearcher = msg.From.User
                        strUserForSearch = msg.Body.Remove(0, 2)
                        creationDate = True
                        userSearch = False
                        BgTarikhID.RunWorkerAsync()
                    Else
                        meti.Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "This option of spybot features is disabled by bot administrator ."))
                    End If
                End If
            Else
                ''''''''''''''''''GROUPCHAT
                If msg.Type = MessageType.groupchat AndAlso msg.From.Resource = "admin" AndAlso msg.Body.Contains("Enter the right answer to start chatting.") Then
                    Dim axe As String = msg.Body.Remove(0, 42)
                    meti.Send(New agsXMPP.protocol.client.Message(whowantroomusers + "@nimbuzz.com", MessageType.chat, "Please answer the captcha :" + vbNewLine + axe + vbNewLine + vbNewLine + "note : for answer captcha use cap/captcha answer"))
                End If
            End If
        End If
    End Sub