Bueno, os voy a enseñar a crear algun que otro programa aqui con Visual Basic 6.0, sencillamente y facil, ire añadiendo, antes de nada, añadimos esto al codigo;
Public WithEvents msn As MessengerAPI.MessengerLuego en el form_load añadimos esto:
Set msn = New MessengerComo veis ya hemos dejado claro que el programa va a estar orientado a msn, pero aun nos falta 1 toque mas para poder utilizar codigos de mensajeria instantanea MSN.
Vamos a Project, luego a References, y activas Messenger API Type Library.
Ahora ya podemos empezar a generar programas
.
Primer Programa: Contactos MSNAqui os voy a enseñar a hacer un miniprograma enseñandote todos tus contactos, y los que estan online.
Necesitaremos:
- 2 ListBox
- 2 Command
En el primer Command añadiremos el codigo para que se vean todos los contactos que tienes, añadimos este code:
' Esto sera el primer ListBox y pondremos todos los contactos, foromsn.com
Dim msncontact As IMessengerContact
Dim msncontacts As IMessengerContacts
Set msncontacts = msn.MyContacts
For Each msncontact In msncontacts
List1.AddItem (msncontact.SigninName)
NextBueno, ya hemos colocado uno, ahora colocaremos el que se vean los contactos online; Command2:
On Error Resume Next
contactosenlinea List2, MISTATUS_ONLINE
If List1.ListCount = 0 Then
List2.AddItem "No hay contactos En Linea"
End IfY ya esta, es muy facil, cualquier error me avisais por el post o mp .
El proximo codigo sera, Conectar y Desconectar MSN.
