Autoit.ES

En español. Descarga programas libres y Open-Source. Añade tu programa a la librería de Scripts en Autoit.es
http://autoit.es/

Crear GUI para erd commander 2005

http://autoit.es/viewtopic.php?t=2280

Página 1 de 1

Crear GUI para erd commander 2005

Publicado: 24 Ago 2010, 14:52
por el manque
Hola, amigos:
Estoy creando un disco de rescate (un live CD)tipo bart pe. Encontré en un disco de este tipo, el SVE Micro Pe.CD, una modificación de ERD Commander 2005 funcional. Pretendo traducir las aplicaciones al español, y lanzarlas a través de una GUI.
Creé la GUI con Koda. Y ahí, quedé empantanado :smt009 . Leí el manual y me enredé. Mi edad (56 años) me está jugando una mala pasada :smt010 . ¿Cómo puedo hacer que cada botón me ejecute el .exe correspondiente?
Adjunto el código:

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=form2.kxf
$Form2 = GUICreate("Form1", 425, 313, 302, 218)
$Buscar = GUICtrlCreateButton("Buscar archivo", 24, 80, 139, 25)
$Manejar = GUICtrlCreateButton("Manejador PC", 24, 112, 139, 25)
$crash = GUICtrlCreateButton("Crash Analyzer", 24, 144, 139, 25)
$hotfix = GUICtrlCreateButton("Desinstalar HotFix", 24, 176, 139, 25)
$restarch = GUICtrlCreateButton("Restaurar archivo", 24, 208, 139, 25)
$Restsist = GUICtrlCreateButton("Restaurar sistema", 24, 240, 139, 25)
$logo = GUICtrlCreatePic("c:/dos.bmp", 184, 16, 225, 169)
$salir = GUICtrlCreateButton("Salir", 24, 272, 139, 25)
$Ratita = GUICtrlCreateLabel("Ratita", 8, 8, 163, 72)
GUICtrlSetFont(-1, 36, 800, 0, "Arial Black")
GUICtrlSetColor(-1, 0xFF0000)
$erd = GUICtrlCreatePic("c:/tres.bmp", 184, 192, 220, 84)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $restarch
	EndSwitch
WEnd
Gracias
El manque

Re: Crear GUI para erd commander 2005

Publicado: 24 Ago 2010, 19:51
por Andres_sc
Bueno yo igual soy nuevo en autoit te podria ayudar con esto :smt001

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=form2.kxf
$Form2 = GUICreate("Form1", 425, 313, 302, 218)
$Buscar = GUICtrlCreateButton("Buscar archivo", 24, 80, 139, 25)
$Manejar = GUICtrlCreateButton("Manejador PC", 24, 112, 139, 25)
$crash = GUICtrlCreateButton("Crash Analyzer", 24, 144, 139, 25)
$hotfix = GUICtrlCreateButton("Desinstalar HotFix", 24, 176, 139, 25)
$restarch = GUICtrlCreateButton("Restaurar archivo", 24, 208, 139, 25)
$Restsist = GUICtrlCreateButton("Restaurar sistema", 24, 240, 139, 25)
$logo = GUICtrlCreatePic("c:/dos.bmp", 184, 16, 225, 169)
$salir = GUICtrlCreateButton("Salir", 24, 272, 139, 25)
$Ratita = GUICtrlCreateLabel("Ratita", 8, 8, 163, 72)
GUICtrlSetFont(-1, 36, 800, 0, "Arial Black")
GUICtrlSetColor(-1, 0xFF0000)
$erd = GUICtrlCreatePic("c:/tres.bmp", 184, 192, 220, 84)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
Case $nMsg = $GUI_EVENT_CLOSE
            case $nMsg = $Buscar
				 MsgBox(0, 'Terminado', 'Archivos encontrados'); abre un msgbox al precionar el boton 
				 Case $nMsg = $GUI_EVENT_CLOSE
            case $nMsg = $Manejar
                 MsgBox(0, 'Terminado', 'Manejar pc ?')
			case $nMsg = $crash
            	MsgBox(0, 'Terminado', 'analyzer crash ?')
            case $nMsg = $hotfix
				MsgBox(0, 'Terminado', 'estas seguro que quieres desinstalar hotfix ?')
			Case $nMsg = $restarch
				MsgBox(0, 'Terminado', 'Archivo restaurado con exito') 
			case $nMsg = $Restsist
                MsgBox(0, 'Terminado', 'Restaurar sistema ?')
			Case $GUI_EVENT_CLOSE, $salir
				MsgBox(0, 'Terminado', 'Gracias por utilizar Ratita')
            GUIDelete($Form2)

   EndSwitch
