Buscar en la lista de contactos de Messeger

[<[(x)]>]

holas
 
 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 (vb) [Seleccionar] Expandir


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#

[EddyW]

La parte de for.. es la que vuelve tu procesador mas rapido ya que lo haces trabajar demasiado seguido y rapido, lo que deberias de hacer es algunas pequeñas pausas al menos 100 milisegundos, podrias hacerlo cambiando el Interval del timer, si no tambien podrias hacer pequeñas pausas con Sleep que esta en la API Guide...
Ahora no estoy en mi  PC asi que no puedo darte un ejemplo..
SaluDOS!!!

[XcryptOR]

usa la funcion sleep o DoEvents

[<[(x)]>]

uu que bolu como no me  voy a olvidar eso, jaja gracias = la proxima reviso
lo arregle con WaitMessage y DoEvents gracias jej..