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)

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   

Jeje, puedo ver el poder del VBS 

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

Saludos

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


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

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