A list of products available on this site
Documentation for XtraMania's xtras
Prices and links to the online store
Xtras, PDFs, samples
Have a question? Ask us!
Contacts
Logo. www.xtramaina.com  
Home Search E-mail
VbScriptXtra Samples/MSN Messenger

ActiveCompanionSet xtras for Macromedia Director

Retrieving contacts from MSN Messenger

This handler will retrieve your contacts from Messenger and simply put it in Messages window.

on testMessenger
  -- Creating the Messenger object
  objMsgrObject = xtra("VbScriptXtra").CreateObject("Messenger.MsgrObject")
  if not objectP(objMsgrObject) then
    alert "Failed to create messenger:"&RETURN&objMsgrObject
    exit
  end if
  
  -- Getting users list
  IMsgrUsers = objMsgrObject.List(0)
  
  -- Retrieving info about every contact in the list
  repeat with counter=0 to IMsgrUsers.count-1
    put IMsgrUsers.Item(counter).FriendlyName & " = " &
    IMsgrUsers.Item(counter).LogonName
  end repeat
end

Sent by: Dave Mee, London

Where to find more info about Messenger?

VbScriptXtra provides autodocumentation feature allowing you to see what you can do with particular object instance. Just create a recordset object and type in Messages window:
put interface(objMsgrObject)
put interface(IMsgrUsers)

ObjectBrowser xtra - autodocumentation companion for VbScriptXtra - will show all available interfaces, methods, properties and enumerations.

ObjectBrowser xtra is a part of ActiveCompanionSet. It is available to Download.

Site homeSearchContact author © Eugene Shoustrov. www.xtramania.com