 Autor
|
Tema: [VBS] Enviar mensajes a MSN messenger (Leído 15,501 veces)
|
Novlucker
Ninja y
Colaborador
 Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Zaraki_lkenpachiDel 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_0Es 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
|
|
|
|
« Última modificación: 21 Julio 2008, 08:27 am por Novlucker »
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
Zaraki_lkenpachi
Desconectado
Mensajes: 54
|
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 
|
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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 |
|
|
|
« Última modificación: 21 Julio 2008, 08:37 am por Novlucker »
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
Zaraki_lkenpachi
Desconectado
Mensajes: 54
|
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 |
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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... Set iM = objMsn.InstantMessage(contacto.signinname) iM.close
Como ves, con close la cierro, y es necesario haberla guardado antes  AddContact funciona así..... 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
|
|
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
Zaraki_lkenpachi
Desconectado
Mensajes: 54
|
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 |
|
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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 VBScriptSaludos |
|
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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
|
|
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein |
|
|
Darioxhcx
Desconectado
Mensajes: 2.294
|
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
|
|
|
|
|
En línea
|
|
|
|
|
 |
