Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ''''''''''''''''''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
Add Comment
Please, Sign In to add comment