Online contactpersonen op MSN

Auteur: MothZone - 03 juli 2005 - 13:30 - Gekeurd door: Joel - Hits: 9710 - 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

Edit: Getest op WL Messenger 8.1 en werkt hierop.

Code:

Ok, wat heb je nodig:

- Listbox
Name: listContacts

- CommandButton
Name: Command1

- Label
Name: Label1

- Timer
Name: Timer1
Enabled: True
Interval: 10 000

Als je dit op je form gezet hebt, ga je naar de code, en daar plak je de volgende code (overtypen zal wat lang duren

)

php code - Bekijk de code zonder highlighting - Klap code in

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

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

Ok, bijna klaar!
Maar, zéér belangrijk nog:
Ga naar Project > References en vink "Messenger API Type Library" aan.

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Lees de reacties (2)