Backup Perfiles de Chrome

Igual al programa para Firefox pero en esta ocasión el programa respalda/restaura los perfiles del navegador Chrome.

Podemos bajarlo de aqui.

Leer más

Crea tu propio autorun para tus repacks (con NeoBook)

NeoBook es un programa de autoría multimedia, sencillo pero muy potente. Siguiendo con los tutoriales para crear un autorun a nuestras instalaciones de Repack hoy toca con Neobook que en este caso podremos crear una interfaz gráfica muchísimo mejor a la que podamos crear con Autoit,
En esta ocasión usaremos el juego Monkey Island™ 2 Special Edition: LeChuck's Revenge™ que es una remasterización del original aparecido allá por el año 1991 y que para los que no lo hayan jugado recomiendo muy muy encarecidamente hacerlo.
Como en el anterior realizado con AutoIT es imprescindible saber 1º la ID de nuestra instalación del repack con InnoSetup, como ya comenté para estar seguros lo mejor es asignarle la ID del nombre del juego, en este caso, en el script del InnoSetup:

#define AppName "Monkey Island 2 Special Edition"

y ya en la sección setup:

[Setup]
AppID={#AppName}

Ahora ya nos vamos al Neobook creamos un proyecto nuevo, agregamos las imagenes de fondo y creamos los botones (nada mejor que RealDraw de Mediachance para ello).



Una vez tengamos ya los botones, tenemos que crear el código, vamos a las propiedades de la pagina:



Y escribimos el codigo:

Sonido de inicio (opcional)

PlaySoundFile "D:\Datos\instalaciones\_autorun\sound\Risa2.mp3" "Normal"

Con este código lee la entrada, si esta instalado el juego, habilita los botones de jugar, se almacena el resultado el la variable (reg):

RegistryRead "HKEY_LOCAL_MACHINE" "\Software\Microsoft\Windows\CurrentVersion\Uninstall\Monkey Island 2 Special Edition_is1\InstallLocation" "[reg]"
if "[reg]" ">" ""
EnableObject "Lanzar"
else
DisableObject "Lanzar"
endif

Este habilita el botón de desinstalar, se almacena el resultado el la variable (reg2):

RegistryRead "HKEY_LOCAL_MACHINE" "\Software\Microsoft\Windows\CurrentVersion\Uninstall\Monkey Island 2 Special Edition_is1\UninstallString" "[reg2]"
if "[reg2]" ">" ""
EnableObject "Desinstalar"
else
DisableObject "Desinstalar"
endif


Ahora editamos los botones en este caso el de jugar:

Apariencia:



y acciones:



Acciones del botón desinstalar:



Y el botón de Instalar:



PlaySoundFile "D:\Datos\instalaciones\_autorun\sound\6_Click.wav" "Normal"
FileExists "setup.exe" "[file]"
If "[file]" "=" "False"
lgaMessageBox "Error" "Ejecuta la instalación desde la carpeta o unidad donde se encuentre el archivo setup" "2" "0"
  else
  Run "setup.exe" "" "Normal" "" ""
EndIf


Aquí use un plugins para Neobook llamado ”lgaDialog“ para hacer el mensaje más bonito, aunque el propio neobook tiene los propios.
Con esto ya tendríamos lo básico, luego podéis experimentar con NeoBook y añadirle más cosas, a gusto de cada uno.
Resultado “final”

Con juego instalado detectado:










No se detecto el juego instalado:

Leer más

Crea tu propio autorun para tus repacks

Y siguiendo con mi aprendizaje en Autoit esta vez les traigo un código en autoit para que podáis hacer vuestros propios autoruns en los repack con InnoSetup y Freearc que realicéis.
Básicamente el código verifica la instalación de tu repack por lo que yo recomiendo poner vuestras instalaciones la APPID del nombre del juego o programa para hacerlo mucho mas sencillo.
Tomamos como ejemplo “Cities Skilines”, lo 1º ha sido poner en la instalación de mi repack la APPID:

En el script del InnoSetup:

#define AppName "Cities Skilines"

[Setup]
AppID={#AppName}


Con esto creará en el registro al instalar la linea:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Cities Skylines_is1

Ahora ya tenemos lo esencial, creamos el formulario en Autoit (recomiendo Koda)



Una vez tengamos el formulario creamos ya el código:

con esto, verificamos que el juego esta instalado:

$Reg=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Cities Skylines_is1","InstallLocation")


Si no se ha detectado la línea, los botones Lanzar y desinstalar no se habilitarán.

if @error= 1 then
GUICtrlSetState($Button1, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
EndIf


Con esta variable descubrimos el desinstalador para el botón desinstalar:

$Reg2= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Cities Skylines_is1","UninstallString")


Aquí lanzamos el ejecutable con el botón lanzar:

case $Button1
Run ($Reg & "Cities.exe")


Y con esto lanzamos en desinstalador:

case $Button2
Run ($Reg2)
exit


Este botón verifica que se encuentra el “setup.exe” para instalarlo,si no lo encuentra lanza el mensaje que debes ejecutar la instalación en la unidad o carpeta donde este ubicado el “setup.exe”


case $Button3
if not FileExists ("setup.exe") Then
MsgBox($MB_OK+$MB_ICONERROR, "Error", "Tienes que ejecutar la instalación desde la unidad o carpeta en la que se encuentre el archivo setup.exe")
else
run ("setup.exe")
EndIf

Quedaría un ultimo botón que seria el de salir, ¿este es fácil no?
case $Button4
exit


Os pongo ahora el codigo completo para que podair entenderlo mejor y el resultado de como quedaría:

#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <MsgBoxConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 394, 219, 192, 124) GUISetBkColor(0xFFFFFF) $Button1 = GUICtrlCreateButton("Lanzar", 8, 184, 75, 25) $Button2 = GUICtrlCreateButton("Desinstalar", 112, 184, 75, 25) $Button3 = GUICtrlCreateButton("Instalar", 200, 184, 75, 25) $Button4 = GUICtrlCreateButton("Salir", 304, 184, 75, 25) $Pic1 = GUICtrlCreatePic("img.jpg", 8, 8, 372, 164) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $Reg= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Cities Skylines_is1","InstallLocation") if @error= 1 then GUICtrlSetState($Button1, $GUI_DISABLE) GUICtrlSetState($Button2, $GUI_DISABLE) EndIf $Reg2= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Cities Skylines_is1","UninstallString") While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $Button1 Run ($Reg & "Cities.exe") case $Button2 Run ($Reg2) exit case $Button3 if not FileExists ("setup.exe") Then MsgBox($MB_OK+$MB_ICONERROR, "Error", "Tienes que ejecutar la instalación desde la unidad o carpeta en la que se encuentre el archivo setup.exe") else run ("setup.exe") EndIf case $Button4 exit EndSwitch WEnd

Botones activados, detecto el juego instalado:




Botones desactivados, no esta el juego instalado:

Leer más

Backup perfiles de Firefox

Pequeño programa que he ido realizando con el recién descubierto Autoit , muy útil para la creación de script que automaticen algunas tareas, además es un lenguaje bastante potente.
Esta utilidad crea una copia de tus perfiles (carpeta Mozilla) y también los restaura, he incluido la utilidad “Speedyfox” que permite compactar la base de datos para agilizar su carga.

El respaldo se comprime con 7z.



Se restauran los perfiles con un SFX -7z.

Podéis bajar esta pequeña utilidad de aqui.

Leer más