Obtener url del navegador y hacer click en un boton

[iamchavo]

Hola buen dia, hace mucho que no entraba al foro, volvi para continuar lo que estaba creando, ya avance bastante.
Pero tengo dos problemas:

El primero es que hay dos botones los cuales no puedo hacer que envie los datos, ya probé con varias formas que hay por el foro y no
me anduvo:

Este es el codigo html donde figura el boton:

Código: Seleccionar todo

<input name="commit" type="submit" value="Save">

Este es el segundo boton de otra web en la que tengo que cargar datos y enviarlos:

Código: Seleccionar todo

<input type="button" style="width: auto; margin-left: 5px;" class="mBtn btnGreen" name="new" value="Agregar foto" onclick="fotos.agregar()">

en el primero por ejemplo trate con :

Código: Seleccionar todo

$oform=_IEFormGetObjByName($IeObj, "commit")
_IEFormSubmit($oform)

y en el segundo:

Código: Seleccionar todo

IENavigate($IeObj, javascript:fotos.agregar())

Código: Seleccionar todo

$oform2=_IEFormGetObjByName($IeObj, "new")
_IEFormSubmit($oform2)

Y estuve buscando por el foro, pero no encontré el comando para obtener la url que aparece en el navegador, para luego poder copiarla
en un cuadro de texto.

Espero que puedan ayudarme, mientras tanto seguire avanzando en otras partes del codigo!

Saludos! :)

[iamchavo]

Bueno lo de la url ya lo solucione con este codigo que encontre en el foro:

While 1
$instancia+=1
$IeObj = _IEAttach ("Windows Internet Explorer","WindowTitle",$instancia) ;miro las ventanas de IE por el título de ventana
If @error Then ExitLoop ;si hay un error en el ataque a las ventanas IE salgo del bucle.
$direccion=_IEPropertyGet ($IeObj, "locationurl") ;almaceno en la variable la dirección url.
If @error=0 Then MsgBox(0,"",$direccion) ;si no hay url (por casualidad la ventana no es de IE) no muestra la caja de texto con la url.
WEnd


Solo me faltaria solucionar lo de los botones para enviar los datos.

[iamchavo]

Pense que me funcionaba lo de la url, pero me da como resultado ( 0 )

Código: Seleccionar todo

$IeObj = _IEAttach ("Windows Internet Explorer","WindowTitle") ;miro las ventanas de IE por el título de ventana

$direccion=_IEPropertyGet ($IeObj, "locationurl") ;almaceno en la variable la dirección url.



; Subir foto a Tolchx


 _IENavigate($IeObj, "http://tolchx.com/fotos/agregar.php")
 _IeLoadWait($IeObj)
$oForms = _IEFormGetCollection ( $IeObj )

$ftitle=_IEGetObjByid($IeObj, "ftitle")
$fdesc=_IEGetObjByid($IeObj, "fdesc")
$furl=_IEGetObjByid($IeObj, "furl")

_IeFormElementSetValue($ftitle, "Nombre  - " & GUICtrlRead($Nombre))
_IeFormElementSetValue($fdesc, "Url del script:"  & GUICtrlRead($direccion))
_IeFormElementSetValue($furl, GUICtrlRead($pagina) )

[iamchavo]

Ya me di cuenta cual era el error de porque me devolvia 0 (cero) en vez de la url, y era que use :

Código: Seleccionar todo

_IeFormElementSetValue($fdesc, "Personaliza tu Facebook con los mejores Wallpapers HD - " & GUICtrlRead($direccion))

Y tenia que ser :

Código: Seleccionar todo

_IeFormElementSetValue($fdesc, "Personaliza tu Facebook con los mejores Wallpapers HD - " & $direccion)

el GUICtrlRead estaba de mas



Solo me falta lo de los botones :B , mientras espero ayuda seguire probando

[iamchavo]

Listo ya lo solucione lo de ambos botones con este comando:

Código: Seleccionar todo

$button = _IEGetObjbyName ($IeObj, "new")
_IEAction ($button, "click")