Açıklama : Aranan değişkenine girdiğiniz değeri arayıp çıkan sonuçlardaki linkleri tek tek yazar, kaç
sayfada arayabileceğini ayarlıyabilirsiniz.
<?
#Coded by Darkcode
#www.siverek.net
#Darkc0de@hotmail.de
ini_Set('max_execution_time',0);
$aranan="h4ckinger";
$dil="tr";
$useragent = "Opera/9.21 (Windows NT 5.1; U; tr)";
$kacsayfasonuc="5";
function cek($ursa){
global $useragent;
$ch = curl_init();
$zaman = 0;
curl_setopt ($ch, CURLOPT_URL, $ursa);
curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt ($ch, CURLOPT_CONNECTTIMEOUT, $zaman);
curl_setopt($ch, CURLOPT_USERAGENT, $useragent);
$rmx = curl_exec($ch);
curl_close($ch);
return $rmx;
}
function arayi_al($kaynak, $ref_bas, $ref_son){
$cikti_bas=explode($ref_bas,$kaynak);
for($a=1;$a<count($cikti_bas);$a++){
$cikti_son[] = explode($ref_son,$cikti_bas[$a]);
}
for($b=0;$b<count($cikti_bas);$b++){
$sonuc[$b] = $cikti_son[$b][0];
}
if(empty($sonuc)){
die("Ara Alinamadi");
}else{
return $sonuc;
}
}
$kacsayfasonuc=$kacsayfasonuc * 10;
for($i=0;$i<=$kacsayfasonuc;$i++){
$kaynak=cek("http://www.google.com.tr/search?q=$aranan&hl=$dil&start=$i&sa=N");
$bas1="<table border=0 cellpadding=0 cellspacing=0 width=100% class=\"t bt\">";
$son1="<div id=navbar class=n>";
$kaynak=arayi_al($kaynak,$bas1,$son1);
#print_r($kaynak);
$kaynak=$kaynak[0];
$bas="<a href=\"";
$son="\" class=l>";
$erray=arayi_al($kaynak,$bas,$son);
array_pop($erray);
foreach($erray as $er){print $er."<br>";}
}umarim işinize yarar.
