Apoyo con Script

Tus preguntas. Algoritmos o Grupos de Comandos formando Programas Escripts.
Responder
paco4km
Mensajes: 2
Registrado: 13 Jun 2009, 10:57

Apoyo con Script

Mensaje por paco4km »

Antes ke nada saludos a este foro que a mi gusto tiene mucho apoyo aparte de ke es de los primeros abiertos a este medio de programación... Felicidades...

Bueno ahora explico mi situación... Lo que quiero hacer es una web ke funcione como un autoclicker...
Ya desarrolle la web utilizando javascript... El problema ke tuve con este lenguaje es ke no pude echar andar el sendkeys
a lo ke buskando en internet mi solucion fue utilizar esta nueva programacion...

Explico como funciona... Entro a mi web... y esta te abre otra ventana que es la que se redirecciona a toda una lista de diferentes links de los ptc... lo que kiero hacer con autoit es usar la funcion " Send("{BROWSER_StOP}") " para que se detenga la carga de la pagina... el reloj inicie la cuenta regresiva y sin ke yo tenga ke ver la web completa y sin arriesgarme a alguna pagina con algun spyware o malware...

PROCESO: Entro a privatePTC... me abre una ventana nueva con el titulo "HawkinsBux | View, Click, Earn - Windows Internet Explorer" y esta va cambiando a los diferentes links para ke me cuenten como clicks.

El problema es ke no me funciona la funcion de "browser stop" .... no se si tenga ke llamar otro #include para ke la funcion send me funcione o si el problema es cuando pongo en el codigo ke cambie a la ventana "HawkinsBux | View, Click, Earn - Windows Internet Explorer" haga mal el llamado de activar ventana... o si mi funcion este mal escrita... aki mi codigo y ojala me haya dado a entender.

Desde ya muchas gracias.


El codigo de autoit ke intente desarrollar leyendo posts de este foro y echando mano del manual que viene con autoit sake el siguiente script:

Código: Seleccionar todo


#include <ie.au3>

;Crear una instancia de Internet Explorer

$oIE = _IECreate ("http://privateptc.webcindario.com/Index.html")

Sleep(4000);abre la ventana en el segundo 2 asi ke doy tiempo a ke la abra

WinWaitActive("HawkinsBux | View, Click, Earn - Windows Internet Explorer")

WinActivate("HawkinsBux | View, Click, Earn - Windows Internet Explorer")

Sleep(6000) ;En el segundo 2 redirecciona kiero detener carga al 6

Send("{BROWSER_StOP}")

Sleep(64000) ;al segundo 62 cambia de pagina por eso kiero detener la carga de la pagina al segundo 64

Send("{BROWSER_StOP}")

 
piranga8
Aprendiz de Mago
Mensajes: 52
Registrado: 07 May 2009, 01:43

Re: Apoyo con Script

Mensaje por piranga8 »

Hola, primero me gustaria entender para que hacer ese programa si ya existe uno que te hace eso se llama Multiclicker y lo puedes encontrar Aca.
Bueno Aunque lo hagas por ocio deberias poner este post en el foro "Soporte" y no "esScripts - Programas - Abre tus creaciones maravillosas".
Ya no importa, siguiendo con tu pregunta:

Desenmarañando tu sitio web, pude ver el codigo html de la pagina "frame-right.html", al parecer no es necesario que tengas un sitio, porque son direcciones estaticas las cuales puedes poner en tu script .au3 como variables, ademas no funcionaria si esta el internet explorer 7 u 8 instalado en el pc del usuario, ya que este tiene incorporado un adblock.
Lo que puedes hacer seria algo asi:

Código: Seleccionar todo

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <IE.au3>



Dim $websitio[6]

$websitio[1] ='http://www.hawkinsbux.com/view.php?ad=1'

$websitio[2] ='http://www.hawkinsbux.com/view.php?ad=7'

$websitio[3] ='http://www.hawkinsbux.com/view.php?ad=9'

$websitio[4] ='http://www.hawkinsbux.com/view.php?ad=20'

$websitio[5] ='http://www.hawkinsbux.com/view.php?ad=1000'



$oIE = _IECreateEmbedded ()

GUICreate("Prueba para pako4km", 600, 400, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2)

$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)

GUISetState()



For $i = 1 to 5 Step 1

    _IENavigate ($oIE, $websitio[$i])

    Sleep(35000)

Next



While 1

    $msg = GUIGetMsg()

    Select

        Case $msg = $GUI_EVENT_CLOSE

            ExitLoop

    EndSelect

WEnd

GUIDelete()

Exit

 
Bueno Ahi tu le cambiay las cosas y le podi poner opciones, no es necesario que sea incluido en la gui, ahi tu la modificas. Cualquier cosa me mandas un PM.

Saludos piranga8
Imagen
Imagen
Responder