[VBS] Enviar mensajes a MSN messenger

[Novlucker]

Zaraki_lkenpachi

Del objeto Messenger.UIAutomation simplemente googlea con ese texto y te apareceran varios ejemplos, algunos en VB,pero igualmente sirve... en la web de microsoft también encontrarás información sobre la API del messenger 

Sobre el tema de los procesos... igual google que seguro encuentras.. pero lo encontrarás por WMI(click para info)..... que permite obtener muchisima información valiosa del sistema... el inconveniente es que muchas veces se necesitan privilegios de administrador.. pero casi todo el mundo utiliza la cuenta por defecto de win... la cual viene con esos privilegios 

wizard_0

Es como tu dices...es que lo he publicado como prueba de concepto para quién quisiera probarlo  .. es por eso que he utilizado la condición de que ambos esten conectados.... 

Saludos

[Zaraki_lkenpachi]

Muchas Gracias NovLucker ya encontre informacion Acerca de eso en el msdn de Microsoft hay muy poca pero ya e leido no sabia que se podia agregar y eliminar contactos xD eee pero tengo una curiosidad en tu codigo

Set iM = objMsn.InstantMessage(contacto.signinname)

InstantMessage <<< Abrir la ventana del msn de tu contacto porque lo almacenas en la variable iM ?? si luego no la utilizas solo para que no se abran todas las ventanas de tus contactos conectados ? por que al poner (contacto.signinname) dentro del bucle va te van a salir muchas ventanas pero lo que quiero saber es como para que la almacenas en iM .. pues yo pense almacenar el OpenInBox dentro de una variable  para ver si derrepente me daba la URL de su Bandeja de Entrada ya con la autentificacion del Usuario  pero me salio vacio sabes si se puede lograr eso ?

Muchisimas Gracias 

[Novlucker]

Lo que hago con esta línea.. es crear la ventana de contacto... si la ventana estubiese abierta ya... no sería necesaria esta línea.. pero en definitiva.. con esto lo que se hace es crear la ventana, y para eso, es necesario guardar esta orden en una variable, en este caso IM.

Con la función OpenInbox, que también está explicada en msdn, lo único que haces es abrir una nueva ventana del explorador con la casilla de entrada del correo, es como darle al botón con el sobre, "Abrir mi bandeja de entrada de correo", pero solo eso.... 

Saludos

[Zaraki_lkenpachi]

Asi pues yo aca practicando abri la ventana solo con
Obj_MSN.InstantMessage("Correo@Hotmail.Com") y luego le envio el mensaje y eso que todas mis ventanas estan cerradas
Creo que la almacenas en caso de que ya este abierta es la ventana para crear una nueva cierto o me equivoco xD ...

Si puedes dame la liga del ejemplo del MSDN que yo puse en el buscardor y solo me salieron 6 ejemplos del Messenger.UIAutomation y para agregar un contacto sabes me sale error"No Coinciden los tipos 'AddContact' "

Pongo esto : Obj_MSN.AddContact("Corre@hotmail.com")

Muchas Gracias

[Novlucker]

Asi pues yo aca practicando abri la ventana solo con
Obj_MSN.InstantMessage("Correo@Hotmail.Com") y luego le envio el mensaje y eso que todas mis ventanas estan cerradas
Creo que la almacenas en caso de que ya este abierta es la ventana para crear una nueva cierto o me equivoco xD ...

Es que en realidad, realmente en mi code no es del todo necesario guardar la ventana en una variable, ya que como tu dices.. igualmente se envía.. pero en el caso de querer realizar algo más con la ventana, si hay que guardarla en una variable... por ejemplo y siguiendo con mi code...

Código (vb) [Seleccionar] Expandir

Set iM = objMsn.InstantMessage(contacto.signinname)
iM.close

Como ves, con close la cierro, y es necesario haberla guardado antes 

AddContact funciona así.....

Código [Seleccionar] Expandir

Obj_MSN.AddContact 0, "Corre@hotmail.com"

Con eso abres la ventana, luego si quieres con un sendkeys puedes terminar de agregar al contacto.. pero no es automático como quieres hacerlo 

Saludos

[Zaraki_lkenpachi]

o valla valla muchas gracias por la informacion y las molestias  salio la ventana de agregar contactos que lastima yo pensaba que se agregaba sin decirme nada si puedes enviarme algo de informacion acerca de las como usar una API en VBS 

Gracias por Todo

[Novlucker]

Bueno.. si te refieres a la API del messenger.. ya lo estás haciendo a traves del objecto Messenger.UIAutomation, si lo que te refieres es a utilizar las demás APIs de win desde *.vbs.... es imposible, no, sin hacer uso de algún programa externo.. como lo es excel... 

Mira....

Utilizar APIs de Windows en VBScript

Saludos

[CICOLO_111234]

Komo se pueden mandar archivos asi ? He probao con sendfile y nada... 

[Novlucker]

Komo se pueden mandar archivos asi ? He probao con sendfile y nada... 

Hasta donde se, no se puede  , en lenguajes como VB debes de jugar con el portapapeles, creando un zip, enviandolo al portapapales, y pegando su contenido en la ventana de conversación, pero en vbscript no se puede jugar con el portapapeles  , salvo para texto, nada de imagenes y demás 

Saludos

[Darioxhcx]

lo que pasa es que esta en el msn 8.1 o superior seguramnete , al escribir con el MsN plus intalado
"/sendfile"
mas la ruta , x ejemplo
"/sindfile C:\archivo.txt"
se envia el archivo .txt

capas que con vbs , tenes q interpretas el caracter "\" con algun simbolo o algo por el estilo no se, algo parecido pasa con nircmd

pero tendrias que probar pa
saludos