Labot ©

Hasta la muerte todo es vida

2008/02/18

Jugando con Skype I. Cambiar el Mood



Lo confieso: yo también fui programador (1).

En mi empresa, el SKYPE es ahora "corporativo". Esto quiere decir que su uso es obligatorio y, además, que debes indicar en todo momento dónde te encuentras. Para ello, tienes que modificar el "Mood" o "Mensaje de estado de ánimo" (2).

Así que (1+2) cada vez que enciendo el portátil tengo que abrir la ventana de SKYPE y editar mi "estado de ánimo" (¿qué cómo estoy? jodido, ¿no ves que estoy trabajando?). Esto es una putada porque si te olvidas, tu jefe piensa que estás donde no deberías y te llama para comprobar que no has cambiado el texto del SKYPE ("¿Qué haces en Vigo? ¿no te dije que la comida era en Toledo? Hay que ser gilipollas", etc. etc.).

Ante esta situación insostenible, Labot invirtió un par de horas (laborables) el otro día y desarrolló un aplicativo software que cambia automáticamente el mensaje Mood al encender el PC (en realidad, un simple script VBS). Este maravilloso script está aquí mismo, disponible gratuitamente, al final de este mismo post. El manual también se incluye en el post.

Gratis "means" gratis. No admitiré dinero, subvenciones, regalos ni favores de ningún tipo a cambio.

Requisitos
1. Tener SKYPE. Si no usas SKYPE no sé porqué coño lees esto.
2. Tener WINDOWS (XP, VISTA, lo-que-sea) y no tener ninguna preocupación por la seguridad ("as I don't").

Instalación
1. copia y pega el código del script (lo que está dentro del cuadro gris) en tu editor de texto favorito y guárdalo, por ejemplo, en el escritorio. Llámalo "Change_Your_Mood_(by_Labot)_v1-1.vbs" (si quieres). La extensión "VBS" es necesaria.
2. si quieres que se ejecute automáticamente al inicio de sesión, copialo en la carpeta "Inicio" (ya sabes dónde).

Utilización
1. Ejecuta el script. Tiene que estar donde lo dejaste.
2. Sale una ventana para cambiar la primera línea de tu mensaje. Admite tags HTML básicos, de esos que usas en tu blog (<b>,<font color="#205510">,<a href>, etc.).


3. Sale otra ventana donde puedes añadir o cambiar la segunda línea del mensaje. Yo aquí pongo un poco de publi.



Ya está, fácil y limpio. Esto feo de aquí abajo es el script.

'~~[author]~~
'Labot (http://labot.blogspot.com/)
'~~[/author]~~

'~~[emailAddress]~~
' labot@orange.es
'~~[/emailAddress]~~

'~~[scriptType]~~
'vbscript
'~~[/scriptType]~~

'~~[version]~~
'V1.1
'~~[/subType]~~

'~~[comment]~~
'Jugando con el interfaz COM de SKYPE
' El objetivo es tener una herramienta que actualice el mensaje de estado de ánimo (mood) de SKYPE
' cada vez que se enciende el PC (o de forma muy ágil)
'
' Versión 1.0
' Muestra el estado actual y permite modificarlo.
'
' Versión 1.1
' Trata el mensaje en dos líneas (la primera con el estado estándar y
' la segunda con una frase adicional o una URL)
'
'~~[/comment]~~

'~~[script]~~
option explicit 'para evitar usar variables no definidas

' Variables
dim oSkype, mimoodrich, linea1, linea2, eol, position

' Accedo al interfaz COM de SKYPE
Set oSkype = CreateObject("Skype4COM.Skype")
oSkype.Attach
' Leo el contenido actual del Mood (rich)
mimoodrich = oSkype.CurrentUserProfile.RichMoodText

' Lo parseo en dos líneas
eol = Chr(13) & Chr(10)
position = InStr(mimoodrich, eol)

if position = 0 then 'Sólo tenía una línea
linea1 = mimoodrich
linea2 = ""
else
linea1 = left( mimoodrich, position-1)
linea2 = right( mimoodrich, len(mimoodrich) - position -1)
end if

' Ahora muestro el valor actual y permito al usuario cambiarlo
linea1 = inputbox("Actualiza tu estado", "Quick mood update by Labot", linea1)


