join in room

     ''''''''''''full bot
                            ElseIf msg.Body.ToLower().StartsWith("full/") Then
                                If full.Checked = True Then
                                    If FULLCOUNT <= maxfull.Value Then
                                        Dim full As FULLBOT = New FULLBOT
                                        Dim M As String() = msg.Body.ToLower().Split("/")
                                        full.Connecting(CType(sender, XmppClientConnection), M(1), M(2), M(3), msg.From.User)
                                        FULLCOUNT += 1
                                    Else
                                        DirectCast(sender, XmppClientConnection).Send(New agsXMPP.protocol.client.Message(msg.From.User + "@nimbuzz.com", MessageType.chat, "Sorry . Your request is impossible because logined servers is over than maximum value ."))
                                    End If
                                End If