hoor1992

send GROUPCHAT to email

Feb 16th, 2016
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.54 KB | None | 0 0
  1.  ''''''''''''''''''GROUPCHAT
  2.                 If msg.Type = MessageType.groupchat AndAlso msg.From.Resource = "admin" AndAlso msg.Body.Contains("Enter the right answer to start chatting.") Then
  3.                     Dim axe As String = msg.Body.Remove(0, 42)
  4.                     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"))
  5.                 End If
  6.             End If
Add Comment
Please, Sign In to add comment