MSN Programmeren met Visual Basic


In deze tutorial ga ik jullie iets leren over programmeren in Visual Basic met MSN Messenger

Als je het hoofscherm krijg van Visual Basic, klik je op New > standard EXE.

In het menu Project, klik je op "References", en je selecteert Messenger API Type library.

Als je aan MSN programmeren doet, zet je altijd eerst in de sub Form_load dit:
CODE
  1.  
  2. Private Sub Form_Load()
  3.  
  4.     Set MSN = New MessengerAPI.Messenger
  5.  
  6. End Sub
  7.  

en in het declaratiegedeelte van je form zet je dit:
CODE
  1.  
  2. Public WithEvents MSN As Messenger
  3.  


1. Statussen



1.1. Verschillende statussen


Zoals je weet zijn er verschillende statussen beschikbaar voor MSN.
Online, Bezet (busy), Afwezig (away), Zo terug (be right back), Aan de telefoon (on the phone), lunchpauze (out to lunch)
en Offline weergegeven (invisible).

De codes die je hiervoor gebruikt zijn:
Online:
CODE
  1.  
  2. MSN.MyStatus = MISTATUS_ONLINE
  3.  


Bezet:
CODE
  1.  
  2. MSN.MyStatus = MISTATUS_BUSY
  3.  


Afwezig:
CODE
  1.  
  2. MSN.MyStatus = MISTATUS_AWAY
  3.  


Zo terug:
CODE
  1.  
  2. MSN.MyStatus = MISTATUS_BE_RIGHT_BACK
  3.  


Aan de telefoon:
CODE
  1.  
  2. MSN.MyStatus = MISTATUS_ON_THE_PHONE
  3.  


Lunchpauze:
CODE
  1.  
  2. MSN.MyStatus = MISTATUS_OUT_TO_LUNCH
  3.  


Offline weergegeven:
CODE
  1.  
  2. MSN.MyStatus = MISTATUS_INVISIBLE
  3.  


1.2. Aanmelden/afmelden


Om aan te melden zet je deze code in een sub:
CODE
  1.  
  2. Dim hwndParent As Long
  3.  
  4.     MSN.Signin hwndParent, "iemand@hotmail.com", "(password)"
  5.     SendKeys "{enter}"
  6.  


Om af te melden is het een simpelere code:
CODE
  1.  
  2. MSN.Signout
  3.  


2. Inbox en mail



2.1. Inbox openen


Je inbox openen doe je met deze procedure:
CODE
  1.  
  2. MSN.OpenInbox
  3.  


Als je geen hotmailadres of geen emailadres eindigend op @msn.com gebruikt, dan zal Microsoft Outlook of Microsoft Outlook
Express starten, afhankelijk van wat je ingesteld hebt als standaard mailprogramma.

2.2. Een mail zenden


Dit opent een (Internet Explorer) venster van hotmail met onmiddelijk een nieuwe mail naar je contactpersoon.

CODE
  1.  
  2. MSN.SendMail "iemand@hotmail.com"
  3.  


Als je geen hotmailadres of geen emailadres eindigend op @msn.com gebruikt, dan zal Microsoft Outlook of Microsoft Outlook
Express starten, afhankelijk van wat je ingesteld hebt als standaard mailprogramma. Als ontvanger zal dan het emailadres
staan dat je ingegeven hebt.

3. Een contactpersoon toevoegen



3.1. Een contactpersoon toevoegen met de wizard


Gebruik dan deze code. Nadat je deze procedure geŽxcuteerd zal hebben, zal de wizard starten.

CODE
  1.  
  2. Dim hwndParent As Long
  3.  
  4.     MSN.AddContact hwndParent, "iemand@hotmail.com"
  5.  


3.2. Een contactpersoon toevoegen zonder de wizard te gebruiken


Helaas is dit niet mogelijk. Er is echter een methode: je ziet de wizard een fractie van een seconde.

CODE
  1.  
  2. Private Sub Command1_Click()
  3. Dim hwndParent As Long
  4.  
  5.     MSN.AddContact hwndParent, "iemand@hotmail.com"
  6.     SendKeys "{enter}"
  7.     Pause 2
  8.     SendKeys "{enter}"
  9.  
  10. End Sub
  11.  

en dan nog een aparte sub:
CODE
  1.  
  2. Public Sub Pause(interval)
  3.     Current = Timer
  4.    
  5.         Do While Timer - Current < Val(interval)
  6.         DoEvents
  7.         Loop
  8.        
  9. End Sub
  10.  


