Autoit.ES

Publicado: **26 Nov 2006, 01:59**

Este Script tiene como objetivo a los usuarios q no les gusta o no se han adaptado al Live. Entonces tienen un acceso directo a este programa, con el que se alterna de una versión a otra. No necesita apagar el messenger para alternar.

Hay que copiar desde la carpeta de archivos de programa, los 3 messengers a una carpeta de backup, de la que restauramos el que queremos para activarlo.
1) Windows messenger(viene con el XP)
2) Msn Messenger (probado con 7.5)
3) Msn Live messenger

Estas son las 3 variables a personalizar depende de donde guardes los ficheros de backup, admite ruta UNC de red:

$red_messenger_viejo="Unidad de disco\carpeta\Messenger"
$red_messenger7="Unidad de disco\carpeta\MSN Messenger"
$red_messenger="Unidad de disco\carpeta\MSN Messenger1"
tambien en el backup renombramos la terminación del principal .exe, a .000, (msnmsgr.000), para protegerlos de posibles ataques de virus.
Siempre borramos la versión existente totalmente y la dejamos como nueva.(atención por si guardais algo dentro de la carpet)

Código: Seleccionar todo

;Author: Basicos www.autoit.es 5/09/06
Opt("WinTitleMatchMode",1)
ProcessClose("msnmsgr.exe")
ProcessWaitClose("msnmsgr.exe",3)
$archivos_messenger= "c:\Archivos de Programa\MSN Messenger\msnmsgr.exe" 
$red=
$red_messenger_viejo="Unidad de disco\carpeta\Messenger"
$red_messenger7="Unidad de disco\carpeta\MSN Messenger"
$red_messenger="Unidad de disco\carpeta\MSN Messenger1"
$ORIGEN=""
$version=""
if not fileexists($Archivos_messenger) then  DirCopy($red_messenger7,"c:\Archivos de Programa\MSN Messenger",1) 
IF FileGetSize ($Archivos_messenger) =filegetsize($red_messenger7 & "\msnmsgr.000") then 
$origen=$red_messenger
$version=" version nueva "
endif
IF FileGetSize ($Archivos_messenger) =filegetsize($red_messenger&"\msnmsgr.000") then 
$origen=$red_messenger7
$version=" version  antigua "
endif
DirRemove("c:\Archivos de Programa\MSN Messenger",1)
SplashTextOn("Procesando..", "Ya hemos borrado la que estaba y ahora estamos activando la " & $version , 200,150,100,100, 4, "", 16)
if not FileExists("c:\Archivos de Programa\Messenger\msmsgs.exe") then 
	DirCopy($red_messenger_viejo,"c:\Archivos de Programa\Messenger",1) 
	filemove("c:\Archivos de Programa\Messenger\msmsgs.000","c:\Archivos de Programa\Messenger\msmsgs.exe",1)
	sleep(1500)
endif
if FileExists("c:\Archivos de Programa\Messenger\msmsgs.exe") then  run("c:\Archivos de Programa\Messenger\msmsgs.exe","", @SW_MAXIMIZE )
if DirCopy($origen,"c:\Archivos de Programa\MSN Messenger",1) then
SplashTextOn("Procesando..", "Ya se copió ahora lo arrancamos", 200,150,100,100, 4, "", 16)
else
SplashTextOn("Procesando..", "No se ha podido copiar", 200,150,100,100, 4, "", 14)
endif

if fileexists("c:\Archivos de Programa\MSN Messenger\msnmsgr.000") then
filemove("c:\Archivos de Programa\MSN Messenger\msnmsgr.000","c:\Archivos de Programa\MSN Messenger\msnmsgr.exe",1)
sleep(300)
run("c:\Archivos de Programa\MSN Messenger\msnmsgr.exe","", @SW_MAXIMIZE )
sleep(800)
ProcessWait("msnmsgr.exe",2)
run("c:\Archivos de Programa\MSN Messenger\msnmsgr.exe","", @SW_MAXIMIZE )
	;WinSetState("messenger","",@SW_MAXIMIZE)
	msgbox(0,"Abra ahora", " Abra ahora el messenger",6)
Else
	msgbox(0,"No existe", " No existe el messenger",6)
endif
SplashOff()
exit

Autoit.ES

Alternar en el mismo PC, Win Msger, msn Messenger y el Live

Alternar en el mismo PC, Win Msger, msn Messenger y el Live