Evitar cerrar programa para usarlo nuevamente
Publicado: 13 Abr 2015, 21:19
Hola buen dia, ya logre terminar el programa que estaba haciendo, se trata de un creador de Themes para Facebook.
El unico problema que tiene es que cada vez que creo un theme ( que el programa cumple su ciclo ), si quiero hacer un segundo theme tengo que cerrar el programa y abrirlo nuevamente.
De que forma puedo hacer para que no tenga que cerrar el programa que cree para diseñar un nuevo Theme.
Dejo el codigo:
El unico problema que tiene es que cada vez que creo un theme ( que el programa cumple su ciclo ), si quiero hacer un segundo theme tengo que cerrar el programa y abrirlo nuevamente.
De que forma puedo hacer para que no tenga que cerrar el programa que cree para diseñar un nuevo Theme.
Dejo el codigo:
Código: Seleccionar todo
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <IE.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
InetGet("http://www.criteriondg.info/wordpress/wp-content/themes/criterion/images/walls/33.jpg",@TempDir&"\timage.jpg")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Tolchx.com", 433, 276, 193, 125)
$creador = GUICtrlCreateInput("Tu Nombre", 110, 24, 225, 21)
GUICtrlSetCursor (-1, 5)
$Nombre = GUICtrlCreateInput("Nombre de la imagen", 110, 56, 225, 21)
GUICtrlSetCursor (-1, 5)
$pagina = GUICtrlCreateInput("URL de la imagen", 50, 100, 355, 21)
GUICtrlSetCursor (-1, 5)
$Button1 = GUICtrlCreateButton("Aceptar", 140, 152, 153, 57, 0)
GUICtrlSetCursor (-1, 0)
$Pic1 = GUICtrlCreatePic(@TempDir&"\timage.jpg", -8, -16, 440, 303,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
$Checkbox5 = GUICtrlCreateCheckbox("Derecha", 464, 200, 81, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
; Login
while 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Button1
$IeObj = _IECreate("http://userstyles.org/logout",0,0)
_IENavigate($IeObj, "http://userstyles.org/login/?view=password",0x1000)
_IeLoadWait($IeObj)
$ieform=_IEFormGetCollection($IeObj,1)
$nombres=_IEGetObjById($IeObj, "login-existing")
$nombres.value="usuario"
$apellidos=_IEGetObjById($IeObj, "password-existing")
$apellidos.value="contraseña"
_IEFormSubmit($ieform)
_IeLoadWait($IeObj)
exitloop
EndSelect
wend
_ReplaceStringInFile(@scriptdir & "\Plantilla.txt","imagen.jpg", GUICtrlRead($pagina) )
$file = FileRead(@ScriptDir & "/plantilla.txt")
$final = _StringBetween($file, "<html>", "</html>")
sleep(2000)
; Cambia a pagina de creacion
_IENavigate($IeObj, "http://userstyles.org/styles/new",0x1000)
_IeLoadWait($IeObj)
$Inpshort=_IEGetObjByid($IeObj, "style_short_description")
$Inplong=_IEGetObjById($IeObj, "style_long_description")
$Inpcss=_IEGetObjByid($IeObj, "css")
;Contador aleatoreo
$LowerLimit = 1
$UpperLimit = 99
$RandomNumber = Random($LowerLimit,$UpperLimit,1)
;Completando formularios
_IeFormElementSetValue($Inpshort, "Wallpapers para Facebook - " & GUICtrlRead($Nombre) & " - "& $RandomNumber)
_IeFormElementSetValue($Inplong, "Theme creado por: "& GUICtrlRead($creador) & " - Mas Wallpapers para personalizar Facebook en www.Tolchx.com")
_IeFormElementSetValue($Inpcss,$final[0])
sleep(500)
$button = _IEGetObjbyName ($IeObj, "commit")
_IEAction ($button, "click")
_IeLoadWait($IeObj)
Opt("WinTitleMatchMode", 2)
$IeObj = _IEAttach ("userstyles","WindowTitle") ;miro las ventanas de IE por el título de ventana
$direccion=_IEPropertyGet ($IeObj,"locationurl") ;almaceno en la variable la dirección url.
sleep(2000)
; Subir Theme a Tolchx
_IENavigate($IeObj, "http://tolchx.com/fotos/agregar.php",0x1000)
_IeLoadWait($IeObj)
$ftitle=_IEGetObjByid($IeObj, "ftitle")
$fdesc=_IEGetObjByid($IeObj, "fdesc")
$furl=_IEGetObjByid($IeObj, "furl")
_IeFormElementSetValue($ftitle, "Wallpapers para Facebook - " & GUICtrlRead($Nombre))
_IeFormElementSetValue($fdesc, $direccion)
_IeFormElementSetValue($furl, GUICtrlRead($pagina) )
$button = _IEGetObjbyName ($IeObj, "new")
_IEAction ($button, "click")
; Deja plantilla.txt con la imagen.jpg default
_ReplaceStringInFile(@scriptdir & "\" & "Plantilla.txt",GUICtrlRead($pagina),"imagen.jpg")
MsgBox(0,"Listo!", "Wallpaper creado con exito :D")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
