Foro de elhacker.net

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:

 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#

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!!!

usa la funcion sleep o DoEvents

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