Auteur: MothZone - 03 juli 2005 - 13:30 - Gekeurd door: Joel - Hits: 9705 - Aantal punten: 4.00 (1 stem)
Hiermee kan je zien welke contactpersonen online zijn momenteel op msn.
Opgelet: Ik heb dit script gemaakt vòòr msn messenger 7 uit was, en werkt dus ook niet op msn messenger 7. (Mss op sommige versies, maar toch niet op de officiële)
Het is trouwens gewone Visual Basic, maar omdat er geen categorie van was heb ik het hier bij VBScript gezet
Dim contact As IMessengerContact
Dim status As String
Option Explicit
Public WithEvents msn As Messenger
Private Sub Command1_Click()
Timer1_Timer
End Sub
Private Sub Form_Load()
Timer1_Timer
End Sub
Private Sub Timer1_Timer()
listContacts.Clear
For Each contact In Messenger.MyContacts
If contact.status <> MISTATUS_OFFLINE And contact.status <> MISTATUS_INVISIBLE Then
Select Case contact.status
Case 2
status = "Online"
Case 10
status = "Bezet"
Case 14
status = "Zo terug"
Case 18
status = "Inactief"
Case 34
status = "Afwezig"
Case 50
status = "Aan de telefoon"
Case 66
status = "Lunchpauze"
End Select
listContacts.AddItem contact.FriendlyName & " (" & status & ")", 0 'Verander FriendlyName in SigninName om het emailadres te zien
End If
Next
Label1.Caption = listContacts.ListCount & " online contacten."
End Sub