login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:

Scripts > Overige > VBScript > Online contactpersonen op MSN

Online contactpersonen op MSN

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

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 )

  1. Dim contact As IMessengerContact
  2. Dim status As String
  3.  
  4. Option Explicit
  5. Public WithEvents msn As Messenger
  6.  
  7.  
  8. Private Sub Command1_Click()
  9. Timer1_Timer
  10. End Sub
  11.  
  12. Private Sub Form_Load()
  13. Timer1_Timer
  14. End Sub
  15.  
  16. Private Sub Timer1_Timer()
  17. listContacts.Clear
  18.  
  19. For Each contact In Messenger.MyContacts
  20. If contact.status <> MISTATUS_OFFLINE And contact.status <> MISTATUS_INVISIBLE Then
  21.  
  22. Select Case contact.status
  23. Case 2
  24. status = "Online"
  25. Case 10
  26. status = "Bezet"
  27. Case 14
  28. status = "Zo terug"
  29. Case 18
  30. status = "Inactief"
  31. Case 34
  32. status = "Afwezig"
  33. Case 50
  34. status = "Aan de telefoon"
  35. Case 66
  36. status = "Lunchpauze"
  37. End Select
  38.  
  39. listContacts.AddItem contact.FriendlyName & " (" & status & ")", 0 'Verander FriendlyName in SigninName om het emailadres te zien
  40. End If
  41. Next
  42. Label1.Caption = listContacts.ListCount & " online contacten."
  43. End Sub


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

Download dit script!
 Stemmen
Niet ingelogd.

 Reacties
Post een reactie
Lees de reacties (2)
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.022s