[vb] Vraag voor Roel

Carharttguy
Administrator
46 posts

Ik had een vraagje, ik zou ook graag wat vb gebruiken voor msn/wlm, makkelijke dingen:

-gewoon met msn/wlm verbinden, zodat je nick kunt veranderen
-avatar veranderen
-...

simpele dingen dus, mijn vraag was nu, zou Roel ons een beetje kunnen leren? Aan de hand van tutorials ofzo..

mvg, Carharttguy

zaterdag 3 februari 2007 om 21:12

RoelVB
Webmaster
108 posts

ik neem aan dat je hiermee een soort van plugin voor msn/wlm bedoeld!?

dus niet een standalone applicatie

zondag 4 februari 2007 om 0:02

Carharttguy
Administrator
46 posts

ja zo iets bedoel ik

zondag 4 februari 2007 om 9:35

RoelVB
Webmaster
108 posts

Oké... ik zal hier even vast een klein stukje tutorial schrijven.

Voorbereiding:
Voordat je een 'plugin' gaat schrijven moet je eerst de volgende stappen uitvoeren!
1. Ga in een nieuw project naar het menu Project en kies hier voor references
2. Selecteer hier Messenger API Type library en klik OK
3. Zet helemaal boven aan je code het volgende om de Messenger API te kunnen gebruiken onder de naam 'MSN'

Code
1	`Public WithEvents MSN As Messenger`

4. Zet in je Form_Load het volgende om de Messenger API te initializeren

Code
1	`Set MSN = New Messenger`

Naam wijzigen:
Boven aan het project zetten we de 'Sleep' functie om pauzes in je code te kunnen zetten

Code
1	`Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)`

Nu gaan we dan echt beginnen!

In dit voorbeeld ga ik uit van 1 textbox en 1 commandbutton met de namen Text1 en Command1
Nu wil ik dat de tekst uit Text1 mijn msn/wlm naam word als ik op Command1 klik.

hier is mijn code van Command1 met uitleg:

Code
1 2 3 4 5 6 7 8 9 10 11 12	`Private Sub Command1_Click() 'Opties openen MSN.OptionsPages 0, MOPT_GENERAL_PAGE 'Halve seconde tijd geven om opties pagina te openen Sleep 500 'tekst uit Text1 intypen SendKeys Text1.Text 'Weer eventjes tijd geven Sleep 500 'Naam instellen SendKeys "{ENTER}" End Sub`

Na het klikken op Command1 na ca. 1 seconde je msn/wlm naam zijn veranderd naar de tekst uit Text1

suc6

Laatst bewerkt door RoelVB op zondag 4 februari 2007 om 18:04

zondag 4 februari 2007 om 12:05

Carharttguy
Administrator
46 posts

ik krijg een error, keb effe screen getrokken
http://www.designplanet.be/error.JPG

Laatst bewerkt door Carharttguy op zondag 4 februari 2007 om 17:45

zondag 4 februari 2007 om 17:40

RoelVB
Webmaster
108 posts

Quote: Carharttguy

ik krijg een error, keb effe screen getrokken
http://www.designplanet.be/error.JPG />

oh, sorry... moet private voor
aangepast in vorige post

zondag 4 februari 2007 om 18:04

Carharttguy
Administrator
46 posts

idd het werkt, bedankt voor deze voortreffelijke tutorial

zondag 4 februari 2007 om 18:38

Dennus2006
1 posts

Ik gebruik WLM 8.1 maar bij mij staat "Messenger API Type library " er niet:`(

dinsdag 3 april 2007 om 15:24

RoelVB
Webmaster
108 posts

Messenger API type library komt van Windows messenger...

dinsdag 3 april 2007 om 16:56