como agregar una imagen
Publicado: 21 Jul 2010, 21:13
hola de nuevo por aca, me gustaria saber si alguien puede ayudarme a poner una imagen de fono.
espero que me puedan ayudar.
espero que me puedan ayudar.
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/
Código: Seleccionar todo
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $gui, $guiPos, $pic, $picPos
Esto()
Func Esto()
Local $n, $msg
GUICreate("My ", 335, 330, -1, -1, $WS_SIZEBOX + $WS_SYSMENU)
GUISetState(@SW_SHOW)
GUICtrlCreateLabel("Topic", 8, 50)
$topic1 = GUICtrlCreateInput("Aca pones un Topic", 100, 50, 200)
$startbutton4 = GUICtrlCreateButton("Start", 140, 220, 60)
$stopbutton5 = GUICtrlCreateButton("Stop", 140,250,60)
GUISetBkColor(0xE0EBFF)
$n = GUICtrlCreatePic("AR.jpg", 0, 0, 335, 330)
GUISetState()
While 1
$msg = GUIGetMsg()
sleep(3000)
$send1 = GUICtrlRead($Topic1)
$sleep1 = GUICtrlRead($Topic1)
send("{#}addtopic ")
Send($send1)
send("{ENTER}")
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
sleep(5000)
GUIDelete()
EndFunc
Código: Seleccionar todo
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $gui, $guiPos, $pic, $picPos
Esto()
Func Esto()
Local $n, $msg
GUICreate("My ", 335, 330, -1, -1, $WS_SIZEBOX + $WS_SYSMENU)
$n = GUICtrlCreatePic("AR.jpg", 0, 0, 335, 330)
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUICtrlSetState(-1, $GUI_DISABLE)
EndFunc
jajaj no ay dramaa amigo.. para eso estamos para acosejarnos los unos a los otrosAndres_sc escribió:Primero que nada pido disculpas, no sabia donde hacer mi pregunta
segundo gracias por responder y los consejos espero que me tengan paciencia
ya que soy nuevo en autoit y me gusta mucho y quiero aprender todo lo que
sea necesario .
Código: Seleccionar todo
$n = GUICtrlCreatePic("AR.jpg", 0, 0, 335, 330)
GUICtrlSetState(-1, $GUI_DISABLE)
EndFunc
Andres_sc escribió:No entiendo como crear los controles despues de la imagen me podrias poner un ejemplo?
Código: Seleccionar todo
#include <GuiConstantsEx.au3>
GUICreate("xD", 322, 360, 192, 124) ; Creamos el GUi.. (permanece oculto)
$boton = GUICtrlCreateButton("Button1", 112, 312, 97, 33) ; Creamos un boton..
GUICtrlSetState($boton, $GUI_DISABLE) ; Le damos el estado de desactivado
GUICtrlCreateEdit("", 8, 8, 305, 289) ; Creamos un control edit...
GUICtrlSetData(-1, "Soy un Edit xD") ; Le establecemos cierta info xD
GUISetState(@SW_SHOW) ; Muestro la El GUI
While 1
If GUIGetMsg() = -3 Then Exit; Salimos
WEnd
cuando lo ago andar no sale nada, funciona pero yo kiero que se vea para poder usar el boton$n = GUICtrlCreatePic("AR.jpg", 0, 0, 335, 330)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Código: Seleccionar todo
GUICreate("My ",...)
$n = GUICtrlCreatePic("AR.jpg",...)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Topic", ...)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$startbutton4 = GUICtrlCreateButton("Start", ...)
GUISetState(@SW_SHOW)
revisa la funcion FILEINSTALL()Andres_sc escribió:A ver quie me puede ayudar, como ago para compilarlo y que la imagen quede dentro del compilado
asi puede ser usado en otra pc sin nesecidad de andar con la imagen al lado
aver si sale ayuda gracias gente
Nooo.. esdta bien usar FileInstall("origen", "Destino", 1)Andres_sc escribió:Muchas gracias por la ayuda y consejos y estuve probando como dijo
gna08 pero si no entendi mal es casi lo mismo que andar con el exe y la imagen no ?
y con respecto a lo que dico ximorro es lo que estaba tratando de hacer usar el
Resource Hacker para poder agregarle la imagen al exe.
Pero pense que avia una manera mas sencilla de agregar la imagen al exe
igual muchas gracias por la ayuda cada vez se aprende mas y cada dia estoy
mas conforme de AUTOIT .
SEGUIREMOS POR MAS !! saludos gente
Código: Seleccionar todo
FileInstall("imagen.jpg", @TempDir & "\", 1)
$img1 = @TempDir & "\imagen.jpg"
Código: Seleccionar todo
FileDelete($img1)
Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Sleep(2000)
GUICreate("Auto escribe", 250, 200)
FileInstall("C:\Documents and Settings\pc\Escritorio\sasa\AR.jpg", @TempDir & "\", 1)
$img1 = @TempDir & "\AR.jpg"
$Pic1 = GUICtrlCreatePic("AR.jpg", 0, 0, 250, 200, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Logear ", 100, 50)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "Algerian")
$Empesar1 = GUICtrlCreateInput("Aca escribis algo ", 20, 80, 200)
$startbutton2 = GUICtrlCreateButton("Empesar", 50, 120, 70)
GUICtrlSetFont(-1, 10, 400, 0, "Algerian")
$stopbutton3 = GUICtrlCreateButton("Terminar", 130, 120, 70)
GUICtrlSetFont(-1, 10, 400, 0, "Algerian")
GUISetState(@SW_SHOW)
Sleep(4000)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $startbutton2
Sleep(5000)
$send1 = GUICtrlRead($Empesar1)
$stopbutton3 = GUICtrlCreateUpdown($send1)
While 1
Send($send1)
Send("{ENTER}")
Send($send1)
Send("{ENTER}")
Send($send1)
Send("{ENTER}")
Send($send1)
Send("{ENTER}")
Send($send1)
Send("{ENTER}")
Send($send1)
Send("{ENTER}")
Send($send1)
Send("{ENTER}")
Send($send1)
Send("{ENTER}")
Send($send1)
Send("{ENTER}")
sleep(5000)
$send1 = GUICtrlCreateUpdown($Empesar1)
$stopbutton3($send1)
WEnd
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
FileDelete($img1)
WEnd
efectibamente es copy - pasteEl au3 en sí no da error de compilación, un poco raro... ¿Lo has copiado a mano? porque tiene una falta de ortografía (Expeted), si has hecho copy-paste y el original es así deberíamos decírselo a los de AutoIt
eso queria ke me dijeran los horrores que tengoEl programa tiene bastantes errores, de todas maneras... más bien conceptuales...
en principio puse el sleep del principio por ke antes empezaba a escribir solo sin darle al boton empezar (creo ke ya esta solucionado) lo podria sacar.¿Por qué pones tanto Sleep por todas partes?
El del principio no tiene mucho sentido, hace que nada más ejecutar el programa esté dos segundos sin hacer nada.
el sleep ese lo puse por ke no se como agregarle la funcion para ke deje de escrbir la idea fue poner ese sleep para tener un tiempo y cerrarlo manualmenteLuego muestras el GUI pero bloqueas el programa otros 4 segundos, lo único que hace es impedir que el usuario interactúe con el GUI, aunque ya lo está viendo...
Y los Sleep(5000) tampoco los tengo muy claro, pero bueno...
no sabia que significaba el whild 1 ( gracias por aclararmelo)Luego hay un bucle infinito, eso es lo que significa While 1, así que ahí se queda para siempre mandando sends...
Y luego hay una cosa muy rara que no sé lo que es:
$stopbutton3($send1)Si es el botón no sé muy bien lo que le quieres hacer, si es una función que para no la has definido. Quizás de ahí venga el error que te da el EXE, la sintaxis que has puesto es de función, pero $stopbutton3 es una variable...
Variable que en principio es un botón, pero luego resulta que la machacas con un GUICtrlCreateUpdown ¡dentro del bucle!. No crees controles dentro del bucle, en cada vuelta hará uno nuevo. De todas maneras no creo que quieras cargarte el botón, lo del UpDown no sé lo que pinta ahí...
Después de los Send creas otro UpDown de esos en $send1... eso también es incorrecto.