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
