Navegando por la lista de tutoriales me interesó mucho el de "crear robots que naveguen
en Internet". Empecé a hacer el tutorial, copié y pegué el código que se mostraba tal
cual en mi Perl.
Using perl Syntax Highlighting
- #!c:/perl/bin
- #Iniciamos nuestros módulos
- use Win32::OLE;
- use Win32::SAM;
- #Obligamos a hacer flush
- $| = 1;
- #Indicamos como manejar errores
- $Win32::OLE::Warn = 3;
- #Iniciamos nuestro navegador
- StartIE();
- #Cargamos la página de Google
- my $segundos = Navigate("http://google.com/");
- print "Google tardo $segundos segundos en cargar.\n";
- #Llenamos el campo de búsqueda
- SetEditBox("q","Perl en Español");
- #Hacemos submit de la forma
- $segundos = ClickFormButton("btnG");
- print "La página de resultados tardo $segundos segundos en cargar\n";
- #Salimos del programa
- exit(1);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Cuando ejecuté el código todos los procesos se realizaron correctamente excepto uno:
el script que dice clickFormButton.
Por favor, ¿podrían decirme a qué se debe esto? Seguí todas las instrucciones tal cual, copié y pegué el código, ¿qué está mal?
Por si acaso: uso Windows 7 y el último Internet Explorer.
Espero que me puedan resolver mi duda, gracias de ante mano.
PD: ya me aseguré que el nombre del botón submit es el mismo que se indica
en el script.