Autor rinaldo , sacado de fileforums, nada modificado solo la traducción al Español.
Podeis bajarlo aqui
Segun comentan los autores el script es una modificación del 3D Max Style, autores “Sergey3695” y “FormatCeft” el original lo podéis bajar de krinkels, ha sido un script bastante difícil porque faltaban partes del idioma Ingles que es el que he modificado.
Modificaciones: Idioma Ingles cambiado al Español y alguna modificación de paginas.
Último script hasta una temporada que me tomo un descanso, o hasta que salga un script nuevo que considere digno de traducir.
Lo podemos bajar de aquí.
Autor del Script “ARS_23” podéis bajar el script original de krinkels, hay algunas cosas sin traducir pero lo esencial esta todo traducido, la razón es que hay gente a veces desagradecida y se le quitan a uno las ganas de seguir con las traducciones o al menos para compartirlas, es un hobby que hago para mi y también para compartir con los demás.
Bueno al asunto, este script fue especialmente difícil porque estaba todo en ruso, esta modificada para la compresión con MSC y alguna cosilla más.
Podéis bajarlo de aquí.
#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 |