Refranes by bath hack

[bath_hack]

Hola otra ves, lo modifique:
-el diseño general es el mismo pero arregle los botones q estaban mal escritos, hice el ejecutable d instalacion en español, ahora si c crea el acceso directo al programa, en la carpeta dond guardas el programa esta el archivo para desinstalar o sino directamente lo desinstalas desde panel d control agregar o quitar programas o sea d la forma tradicional, le cree el icono propio, algunos botones el cursor adquiere forma d manito, en la d ayuda el d un signo d interrogacion, le retoque todas las falas q tenia, ahora si c puede considerar un soft xq trae ejecutable d instalacion en español, tambien para desinstalarlo, archivo leame, archivo d licencia e info, ademas d su propio icono. Saludos.

Link d descarga:
http://www.gmundosoft.webcindario.com/descargas.html

[bath_hack]

Hola, haciendo una nueva versión me encontre q los botones no me responden y no se por que?
La imagen esta abajo, aparte me enseñan como hago para q pulsando un boton cada ves q lo pulse me aparezca un refran diferente.

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Refranes  by G-MundoSoft", 618, 442, 185, 118)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\imagenes\fondos escritorio\paisajes\quebrada del toro, salta, argentina.jpg", 0, 0, 617, 441, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("¿Qué es un refran? ", 32, 40, 113, 49)
$Button1 = GUICtrlCreateButton("info", 48, 64, 81, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Opciones ", 32, 128, 145, 89)
$Button2 = GUICtrlCreateButton("Ayuda", 40, 152, 57, 25, 0)
GUICtrlSetCursor (-1, 4)
$Button3 = GUICtrlCreateButton("Lic. de Uso", 104, 152, 65, 25, 0)
GUICtrlSetCursor (-1, 2)
$Button4 = GUICtrlCreateButton("versión", 40, 184, 57, 25, 0)
$Button5 = GUICtrlCreateButton("Salir", 112, 184, 57, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Refranes del Mundo ", 240, 32, 113, 49)
$Button6 = GUICtrlCreateButton("ver", 256, 56, 81, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Refranes y dichos populares ", 440, 216, 153, 49)
$Button7 = GUICtrlCreateButton("ver", 472, 240, 81, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Refranes explicados ", 256, 144, 113, 49)
$Button8 = GUICtrlCreateButton("ver", 272, 168, 73, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button9 = GUICtrlCreateButton("visitar web del autor", 8, 408, 105, 25, 0)
$Button10 = GUICtrlCreateButton("Agradecimientos a usted", 480, 408, 137, 25, 0)
$Label1 = GUICtrlCreateLabel("G-MundoSoft by G.M.R", 248, 424, 115, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Case $Button1
	 MsgBox ( 64, "Información", "Los refranes son dichos de origen popular que en forma figurada y pintoresca, muchas veces suelen encerrar enseñanzas morales de profunda sabiduría. Se emplean sin alteración alguna y buena parte de ellos es común en el resto del mundo.")
Case $Button2
	 MsgBox ( 64, "Ayuda", "Ayuda: Para ver los refranes divididos en categorías pulse el botón correspondiente. Lea la licencia de uso y gracias por utilizar nuestro software.")
Case $Button3
	 MsgBox ( 48, "Licencia de Uso", "Refranes by G-MundoSoft es un programa Freeware; Prohibida la copia parcial o total, comercializacion o distribución del programa sin autorización del autor.")
Case $Button4
	 MsgBox ( 64, "versión", "Refranes by G-MundoSoft versión 2.0")
Case $Button5
	 Exit
Case $Button6
	 $destination = @TempDir & "\mySplash.jpg"
FileInstall("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\imagenes/Imagen2.jpg", $destination)

SplashImageOn("refran", $destination ,500,400,-1,-1,16)
Sleep(9000)
SplashOff()
	 
	EndSwitch
WEnd	 

cuando pulsas en los botones no andan es como si no estubieran o como q estan congelados, q paso?

paso el miercoles por aca, saludos!