Veo que no tiene adjuntada la imagen el exe, la lee del sistema, entonces todos los que bajaron el programa tienen el mismo problema?....
como hago para que quede adjuntada la imagen???, la idea es que se vea correctamente en cualquier pc.
este era 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=c:\documents and settings\administrador\mis documentos\programacion autoit\refranes\nuevo refranes.kxf
$Form1_1 = GUICreate("Refranes by G-MundoSoft", 618, 442, 186, 115)
$Button9 = GUICtrlCreateButton("visitar web del autor", 8, 408, 105, 25, 0)
GUICtrlSetCursor(-1, 0)
$Button10 = GUICtrlCreateButton("Agradecimientos a usted", 480, 408, 137, 25, 0)
GUICtrlSetCursor(-1, 0)
$Label1 = GUICtrlCreateLabel("G-MundoSoft by G.M.R", 248, 424, 115, 17)
$Label2 = GUICtrlCreateLabel("¿Qué es un refran?...", 56, 48, 104, 17)
GUICtrlSetBkColor(-1, 0x808040)
$Button11 = GUICtrlCreateButton("info", 64, 72, 81, 17, 0)
GUICtrlSetCursor(-1, 0)
$Label3 = GUICtrlCreateLabel("Opciones:", 56, 120, 52, 17)
GUICtrlSetBkColor(-1, 0x808040)
$Button1 = GUICtrlCreateButton("Ayuda", 24, 144, 57, 17, 0)
GUICtrlSetCursor(-1, 4)
$Button12 = GUICtrlCreateButton("Lic. de uso", 96, 152, 73, 17, 0)
$Button13 = GUICtrlCreateButton("versión", 24, 184, 57, 17, 0)
$Button14 = GUICtrlCreateButton("Salir", 88, 184, 49, 17, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor(-1, 3)
$Label4 = GUICtrlCreateLabel("Refranes del Mundo:", 272, 32, 103, 17)
GUICtrlSetBkColor(-1, 0x8080FF)
$Button2 = GUICtrlCreateButton("ver", 288, 56, 73, 17, 0)
GUICtrlSetCursor(-1, 0)
$Label5 = GUICtrlCreateLabel("Refranes explicados:", 256, 104, 103, 17)
GUICtrlSetBkColor(-1, 0x8080FF)
$Button3 = GUICtrlCreateButton("ver", 272, 128, 73, 17, 0)
GUICtrlSetCursor(-1, 0)
$Label6 = GUICtrlCreateLabel("Refranes y dichos populares:", 448, 200, 141, 17)
$Button4 = GUICtrlCreateButton("ver", 488, 224, 73, 17, 0)
GUICtrlSetCursor(-1, 0)
$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))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ##
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button11
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 $Button1
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 $Button12
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 $Button13
MsgBox(64, "versión", "Refranes by G-MundoSoft versión 1.8")
Case $Button14
Exit
Case $Button2
MsgBox(64, "Proverbio chino", "^Es mejor permanecer callado y parecer un tonto, que hablar y confirmarlo.^")
For $i = 1 To 1
MsgBox(64, "Proverbio árabe", "^Si tienes mucho, da tus bienes; si tienes poco, da tu corazón.^")
MsgBox(64, "Proverbio ruso", "^Procura volver a empezar, sin mirar atrás.^")
MsgBox(64, "Proverbio griego", "El arte de ser sabio es el arte de saber ignorar.^")
MsgBox(64, "Proverbio mexicano", "^Todos los hombres estamos hechos del mismo barro, pero no del mismo molde.^")
MsgBox ( 64, "Proverbio hindú", "^La más larga caminata comienza con un paso.^")
MsgBox ( 64, "Proverbio ruso", "Espera lo mejor y prepárate para lo peor.^")
MsgBox ( 64, "Proverbio griego", "^Caer está permitido. ¡Levantarse es obligatorio!^")
MsgBox ( 64, "Proverbio chino", "^El hombre es esclavo de lo que dice y dueño de lo que calla.^")
MsgBox ( 64, "Proverbio romano", "^Por la ignorancia nos equivocamos, y por las equivocaciones aprendemos.^")
MsgBox ( 64, "Proverbio hindú", "^Quién da, no debe acordarse; pero quien recibe, nunca debe olvidar.^")
MsgBox ( 64, "Proverbio ruso", "^Reza, pero no dejes de remar hacia la orilla.^")
MsgBox ( 64, "Proverbio sueco", "^Una alegría compartida se transforma en doble alegría; una pena compartida, en media pena.^")
MsgBox ( 64, "Proverbio chino", "^Si haces planes para un año, siembra arroz. Si los haces por dos lustros, planta árboles. Si los haces para toda la vida, educa a una persona.^")
Next
case $Button3
MsgBox ( 64, "refranes explicados1", "`Quien mucho abarca, poco aprieta`. ---------> Quien emprende muchas cosas a un tiempo, generalmente no desempeña ninguna bien. ")
MsgBox ( 64, "refranes explicados2", "`En casa de herrero, cuchillo de palo`. ----------> A veces falta una cosa en el lugar donde nunca debiera hacer falta.")
MsgBox ( 64, "refranes explicados3", "`A mal tiempo, buena cara.` ------------> Hay que saber sobrellevar los problemas de la vida.")
MsgBox ( 64, "refranes explicados4", "`A pan duro, diente agudo.` ------------> Para superar las dificultades, es necesario esforzarse.")
MsgBox ( 64, "refranes explicados5", "`Cuando hay hambre, no hay pan duro.` ------------> La necesidad obliga a valorar las cosas mínimas.")
MsgBox ( 64, "refranes explicados6", "`A falta de pan, buenas son tortas.` ------------> Cuando falta de algo, se valora lo que puede reemplazarlo.")
MsgBox ( 64, "refranes explicados7", "`Unos nacen con estrella y otros nacen estrellados.` ------------> Es diverso el destino de los hombres.")
MsgBox ( 64, "refranes explicados8", "`A palabras necias, oídos sordos.` ------------> No hay que hacer caso del que habla sin razón.")
MsgBox ( 64, "refranes explicados9", "`Nadie diga: de esta agua no he de beber` ------------> Ninguno está libre de que le suceda lo que a otro.")
MsgBox ( 64, "refranes explicados10", "`Ojos que no ven, corazón que no siente.` ------------> No se sufre por lo que no se sabe.")
MsgBox ( 64, "refranes explicados11", "`Quien tiene tienda, que la atienda; y si no que la venda.` ---------------> Cada uno debe vigilar bien sus negocios.")
MsgBox ( 64, "refranes explicados12", "`Perro que ladra, no muerde.` ------------> Los que hablan mucho, suelen hacer poco.")
MsgBox ( 64, "refranes explicados13", "`A quien madruga, Dios lo ayuda.` ------------> Muchas veces, el éxito depende de la rapidez y del esfuerzo.")
MsgBox ( 64, "refranes explicados14", "`A buen entendedor, pocas palabras bastan.` -------------> La persona inteligente, comprende rápido lo que se quiere decir.")
MsgBox ( 64, "refranes explicados15", "`Más vale pájaro en mano, que cien volando.` ------------> Se aplica a falsas promesas y proyectos irrealizables, que llevan a olvidar lo simple pero seguro.")
MsgBox ( 64, "refranes explicados16", "`Mucho ruido y pocas nueces.` -------------> Se aplica a quien habla mucho y obra poco.")
MsgBox ( 64, "refranes explicados17", "`Quien mal anda, mal acaba.` -------------> Quien vive desordenadamente, generalmente termina en un mal final.")
MsgBox ( 64, "refranes explicados18", "`Aquí hay gato encerrado.` ------------> Algo no está claro, y hay que desconfiar.")
MsgBox ( 64, "refranes explicados19", "`El que las hace, las paga.` -------------> Siempre llega el momento de rendir cuentas.")
Case $Button4
MsgBox ( 64, "refranes y dichos populares1", "`A bien obrar, bien pagar.`")
MsgBox ( 64, "refranes y dichos populares2", "`A buen amigo, buen abrigo.`")
MsgBox ( 64, "refranes y dichos popuares3", "`A barriga llena, corazón contento.`")
MsgBox ( 64, "refranes y dichos popuares4", "`A cada puerta su dueña.`")
MsgBox ( 64, "refranes y dichos popuares5", "`A casa de mi novia llevé un amigo: él se quedó adentro y yo despedido.`")
MsgBox ( 64, "refranes y dichos popuares6", "`A casa de tu tía, entrada por salida.`")
MsgBox ( 64, "refranes y dichos popuares7", "`A casa de tu hermano no vayas de ordinario, y menos si es casado.`")
MsgBox ( 64, "refranes y dichos popuares8", "`Pueblo chico, Infierno grande.`")
MsgBox ( 64, "refranes y dichos popuares9", "`A río revuelto, ganancia de pescadores.`")
MsgBox ( 64, "refranes y dichos popuares10", "`Al mal tiempo, buena cara.`")
MsgBox ( 64, "refranes y dichos popuares11", "`Amigo que no da, y navaja que no corta, si se pierden poco importa.`")
MsgBox ( 64, "refranes y dichos popuares12", "`Amor, amor, malo el principio y el fin peor.`")
MsgBox ( 64, "refranes y dichos popuares13", "`Antes que te cases, mira bien lo que haces.`")
MsgBox ( 64, "refranes y dichos popuares14", "`Año de avispas, año de nieves y ventiscas.`")
MsgBox ( 64, "refranes y dichos popuares15", "`Arbol que no da frutos, pide sustituto.`")
MsgBox ( 64, "refranes y dichos popuares16", "`Todo bicho que camina va a parar al azador` ¨Martín Fierro¨")
MsgBox ( 64, "refranes y dichos popuares17", "`Cuando entre hermanos se pelean, se aprovechan los de afuera.` ¨Martín Fierro¨")
MsgBox ( 64, "refranes y dichos popuares18", "`A río revuelto, ganancia de pescadores.`")
MsgBox ( 64, "refranes y dichos popuares19", "`Agua que no has de beber mejor déjala correr.`")
MsgBox ( 64, "refranes y dichos popuares20", "`A buen sueño, no hay mala cama.`")
Case $Button9
ShellExecute("http://gmundosoft.webcindario.com")
Case $Button10
MsgBox ( 64, "Agradecimientos a usted:", "^Gracias por confiar en la programación de G-MundoSoft.^")
EndSwitch
WEnd
