[VB6] MsN 5.0 nickname changer

[Verwijderd]

Eey even een vraagje,
Ik had een stukje sourcecode gevonden op planetsourcecode.com om je msnnaam te veranderen,
ik had de volgende code gevonden:

http://www.planetsourceco...?txtCodeId=33792&lngWId=1

maar nou krijg ik steeds een foutmelding:
Runtime error BLABLABLA
Method 'FriendlyName' of object 'IMsgrService' failed.


weet iemand wat dit kan wezen?
PS: ik had al bij refenences msn api aangevinkt....

[Ericston]

Volgens mij is FriendlyName helemaal geen method maar een property.
Dit is trouwens de code in goeie opmaak:

Visual Basic:

Private Sub Command1_Click()
MsN.Services(0).FriendlyName = Text1.Text
MsN.LocalState = MSTATE_INVISIBLE
MsN.LocalState = MSTATE_ONLINE
End Sub

Misschien heb je een '=' vergeten waardoor de interpreter denkt dat FriendlyName een sub of function is.
Het lijkt erop dat het zou moeten werken, maar mijn VB kennis reikt niet echt ver hoor.

edit:
En mogelijkerwijs b0rked ie doordat de MSN5.0 interface verschilt van de versie waar die code voor is geschreven.

[Verwijderd]

hmm... ik had ook al in die messenger APIs files gekeken maar daar wordt ik ook niet wijzer van, iemand die wel weet hoe dit moet?

[Verwijderd]

Heb je de refference wel toegevoegd??

[Aerox.2000]

Dit werkt niet met MSN5.0 denk ik, alleen met msn 4.x

[Verwijderd]

ja ik heb de reference toegevoegd....
iemand die het wel weet?

[Verwijderd]

en op 4 werkt ie ook niet

[Mooch]

Heb je dit al geprobeert? Dit wordt als oplossing op die pagina gegeven.

Visual Basic:

Private Sub Command1_Click()
MsN.Services.PrimaryService.FriendlyName = Text1.Text
MsN.LocalState = MSTATE_INVISIBLE
MsN.LocalState = MSTATE_ONLINE
End Sub

[Verwijderd]

yoo cool, thanx.

Ik ben blind zie ik net

[Aerox.2000]

dit heb ik:

MsN.Services.PrimaryService.FriendlyName = Text1.Text

en dat werkt

edit:
te laat

[Verwijderd]

Ok, alles leuk en aarig, maar nog 1 vraagje:
hoe kan ik er nu voor zorgen dat er nog een stukje text vóór je input komt,
dus als je: bijv je naam in text1.text invult plus nog een andere text die een stukje source er zelf bij zet

[Aerox.2000]

MsN.Services.PrimaryService.FriendlyName = "Blaat: "& Text1.Text & " download nu " & temp

zoiets?

[Verwijderd]

weer bedankt

[D2k]

geloof toch dat het vrij basic is allemaal