Msn 6

[XenomX]

Ik wil het contact personen lijstje van mn MSN gebruikers in een text/list hebben in VB. Via de MSN 6 API, maar ik kan het niet echt duidelijk vinden, heeft iemand een idee?

Mvg,

 

[gebruiker56]

Hallo

op al je contact personen in excel te laten zien moet je je contact personenlijst opslaan via contactpersonen (menubalk) contactenpersonenlijst opslaan.

daarna open je dit bestand in excel (bestandtstype alle bestanden)

hierna moet je alleen nog wat komma's verwijderen via vervangen gaat dit heel simpel.

gr tim

 

[XenomX]

ok

Ja dat weet ik maar ik wil het automatisch importeren in VB, zonder dat ik zelf iets van merk.

Thnx!

Mvg, :thumb:

 

[gebruiker56]

Hallo

ik denk niet da dat gaat lukken.
want: je msn lijst staat niet op de computer maar op een msn server, daarom kan je ook bij andere msnen op je eigen adres.

dus hij kan denk ik ook geen koppeling maken omdat de lijst niet op je pc bewaard wordt, of automatich word opgeslagen.

gr tim

 

[XenomX]

Dat is zeker wel mogelijk om al je contacten in een list te krijgen, heb ik ook gedaan met de oude MSN API, maar als ik nu die Reference toevoeg van MSN API krijg ik een Error met een DLL, MSDN moet geinstalleerd worden :? Heb ik dus niet.

Zal ff verder kijken.

 

[XenomX]

OK, de code heb ik al . Maar ik kan de Reference van MSN (Messenger Type Library) niet toevoegen, Error Loading DLL.

Iemand?

 

[gebruiker56]

Hallo

hoe heet dat programma (of is dat verboden hier)

gr tim

 

[gebruiker56]

Hallo

hoe heet dat programma (of is dat verboden hier)

gr tim

 

[XenomX]

MSN is dat, gewoon de std MSN Messenger 'chat prog.'

Met die API calls, kan je allerlei dingen doen in VB.

MAar zit weer met probleem:

Heb nu dit bij Decleratie Staan,

Dim WithEvents msn as New MessengerAPI.Messenger

Private Sub Form_Load()
Dim msn As New MessengerAPI.Messenger
msn.LogOff
End Sub

Dit werkt niet, ik krijg deze error, Object Variable or With block variable not set

Iemand?

 

[beheer25]

Heb geen ervaring met MSN API, maar kan het een referentie zijn die er niet is?


Grtz,

 

[XenomX]

Nee, die is aanwezig.
Alleen krijg errors met de code. Weet ook niet of ik de goede referentie hebt voor msn 6.

Mvg,

 

[beheer25]

Even zitten vlooien in VB. De volgende code werkt bij mij wel.

Dim msn2 As New MessengerAPI.Messenger
msn2.Signout

Logoff bestaat niet als actie van de MessengerAPI, SignOut wel.


Grtz,

 

[XenomX]

De referentie haalt ie toch uit de .exe? Zou jij misschien jou msn .exe hier als bijlage willen posten in een .zipje?

Ik krijg de error, Automatation Error.

Bvd!

 

[beheer25]

Ik begon er lol in ter krijgen :thumb:

Met de volgende code krijg je in het debug window voor elke contact in je lijst wat gegevens inclusief status te zien.

Public Sub GetBuddies()
    Dim msgr As New MessengerAPI.Messenger
    Dim groups As IMessengerGroups
    Dim group As IMessengerGroup
    Dim contacts As IMessengerContacts
    Dim contact As IMessengerContact
    Dim I As Integer
    Dim J As Integer
    
    J = 1
    
    Set contacts = msgr.MyContacts
    For Each contact In contacts
        Debug.Print (contact.FriendlyName)
        Debug.Print (contact.SigninName)
        Debug.Print (GetStatus(contact.Status))
        J = J + 1
    Next
End Sub

Public Function GetStatus(I As Integer) As String
    Dim str As String
    Select Case I
        Case 1
            str = "Offline"
        Case 2
            str = "Online"
        Case 6
            str = "Invisible"
        Case 10
            str = "Busy"
        Case 14
            str = "Be Right Back"
        Case 18
            str = "Idle"
        Case 34
            str = "Away"
        Case 50
            str = "On the Phone"
        Case 66
            str = "Out to Lunch"
        Case Else
            str = "Unknown"
    End Select
    
    GetStatus = str
End Function

Veel succes ermee.

Oh ja de credits even niet vergeten, de oorspronkelijke code komt van de volgende site af:
http://www.devhood.com/tutorials/tutorial_details.aspx?tutorial_id=478


Grtz,

 

[XenomX]

Dit had ik ook gezien op een site, dit is voor VBScript dacht ik toch? Maar het werkt hetzelfde ja. Maar ik krijg een error :? Automatation Error.

Zie mijn reply boven. Als iemand mij die .exe kan geven .

Of moet je de referentie's van msn 4.7 gebruiken? Volgens mij niet, en daar werkt het volgens mij ook niet mee.

Bvd,

 

[XenomX]

Ook wel leuk, http://msdn.microsoft.com/library/d...winmessenger/winmessenger/messenger_entry.asp

 

[beheer25]

Ik maak gebruik van versie 6.2 (Build 6.2.0137) En heb daarnaar ook de referenties aangelegd. Dat werkte bij mij OK.


Grtz,

 

[XenomX]

Kan je mij dat is uitleggen en/of toesturen?

Mvg,

 

[beheer25]

In welke omgeving werk je precies? VBA of VB6?

Ik heb het zaakje in Access gemaakt m.b.v. VBA. Dat werkt perfect.


Grtz,

 

[XenomX]

Ik werk in VB6, maar dat is toch hetzelfde als VBA?

Maar kan jij misschien is kijken waar die referentie naar verwijst? Naar welk bestand(en). En deze misschien hier even kunnen posten, kan ik kijken of ie het wel doet via die.

Mvg, :thumb: