 Associated with each Groove Account/Identity
is a set of shared spaces. To get the current spaces for an account identity
you need to construct an IdentityURI and then use the GrooveSpaces web
service. This will return an array of Spaces.
The Nonce is changed every time Groove is
started. See this page for how to get the current Nonce.
Private Sub GetSpaces(ByVal IdentityURI As String, ByVal SpacesURI As String)
Me.Cursor = Cursors.WaitCursor
Dim gSpaces As New gwsSpaces.GrooveSpaces()
Dim mySpaces() As gwsSpaces.Space
Dim numLocalSpaces, numOtherSpaces, numContacts As Integer
With gSpaces
.GrooveHeaderValue = New gwsSpaces.GrooveHeader()
.GrooveHeaderValue.GrooveNonce = gwsNonce()
.GrooveHeaderValue.GrooveIdentityURL = IdentityURI
.Url = gwsHost & SpacesURI
End With
Try
mySpaces = gSpaces.Read
Catch ex As Exception
Me.Cursor = Cursors.Default
End Try
'Your code here to work with the spaces
End Sub |