by ?oothR¨?koo? (2 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 5th April 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
To list Online/Offline/Away/Busy etc MSN Contacts
Public Sub ListContacts()
Set msn = New Messenger.MsgrObject
Set Users = msn.List(MLIST_CONTACT) 'this can be MLIST_BLOCK or MLIST_ALLOW also
For i = 0 To Users.Count - 1
If Users.Item(i).State = MSTATE_ONLINE Then 'this can also be OFFLINE BUSY BE_RIGHT_BACK etc
List1.AddItem Users.Item(i).FriendlyName & " - " & Users.Item(i).LogonName & " - " & Users.Item(i).State
End If
Next i
End Sub
Private Sub Form_Load()
ListContacts
End Sub