$ wget -O jablko.html 'http://www.google.sk/search?hl=sk&q=jablko&btnG=Hladaj'
--23:18:48-- http://www.google.sk/search?hl=sk&q=jablko&btnG=Hladaj
=> `jablko.html'
Prevádzam www.google.sk na IP adresu... 209.85.129.147, 209.85.129.99, 209.85.129.104
Pripájam sa k www.google.sk|209.85.129.147|:80... pripojené.
HTTP požiadavka odoslaná, čakám na odpoveď... 403 Forbidden
23:18:51 CHYBA 403: Forbidden.
nefunguje hladanie wgetom na googli
Neviete v com by mohol byt problem?
Pre pridávanie komentárov sa musíte prihlásiť.
--user-agent='Mozilla/5.0 (X11; U; Linux ppc; en-US; rv:1.8.1.11) Gecko/20080205 Firefox/2.0.0.11'
program meno; {$MODE delphi} uses SysUtils, Classes, Process, StrUtils; const a = 'aeiouy'; b = 'bcdfghjklmnpqrstvwxz'; function f(AFrom:string) : string; begin f := AFrom[random(length(AFrom))+1]; end; procedure Jedno; var j,k : integer; s : string; begin // vygenerujeme slovo (a=samohlasky, b=spoluhlasky) repeat s := f(b)+f(a)+f(b)+f(a)+f(b)+f(a)+f(b); until s[length(s)]<>'a'; // vynechaj slova konciace na "a", zneju zensky write(s); // najdeme ho na googli with TProcess.Create(nil) do begin CommandLine := 'wget -q -O index.html ''http://www.google.sk/search?hl=sk&q='+s+'&btnG=Hladaj'' --user-agent=''Mozilla/5.0 (X11; U; Linux ppc; en-US; rv:1.8.1.11) Gecko/20080205 Firefox/2.0.0.11'''; Options := [poWaitOnExit]; Execute; // analyzujeme kolko krat sme nasli to slovo if ExitStatus=0 then with TStringList.Create do begin LoadFromFile('index.html'); j := pos('<font size=-1>Výsledky <b>',Text); if j=0 then begin writeln(' ... je unikatne'); end else begin s := copy(text,j+35,55); s := AnsiReplaceStr(s,'<b>',''); s := AnsiReplaceStr(s,'</b>',''); s := AnsiReplaceStr(s,' ',''); s := AnsiReplaceStr(s,'približne ',''); s := copy(s,1,pos('pre',s)-1); k := pos(' z ',s); if k>0 then s := copy(s,k+3,maxint); writeln(' ... je tam ',s,' krat'); end; Free; end; Free; end; end; begin randomize; repeat jedno; until false; end.Paranoja, bezpecnost, ochrana.. vsetko je to to iste ;-)
čo som vyhral?