WEnd
supongo que tenes que fijarte dentro de cada boton ke aga lo que keres ke aga :smt003
yo le puse un msgbox a cada boton como ejemplo en tu caso tendrias ke usar otras funciones :smt023
tambien puse para ke se cierre el gui con el boton salir despues ke salga el msgbox que por cierto
le agradesco las enseñansas a Ximoroo :smt038
saludos :smt006

Re: Crear GUI para erd commander 2005

Publicado: 24 Ago 2010, 21:11
por el manque
Hola de nuevo
Gracias por tu respuesta andrés.
Vamos a ver que pasa :smt031
el manque

Re: Crear GUI para erd commander 2005

Publicado: 25 Ago 2010, 09:32
por Ximorro
Hola, bienvenido al foro, pero aunque sea tu primera entrada no es correcto ponerla en el grupo de Presentación/Bienvenida, si es una consulta hay que ponerlo en consultas...

Bueno Andrés gracias por el reconocimiento pero el Switch no funciona así, lo has puesto tipo Select, que es parecido pero no lo mismo, no hay que hacer cada comprobación en los case. Que conste yo no te he enseñado eso... :smt003
La estructura es esta:

Código: Seleccionar todo

Switch $nMsg
Case $GUI_EVENT_CLOSE
    ;Código para salir
Case $btn1
    ;Código del botón 1
Case $btn2
    ;Código del botón 2
EndSwitch
Cada valor que pongas en los Case se compara con la expresión/variable que pones en el Switch (en este caso $nMsg), no hay que hacer las comparaciones explícitas.

Re: Crear GUI para erd commander 2005

Publicado: 25 Ago 2010, 12:57
por Chefito
Bienvenido.

Te recomiendo que te mires en la ayuda las funciones Run, RunWait, ShellExecute, ShellExecuteWait que son para ejecutar archivos exe.

Saludos.

Re: Crear GUI para erd commander 2005

Publicado: 25 Ago 2010, 14:51
por el manque
hola, chefito
Supongo que me servirá de excusa el que yo no sabía...
En el campo chileno hay un dicho: tropezón no es queida (caída). :smt009
Mira, el caso es que ví esa parte de la ayuda, en serio, pero no la entendí( "comprender no lo pudí", como dice Gonzalo de Berceo). :smt017
Te molestaría explicármelo con algún ejemplo (es decir, con peras y manzanas, como diría mi abuela).
Saludos
Armando

Re: Crear GUI para erd commander 2005

Publicado: 25 Ago 2010, 21:49
por Chefito
el manque escribió:Supongo que me servirá de excusa el que yo no sabía...
Sí, por mi parte te puede servir de excusa que no conozcas las funciones que hacen esto.
el manque escribió:Mira, el caso es que ví esa parte de la ayuda, en serio, pero no la entendí( "comprender no lo pudí", como dice Gonzalo de Berceo).
Te molestaría explicármelo con algún ejemplo (es decir, con peras y manzanas, como diría mi abuela).
Esto no me sirve de excusa :smt009 . Si te he dado las funciones, simplemente tienes que buscarlas en la ayuda, intentar traducirlas si no las entiendes (y si eso te la bajas en español que está traducida por el grupo de novii http://www.emesn.com/autoitforum/viewto ... 1903#p8335) e intentar hacer algo de código, el cual aun no he visto nada (no me vale el creado por koda :smt011 ).
En la ayuda te pone unos ejemplos muy simples y facilones, entendibles por cualquier persona, no importando sexo, edad, origen, etc :smt005 :smt005 .
Eso sí, si intentas hacer algo de código y no entiendes algún parámetro, cuelga el código y dinos que te pasa.

Saludos.
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España