' Si cancela la primera línea no cambio nada
if Not IsEmpty(linea1) then
linea2 = inputbox("Puedes añadir una segunda línea","Quick mood update by Labot", linea2)

oSkype.CurrentUserProfile.RichMoodText = linea1 & eol & linea2
End If

'~~[/script]~~




4 Comentarios:

At 11/17/2015 04:17:00 a. m., Blogger ninest123 Ninest:

ninest123 11.17
christian louboutin shoes, christian louboutin uk, replica watches, louis vuitton outlet, nike outlet, longchamp outlet, louis vuitton, louis vuitton, prada outlet, oakley sunglasses wholesale, oakley sunglasses, jordan shoes, prada handbags, michael kors outlet online, ray ban sunglasses, louis vuitton outlet, michael kors outlet store, michael kors outlet online, tory burch outlet, longchamp outlet, michael kors outlet, ray ban sunglasses, burberry handbags, michael kors outlet online, gucci handbags, polo ralph lauren outlet online, tiffany and co, tiffany jewelry, michael kors outlet, nike air max, burberry outlet, christian louboutin outlet, ray ban sunglasses, ugg boots, oakley sunglasses, christian louboutin, longchamp outlet, uggs on sale, oakley sunglasses, nike free, replica watches, ugg boots, nike air max, uggs outlet, uggs outlet, polo outlet, cheap oakley sunglasses, louis vuitton outlet

 
At 11/17/2015 04:20:00 a. m., Blogger ninest123 Ninest:

sac hermes, mulberry uk, sac vanessa bruno, hogan outlet, nike blazer pas cher, nike tn, true religion jeans, nike air max uk, michael kors outlet, nike air force, polo ralph lauren, nike huaraches, nike air max uk, polo lacoste, air max, converse pas cher, sac longchamp pas cher, north face uk, ray ban pas cher, coach outlet store online, true religion outlet, true religion outlet, north face, hollister pas cher, ray ban uk, true religion outlet, lululemon canada, ralph lauren uk, coach purses, michael kors, jordan pas cher, hollister uk, vans pas cher, michael kors pas cher, nike roshe, oakley pas cher, new balance, nike roshe run uk, coach outlet, nike air max, louboutin pas cher, timberland pas cher, burberry pas cher, guess pas cher, abercrombie and fitch uk, nike free uk, michael kors, nike free run, longchamp pas cher, nike trainers uk

 
At 11/17/2015 04:22:00 a. m., Blogger ninest123 Ninest:

iphone 6 plus cases, nike roshe run, ferragamo shoes, asics running shoes, oakley, north face outlet, celine handbags, baseball bats, iphone 6s plus cases, iphone cases, north face outlet, mcm handbags, iphone 6 cases, giuseppe zanotti outlet, abercrombie and fitch, beats by dre, gucci, mont blanc pens, timberland boots, s6 case, jimmy choo outlet, new balance shoes, mac cosmetics, iphone 6s cases, soccer jerseys, vans, wedding dresses, babyliss, instyler, lululemon, bottega veneta, vans outlet, ralph lauren, hollister, chi flat iron, p90x workout, valentino shoes, insanity workout, hollister clothing, nike air max, herve leger, ghd hair, soccer shoes, ipad cases, nfl jerseys, louboutin, converse, hermes belt, ray ban, reebok outlet, iphone 5s cases, nike air max

 
At 11/17/2015 04:24:00 a. m., Blogger ninest123 Ninest:

moncler uk, michael kors handbags, moncler, louis vuitton, moncler, lancel, ugg,ugg australia,ugg italia, ugg uk, doudoune moncler, louis vuitton, links of london, moncler outlet, marc jacobs, swarovski crystal, louis vuitton, hollister, moncler, ugg pas cher, pandora jewelry, juicy couture outlet, barbour uk, converse outlet, canada goose outlet, canada goose, karen millen uk, pandora charms, juicy couture outlet, toms shoes, canada goose outlet, ugg, canada goose jackets, michael kors outlet, canada goose outlet, barbour, doke gabbana, ugg,uggs,uggs canada, louis vuitton, swarovski, pandora jewelry, moncler, louis vuitton, canada goose, supra shoes, thomas sabo, montre pas cher, canada goose, canada goose uk, moncler outlet, wedding dresses, replica watches, pandora uk, coach outlet
ninest123 11.17

 

Publicar un comentario

<< Inicio