Me pedido hacer una aplicación q tiene que constantemente tener una lista de los contactos conectados del msn abierto en la pc en la que este abierto.
El problema que el código que conseguí carga mucho el procesador, este hace trabajar a mi app y a el Messenger demasiado en el momento q se realiza la lectura.
Acá les dejo el script que uso:
Código
Private objMsn As Object Private Sub Form_Load() Set objMsn = CreateObject("Messenger.UIAutomation") End Sub Private Sub Timer1_Timer() For Each contacto In objMsn.mycontacts If contacto.Status = 2 And contacto.signinname = strCont Then call play(strCont: Timer1.Enabled = False) Next End Sub Private Sub Form_Unload(Cancel As Integer) Set objMsn = Nothing End Sub
LO que ando precisando es un código que pueda hacerlo sin copar tanto el procesador. Graciass#