Not logged in. · Lost password · Register
Forum: agsXMPP RSS
Send attention
Avatar
vbnet 2011-07-14, 18:10 #1
Member since Sep 2010 · 5 posts
Group memberships: Members
Show profile · Link to this post
Subject: Send attention
How do I send this using AGSXMPP:

<attention xmlns='urn:xmpp:attention:0'/>

Dim UserID As agsXMPP.Jid = New agsXMPP.Jid(Me.Tag & "@" & UserList(connection).XMPP_Connection.Server.ToString)
                   
Dim autoReply As protocol.client.Message

autoReply = New protocol.client.Message(UserID, protocol.client.MessageType.normal, Nothing)
autoReply.Chatstate = protocol.extensions.chatstates.Chatstate.paused

'autoReply.?????? = "<attention xmlns='urn:xmpp:attention:0'/>"?????

UserList(connection).XMPP_Connection.Send(autoReply)



From: XEP-0224
Avatar
Alex 2011-07-14, 23:50 #2
Member since Feb 2003 · 4449 posts · Location: Germany
Group memberships: Administrators, Members
Show profile · Link to this post
there is no class for attention in agsXMPP. So first create the class:

  1. Public Class Attention Inherits Element
  2.     Public Sub New()
  3.         TagName = "attention"
  4.         [Namespace] = "xmlns='urn:xmpp:attention:0"
  5.     End Sub
  6. End Class

then do:
  1. autoreply.AddChild(new Attention())
Close Smaller – Larger + Reply to this post:
Verification code: VeriCode Please enter the word from the image into the text field below. (Type the letters only, lower case is okay.)
Smileys: :-) ;-) :-D :-p :blush: :cool: :rolleyes: :huh: :-/ <_< :-( :'( :#: :scared: 8-( :nuts: :-O
Special characters:

Forum: agsXMPP RSS