[BATCH] realizar búsquedas automáticas en web

[alehopio]

Este ya sí funciona, fallaba la llamada a las variables dentro del FOR. Gracias...

Código [Seleccionar] Expandir


@Echo OFF & TITLE Bing Searcher & Setlocal EnableDelayedExpansion

:: Con la configuración de FIREFOX siguiente:
:: 1) -setDefaultBrowser
:: 2) about:config browser.link.open_newwindow.override.external=1
:: 3) addons.mozilla.org Click&Clean

Set "Search=http://www.pcre.org/news.txt"
bitsadmin.exe /transfer myDownloadJob /download /priority normal %Search% %TMP%\news.txt

Set "TextFile=%TMP%\news.txt"
DEL %TMP%\news.txt

Set "Explore=%ProgramFiles%\Mozilla Firefox\Firefox.exe "
If Defined ProgramFiles(x86) (Set "Explore=%ProgramFiles(x86)%\Mozilla Firefox\Firefox.exe ")

Set "Query=http://www.bing.com/search?q="

REM cear aqui la parte de login en email

Set /A "MAXQueries=%random% %% 10 + 33"
Set /A "PLUSwait=10000"
Set /A "MINwait=5000"
Set /A "QueryCount=0"

:Loop
FOR /F "Usebackq Tokens=* Delims=" %%@ IN ("%TextFile%") DO (
       Set "Search=%%@"
Set "Search=!Search: =+!"
       Start /B "Iteration" "!Explore!" "!Query!!Search!"
       Set /A "Wait=!random! %% !PLUSwait! + !MINwait!"
ping.exe 1.1.1.1 -n 1 -w !Wait! >NUL
Set /A "QueryCount+=1"
TITLE Bing Searcher : !QueryCount!
If !QueryCount! EQU !MAXQueries! (Goto :End)
       )

:End
Start /b "Iteration" "%Explore%" "http://www.bing.com"
echo WScript.echo Chr(7) > beep.vbs
cscript beep.vbs
del beep.vbs




P.D. ¿ cómo podría meter todo el BEEP en una sola linea de código sin crear el archivo .vbs ? No me funciona la siguiente

Código [Seleccionar] Expandir


ECHO WSCRIPT.ECHO CHR(7) ^| CSCRIPT




P.P.D.

La búsqueda por frases no me convence como algo aleatorio e indistinguible de una búsqueda manual.

Tal vez una búsqueda de varias palabras, siendo cada búsqueda diferente incluso en número de palabras con un máximo de palabras MAXWORDS, utilizando cada vez uno de los temas de búsqueda que nos da el buscador con un máximo de links MAXBING; sobre una lista en fila de palabras  en ingles WORDLIST , tomando al azar cada palabra de esa lista...

... estoy terminando ese nuevo BATCH que con mis conocimientos no es muy elegante.  

[alehopio]

Bueno, ya tengo funcionando mi nuevo código BATCH que ahora si creo que hace búsquedas automáticas casi indistinguibles de búsquedas manuales reales...

Código [Seleccionar] Expandir


@Echo OFF & TITLE Bing Searcher & Setlocal EnableDelayedExpansion

:: Con la configuración de FIREFOX siguiente:
:: 1) -setDefaultBrowser
:: 2) about:config browser.link.open_newwindow.override.external=1
:: 3) addons.mozilla.org Click&Clean

SET "search=http://www.mieliestronk.com/corncob_lowercase.txt"
POWERSHELL -command "Invoke-WebRequest %search% -OutFile %TMP%\wordlist.txt"
SET "textfile=%TMP%\wordlist.txt" :: archivo de palabras de busqueda

SET "explore=%ProgramFiles%\Mozilla Firefox\Firefox.exe "
IF DEFINED ProgramFiles(x86) SET "explore=%ProgramFiles(x86)%\Mozilla Firefox\Firefox.exe "

SET "bing1=http://www.bing.com/search?q="
SET "bing2=http://www.bing.com/images/search?q="
SET "bing3=http://www.bing.com/videos/search?q="
SET "bing4=http://www.bing.com/news/search?q="
SET "bing5=http://www.bing.com/maps/default.aspx?q="
SET "bing6=http://www.bing.com/translator/?from=en&to=es&text="
SET "bing7=http://www.bing.com/travel/hotels/search?q="
SET "bing8=http://www.bing.com/events/search?q="
SET "bing9=http://www.bing.com/social/search?q="
SET "bing10=http://www.bing.com/explore?q="

SET /A "maxbing=9"  :: numero de webs de busqueda bing1, bing2, etc
SET /A "maxwords=5" :: numero maximo de palabras en cada busqueda

SET /A "count=0" :: numero de busquedas realizadas
SET /A "maxcount=%random% %% 10 + 31" :: numero maximo de busquedas

SET /A "maxwait=10" :: segundos maximos de espera entre cada busqueda
SET /A "minwait=5" :: segundos minimos de espera entre cada busqueda
SET /A "wait=0" :: iniciar segundos de espera entre cada búsqueda

SET /A "words=-1" :: iniciar numero de lineas en el archivo de palabras de busqueda
FOR /F "usebackq tokens=* delims=" %%@ IN ("%textfile%") DO (SET /A "words+=1")

REM cear aqui la parte de login en email

:LOOP
SET "search=&FORM=" :: termino de busqueda

SET /A "chain=%random% %% %maxbing% + 1"  :: seleccion azar web de busqueda
FOR %%$ IN (%chain%) DO (SET "bing=!bing%%$!")

SET /A "chain=%random% %% %maxwords% + 1" :: seleccion azar numero de palabras de busqueda
FOR /L %%$ IN (1,1,%chain%) DO (
SET /A "hazard=!random! %% !words! + 1" :: seleccion azar linea de busqueda
SET /A "choose=0"
FOR /F "usebackq tokens=* delims=" %%@ IN ("%textfile%") DO (
SET /A "choose+=1"
IF !choose! EQU !hazard! (IF %%$ EQU 1 (SET "search=%%@!search!") ELSE (SET "search=%%@+!search!"))
)
)

START /B "Iteration" "%explore%" "%bing%%search%"
SET /A "wait=%random% * (%maxwait% - %minwait% + 1) / 32768 + %minwait% + 1"
ping.exe localhost -n %wait% >NUL

SET /A "count+=1"
TITLE Bing Searcher : %count%
If %count% EQU %maxcount% (goto :END)

goto :LOOP

:END
start /b "Iteration" "%explore%" "http://www.bing.com"
POWERSHELL -command [Console]::Beep(1000,1000)
DEL %TMP%\wordlist.txt


Así que el avance de este proyecto se resumen en :
1º) hacer búsquedas web << HECHO >>
2º) hacer búsquedas web automáticas << HECHO >>
3º) hacer búsquedas web automáticas que no parezcan mecánicas << HECHO >>
4º) login automático en la cuenta de correo << EN PROCESO >>
5º) click automático en los vínculos de cuenta << EN ESTUDIO >>
6º) etc

Ojalá pudierais ayudarme en ello !!!
Gracias.-