jump to navigation

MSN Programs Abril 30, 2008

Posted by erik in : VisualBasic , trackback

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;

Código:

Public WithEvents msn As MessengerAPI.Messenger

Luego en el form_load añadimos esto:

Código:

Set msn = New Messenger

Como 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 Wink.

Primer Programa: Contactos MSN

Aqui 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:

Código:

' 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)
Next

Bueno, ya hemos colocado uno, ahora colocaremos el que se vean los contactos online; Command2:

Código:

On Error Resume Next
contactosenlinea List2, MISTATUS_ONLINE
If List1.ListCount = 0 Then
List2.AddItem "No hay contactos En Linea"
End If

Y ya esta, es muy facil, cualquier error me avisais por el post o mp Wink.
El proximo codigo sera, Conectar y Desconectar MSN.

Comments»

no comments yet - be the first?