Foro de Informatica
" Hay la misma diferencia entre un sabio y un ignorante que entre un hombre vivo y un cadáver "

- Aristóteles -



        


Google
 
Web www.ComputerFacil.com
Forista del Mes:

Kobas




  Reply to this topicStart new topicStart Poll

> [vb 6.0] Msn Projects, Aprende a programar, programas de msn
mkas
Publicado: Jan 27 2008, 09:41 PM
Quote Post


Miembro binario
***

Grupo: Miembros
Mensajes: 70
Miembro nº: 34.531
Registrado: 27-January 08



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;

CODE
Public WithEvents msn As MessengerAPI.Messenger


Luego en el form_load añadimos esto:

CODE
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 ;).

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:

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


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

CODE
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 ;).
El proximo codigo sera, Conectar y Desconectar MSN.




PMEmail Poster
Top
mkas
Publicado: Jan 27 2008, 09:42 PM
Quote Post


Miembro binario
***

Grupo: Miembros
Mensajes: 70
Miembro nº: 34.531
Registrado: 27-January 08



Bueno aqui el segundo codigo de utilización, como siempre hacemos el proceso de las variables, y cuando lo tengamos hecho, necesitaremos:

- 2 Commands

Al command1, le añadimos el codigo de Conectar msn:


CODE
msn.Autosignin



y ahora en el Command2, le añadiremos el codigo de desconectar msn:

CODE
msn.Signout



Como veis, muy sencillo.

En el proximo pondre para saber el estado de conexión del msn con actualizador cada 1 seg.


¿Quieres ganar dinero escribiendo sobre tus aficiones? - www.Redactores.es

PMEmail Poster
Top
0 usuario(s) está(n) leyendo esta discusión (0 invitado(s) y 0 usuario(s) anónimo(s))
0 miembro(s):

Topic Options Reply to this topicStart new topicStart Poll

 


ComputerFacil.com © 2006
          Webs Afiliadas - Contacto
Ofertas PCs :: Consultor de Marketing Online :: Foros :: Posicionamiento Web :: Foros de Informatica :: Foros :: eurodipity :: elhacker

eurodipity - eurodipity - eurodipity - eurodipity - eurodipity - eurodipity - eurodipity - eurodipity - eurodipity - eurodipity