Sayfalar

script etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
script etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

26 Temmuz 2008 Cumartesi

Online Ziyaretçi Scripti

Gece gece canım sıkıldı online ziyaretçi scripti yazayım dedim ip.txt dosyası yazılabilinir olmalıdır.
Ufak tefek projelerinizde işinize yarar
$sure=1;
$dosya="ip.txt";
Satırlarını kendinize göre düzenleyin
NOT:Alıntı Yaptığınız takdir de kaynak belirtirseniz emeğe saygınız olduğunu gösterirsiniz.

<---- KOdların Başladığı Yer ------>

<?php
/*
Kodlama By s4l1h
http://pehepe.blogspot.com/
*/
$sure=1; // Zaman Aşımı dakika cinsinden
$dosya="ip.txt"; // İp ve Sürenin Yazılacağı Dosya yazılabilinir olmalıdır
$ip=$_SERVER['REMOTE_ADDR']; // Gelenin ip adresi

if(!intval($ip)){ // Fake İp Adresine Karşı basit bir Önlem Alıyoruz
echo 'Geçersiz İp adresi';
exit();
}


if (!is_writable($dosya)) { // Dosya Yazılabilinirmi diye Check ediyoruz
echo $dosya."'sı Yazılabilinir Deği";
exit();
}

$simdi=time(); // Şimdiki tarih
$desen='|ip:(.*)-zaman:(.*)\\n|siU'; // Desenimiz
$ac=fopen($dosya,"r");// Dosyayı Okumak İçin açıyoruz
$kaynak = fread($ac, filesize($dosya)); // Dosya İçeriğini Alıyoruz
fclose($ac); // Dosyayı Kapatıyoruz
preg_match_all($desen,$kaynak,$cik); // Kaynağı parçalıyoruz
$say=count($cik[1])-1; // Kaç tane ip olduğunu buluyoruz -1 for döngüsünde $i=0 dediğimiz için
for($i=0;$i<=$say;$i++){// For Döngüsü Başlıyor


$kip=$cik[1][$i]; // Eleman İp adresi
$ksure=$cik[2][$i]; // İp adresinin yazılış süresi
$degerz="ip:".$kip."-zaman:".$ksure."\n"; // Yazılacak olan metin
$fark=$simdi-$ksure; // Şimdi Zaman İle İp Adresinin yazılışı arasındaki süreyi buluyoruz
$gecis=$sure * 60;// Yukarıdaki zaman aşımını saniye cinsinden hesaplıyoruz

if($fark > $gecis ){
$kaynak=str_replace($degerz,"",$kaynak); // Eğer Fark zaman aşımından büyükse dosyamızdan veriyi siliyoruz.
}


}
// For Döngüsü Bitiyor

if(!strpos($kaynak,$ip)){ // Kaynak'ta eğer Sayfayı Görüntüleyenin ip adresi yoksa
$deger="ip:".$ip."-zaman:".$simdi."\n"; // Yazılacak Metin
$kaynak=$kaynak.$deger; // Kaynağ'a ekliyoruz
}

$t=fopen($dosya,"w"); // Dosyamızı Yazabilecek şekilde açıyoruz içindekiler siliniyor.
fwrite($t,$kaynak); // Dosyamıza kaynağı yazıyoruz
fclose($t); // Dosyayı kapatıyoruz

preg_match_all($desen,$kaynak,$sonuc); // Kaynağı Parçalıyoruz
$online=count($sonuc[1]) // Kaç adet ip adresi olduğunu buluyoruz

?>
Toplam Online Ziyaretçi Sayısı
: <? echo $online; ?>

<---- KOdların Bittiği Yer ------>

29 Kasım 2007 Perşembe

Link Kontrol Betiği

Burada Konuyu görünce php De Ufak Bi Kodcuk Yazdım
Kodcuk link değişimi yaptığınız Sitelere Tek tek girip sizin linkiniz varmı yokmu diye kontrol ediyor taranacak siteleri alt alta yazmanız gerekiyor Burada Kodcuğa bakabilirsiniz Fazla Link takası yapmayın Çöp Olmasın Siteniz :D