4. Werken met groepen



4.1. Volgens groepen / on-/offline sorteren


Daarvoor gebruik je deze codes:

Sorteren op on-/offline:
CODE
  1.  
  2. MSN.ContactsSortOrder = MUASORT_ONOFFLINE
  3.  


Sorteren op groepen:
CODE
  1.  
  2. MSN.ContactsSortOrder = MUASORT_GROUPS
  3.  


5. Berichtjes sturen



Je kan ook een venster laten openen waar je een bericht in kan typen.

Dit kan je met deze code:
CODE
  1.  
  2. MSN.InstantMessage "iemand@hotmail.com"
  3.  


6. Nicknames & services



6.1. Nickname weergeven


Een nickname weergeven in een textbox doe je zo:
CODE
  1.  
  2. Text1.Text = MSN.MyFriendlyName
  3.  


6.2. Nickname veranderen


Dit is wat moeilijker. Want net zoals een contactpersoon toevoegen bestaat er niet echt een methode hiervoor
zonder MSN te openen. Toch is er een methode:
CODE
  1. Dim MSN.OptionsPages hwndParent, MOPT_GENERAL_PAGE
  2.  
  3. SendKeys "+SURIV+"
  4. SendKeys "{enter}"
  5.  


6.3. Emailadres weergeven


Hiermee kan je je eigen emailadres laten weergeven in een textbox bijvoorbeeld.
CODE
  1.  
  2. Text1.Text = MSN.MySigninName
  3.  


6.4. Met welke service ben je verbonden?


Hiermee kan je laten zien in een textbox met welke service je verbonden bent.
Als je MSN Messenger gebruikt zal dit de .NET Messenger Service zijn.
CODE
  1.  
  2. Text1.Text = MSN.MyServiceName
  3.  


7. Beeld en geluid



7.1. Webcam starten


Je webcam starten doe je als volgt:
CODE
  1.  
  2. MSN.StartVideo "iemand@hotmail.com"
  3.  


7.2. Audiogesprek starten


Zo nodig je een contactpersoon uit tot een audiogesprek:
CODE
  1.  
  2. MSN.StartVoice "iemand@hotmail.com"
  3.  


8. Opties



Met deze codes kan je naar verschillende opties-pagina's van MSN gaan. Met behulp van SendKeys kan je dan
instellingen veranderen.

Ga naar de pagina met "Persoonlijke gegevens":
CODE
  1.  
  2. Dim hwndParent As Long
  3.  
  4. MSN.OptionsPages hwndParent, MOPT_GENERAL_PAGE
  5.  


Ga naar de pagina met "Algemeen":
CODE
  1.  
  2. Dim hwndParent As Long
  3.  
  4. MSN.OptionsPages hwndParent, MOPT_EXCHANGE_PAGE
  5.  


Ga naar de pagina met "Privacy":
CODE
  1.  
  2. Dim hwndParent As Long
  3.  
  4. MSN.OptionsPages hwndParent, MOPT_PRIVACY_PAGE
  5.  


Ga naar de pagina met "Telefoon":
CODE
  1.  
  2. Dim hwndParent As Long
  3.  
  4. MSN.OptionsPages hwndParent, MOPT_PHONE_PAGE
  5.  


Ga naar de pagina met "Verbinding":
CODE
  1.  
  2. Dim hwndParent As Long
  3.  
  4. MSN.OptionsPages hwndParent, MOPT_CONNECTION_PAGE
  5.  


9. Andere



9.1. "Mijn ontvangen Bestanden"


Met deze code kan je de map laten weergeven waar alle bestanden worden opgeslagen die je ontvangt.
CODE
  1.  
  2. Text1.Text = MSN.ReceiveFileDirectory
  3.  
Dit artikel werd geschreven door Suriv op zaterdag 28 januari 2006 om 21:05 en werd sindsdien 9036 keer gelezen.

  • Pagina
  • 1 van 1

Geen reacties gevonden
Er werden nog geen reacties bij dit artikel geplaatst.
  • Indien je denkt iets te kunnen toevoegen aan het artikel, kan je zelf een reactie schrijven via de koppeling Plaats een reactie bij dit artikel hieronder.
  • Indien je andere commentaar (iets wat niet meteen functioneel bijdraagt aan het artikel zelf) hebt, kan je een bedankje formuleren via de koppeling Plaats een bedankje bij dit artikel hieronder.