si no abre la WEB que ejecute el archivo (?) :)

Pregunta Sin Miedo no te cortes cualquier cosa para empezar - Autoit se comienza facilmente.Para Ordenes o Comandos sueltos. Ver nota como preguntar.
Responder
iamchavo
Hacker del Foro
Mensajes: 134
Registrado: 26 Mar 2009, 22:46

si no abre la WEB que ejecute el archivo (?) :)

Mensaje por iamchavo »

hola gente :)
haber si alguien me ayuda.
como seria un scrip para que si por ejempo estoy en http://www.google.com/ y si pasado 5 segundos no cambia a
http://images.google.com.ar/ , que ejecute el archivo < ScreenCapture.au3 >

saludos :)
Avatar de Usuario
Nahuel
Hacker del Foro
Mensajes: 194
Registrado: 27 Jun 2007, 23:32
Ubicación: Argentina
Contactar:

Re: si no abre la WEB que ejecute el archivo (?) :)

Mensaje por Nahuel »

Es una pregunta un tanto extraña y poco elaborada. Este código hace eso, siempre que uses IE. Ejecutalo y se abrirá IE. Cada vez que navegues a www.google.com esperará 5 segundos para ver si cambia a http://images.google.com.ar/. Si no lo hace, captura la pantalla

Código: Seleccionar todo

#include <IE.au3>
#include <ScreenCapture.au3>

$oIE = _IECreate("http://www.google.com/")

$s_Dir = ""

While 1
	Do
		Sleep(500)
		$s_Dir = _IEPropertyGet($oIE,"locationurl")
		ConsoleWrite($s_Dir & @CRLF)
	Until StringRegExp($s_Dir,"http://www.google.com(.*?)")

	$h_Timer = TimerInit()
	ConsoleWrite("+>Se accedió a Google.com. Esperando cambiar a images.google.com" & @CRLF)
	Do
		Sleep(500)
		$s_Dir = _IEPropertyGet($oIE,"locationurl")
		ConsoleWrite($s_Dir & @CRLF)
		If StringRegExp($s_Dir,"http://images.google.com(.*?)") Then 
			ConsoleWrite("!>Se accedió a images.google.com. Cancelando captura."  & @CRLF)
			ContinueLoop 2
		EndIf
	Until TimerDiff($h_Timer)>=5000
	$Ran = Random(1111,9999,1)
	_ScreenCapture_Capture(@DesktopDir & "\Cap_" & $Ran & ".jpg")
	ConsoleWrite("+>Captura realizada. --> " & @DesktopDir & "\Cap_" & $Ran & ".jpg" & @CRLF)
WEnd
Realmente dudo que sea lo que buscás, pero es lo que pedís. Tenés que ser más preciso.
No soy un hombre de plegarias, pero si estás en el cielo sálvame por favor Superman!
emma93
Aprendiz de Mago
Mensajes: 47
Registrado: 13 Ene 2009, 23:15

Re: si no abre la WEB que ejecute el archivo (?) :)

Mensaje por emma93 »

Y así no es mas fácil?

No estoy cuestionando obviamente, ya que mi código podría tener errores.

Código: Seleccionar todo

#include <ScreenCapture.au3>
#include <ie.au3>

While 1
$ie = _IECreate("http://www.google.com.ar")
_Ieloadwait($ie)
_IELoadWaitTimeout(5000)
If @error = 6 Then
	_ScreenCapture_Capture("C:\imagen.jpg")
EndIf
WEnd
Avatar de Usuario
Nahuel
Hacker del Foro
Mensajes: 194
Registrado: 27 Jun 2007, 23:32
Ubicación: Argentina
Contactar:

Re: si no abre la WEB que ejecute el archivo (?) :)

Mensaje por Nahuel »

Pero ese código no hace lo que él pidió. Eso sólo abre Google, espera que cargue y luego no hace nada... _IELoadWaitTimeOut() está mal utilizada, pues está luego de la función _IELoadWait. Si _IELoadWaitTimeOut estuviera antes que _IELoadWait, funcionaría diferente. Capturaría la pantalla en caso de que Google demore más de 5 segundos en cargar.
No soy un hombre de plegarias, pero si estás en el cielo sálvame por favor Superman!
Responder