• Home
 · 
• Internet/HTML
 · 
• To list Online/Offline/Away/Busy etc MSN Contacts

To list Online/Offline/Away/Busy etc MSN Contacts

To list Online/Offline/Away/Busy etc MSN Contacts

Rate To list Online/Offline/Away/Busy etc MSN Contacts

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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