lookjapan.COM - IRC ve mIRC dünyasının forumu!   buy vps


  lookjapan.COM - IRC ve mIRC dünyasının forumu! IF - Unreal, Services ve Botlar Eggdrop, BNC ve Socket Botlar TCL Scriptler


Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 23 Mart 2015, 17:25   #1
 
No_FeaR - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 27 Ocak 2015
Bulunduğu yer: Denizli
Mesajlar: 136
WEB Sitesi: www.AlemTR.com
IRC Sunucusu: www.AlemTR.com
İlgi Alanı:
Alınan Beğeni: 69
Standart Site Analiz TCL

TCL Name : analiz.tcl by rascoLn

İşlevi:
- Sosyal bilgiler : Facebook beğeni,paylaşım,yorum
- Sosyal Bilgiler : Google+ , Tweet , Stumbleupon
- Seo İstatistikleri : Pr , Backlink , Yaşı , Google İndex , Seo Puanı
- Site Değeri : Dolar - TL bazında gösterim , Değer Puanı


Edit Yapacağınız Tek Bölüm #KanalAdı Gerisine Dokunmayınız.. ^^
NOT ; Eggdrop/Script Klasörün de http.tcl Olmak Zorunda..

Kod:
## Site Analizi Kodlamasıdır..
## Sitenizin :
## Pr , Google İndex Sayısı , Seo Puanı .... verir.
package require http

## Komutun Çalışacağı kanaladı
set analizkanal "#kanaladi"

bind pub - .analiz analiz

proc analiz {nick host hand chan text} {
if {[string match $chan $::analizkanal]} {
set seo [http::geturl "http://ucretsizseoanalizi.com/tr/www/$text"]
set seodata [http::data $seo]
http::cleanup $seo
set reklam [http::geturl "http://www.worthofweb.com/website-value/$text"]
set reklamdata [http::data $reklam]
http::cleanup $reklam
set index [http::geturl "http://siteanalizi.gen.tr/$text"]
set analizdata [encoding convertto utf-8 [http::data $index]]
http::cleanup $index
set doviz [http::geturl "http://kur.doviz.com/serbest-piyasa/amerikan-dolari"]
set dovizdata [http::data $doviz]
http::cleanup $doviz

set aciklama [string map {"<h2>" "" "</h2>" "" "<p class=\"desc\">" "" "<em>" "" "</em>" "" "</p>" "" "<p>" ""} [string range $analizdata [expr [string first "<h2>$text</h2>" $analizdata]] [expr [string last "<div class=\"buttons\">" $analizdata]-26]]]

set x 0
foreach ozet [split $aciklama \n] {
if { $x == 8 } { break }
if { $x eq 0 } {
putquick "privmsg $chan :\0030,4 [strupr [string trimleft $ozet " "]] ANALİZ AÇIKLAMASI \003"
} elseif { $x > 0 } {
putquick "privmsg $chan :\0030,1 [string trimleft $ozet " "] \003"
}
incr x
}
while { [regexp -- {<strong>Google PageRank</strong><br />(.*)$} $analizdata -> analizdata] } {
regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> googlerank analizdata
regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> alexarank analizdata
regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> yas analizdata
regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> google analizdata
regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> tweet analizdata
regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> - analizdata
regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> - analizdata
regexp -- {<span class="label label-success">(.*?)</span>(.*)$} $analizdata -> stumble analizdata
regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> begeni analizdata
regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> paylas analizdata
regexp -- {<span class="label label-blue">(.*?)</span>(.*)$} $analizdata -> yorum analizdata
regexp -- {<td>Google Backlink:</td>(.*)$} $analizdata -> analizdata
regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> goback analizdata
regexp -- {<td>Bing Backlink:</td>(.*)$} $analizdata -> analizdata
regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> biback analizdata
regexp -- {<td>Dmoz</td>(.*)$} $analizdata -> analizdata
regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> dmoz analizdata
regexp -- {<td>Yahoo Dizini</td>(.*)$} $analizdata -> analizdata
regexp -- {<td><a href=".*?">(.*?)</a></td>(.*)$} $analizdata -> yahoo analizdata
regexp -- {<td>Google İndeksli Sayfa Sayısı</td>(.*)$} $analizdata -> analizdata
regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> - analizdata
regexp -- {<td>(.*?)</td>(.*)$} $analizdata -> page analizdata
}
if {![info exists begeni]} {
putquick "privmsg $chan :\0034,1 ! \003\0031 Bu domainin analizi yapılamıyor"
putquick "privmsg $chan :\0034,1 ! \003\0031 Lütfen başka bir alanadı deneyiniz.."
return 0
}
putquick "privmsg $chan :\003"
putquick "privmsg $chan :\0030,4 SOSYAL BİLGİLER \003"

foreach se0 [split $seodata \n] {
if {[string match "*<strong>Seo*" $se0]} {
regexp -- {<strong>Seo Skoru(.*?)</strong>(.*)$} $seodata -> seo seodata
}
}
set seocut [string map {"/" " "} $seo]
regexp -- {<br /><span class=\"pricetag\"><span style=\"font-size:28px\">\$ (.*?)</span></span>} $reklamdata - tdeger
regexp -- {<span class=\"pricetag\"><span style=\"font-size:70px\">(.*?)</span> / (.*?)</span>} $reklamdata - tpuan1 tpuan2
regexp -- {<div class="column-row4"><span class="color-red">(.*?)</div>(.*)$} $dovizdata -> dolar dovizdata
putquick "privmsg $chan :\00311,1 Face\0030book İstatis\00311tikleri\0030 : Beğeni\0030: \[\0039 $begeni \0030\] | Paylaşım\0030: \[\0039 $paylas \0030\] | Yorumla\0030r: \[\0039 $yorum \0030\] \003"
putquick "privmsg $chan :\0034,1 Sosy\0030al İstatis\0034tikler\0030: Google\0030+ : \[\0039 $google \0030\] | Tweet : \[\0039 $tweet \0030\] | StumbleUpon : \[\0039 $stumble \0030\] \003"
putquick "privmsg $chan :\003"
putquick "privmsg $chan :\0030,4 SEO İSTATİSTİKLERİ \003"
putquick "privmsg $chan :\0030,1 \0038G\0039o\00311o\0037g\0030l\0034e\0030 Pagerank: \[\0039 $googlerank \0030\] | \0034A\0030l\0038e\00311x\0039a\0030 Rank: \[\0039 $alexarank \0030\] | \00311Y\00313a\0037ş\0030ı: \[\0039 [encoding convertfrom utf-8 $yas] \0030\] | \0038G\0039o\00311o\0037g\0030l\0034e\0030 İndex: \[\0039 $page \0030\] \003"
putquick "privmsg $chan :\0030,1 \0038G\0039o\00311o\0037g\0030l\0034e\0030 Backlink: \[\0039 $goback \0030\] | \0034B\0038i\00311n\0039g\0030 Backlink: \[\0039 $biback \0030\] | \00311D\00313m\0037o\0030z: \[\0039 $dmoz \0030\] | \0034Y\0030a\0034h\0030o\0034o\0030: \[\0039 $yahoo \0030\] | \00311S\0037e\0039o\0030 Puanı: \[\00311 [lindex $seocut 0] \0030/\0039 [lindex $seocut 1] \0030\] "
putquick "privmsg $chan :\003"
putquick "privmsg $chan :\0030,4 SİTE \& DEĞERİ \003"
putquick "privmsg $chan :\0030,1 Tahmini Değeri : \0039,1 \$\0030: [string map {"," "."} $tdeger] / \0039TL\0030: [expr { [string map {"," ""} $tdeger] * [string map {"</span>" "" "," "."} $dolar] } ] | Değer Puanı: \[\00311 $tpuan1 \0030/\0039 $tpuan2 \0030\] \003"
}
}

putlog "analiz.tcl coding by rascoLn"






Aynı Dünyada Yaşamamalı Cellatlar Ve Çocuklar .
Ya Ölmeli Cellatlar,Yada Hiç Doğmamalı Çocuklar...!

Konu No_FeaR tarafından (23 Mart 2015 Saat 17:30 ) değiştirilmiştir.
 No_FeaR isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
analiz, site, tcl


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
İp Analiz Sistemi Che Hazır Kodlar 0 01 Mart 2019 07:57
Spamfilter Analiz v1 Che Hazır Kodlar 1 28 Şubat 2019 16:18
site linkleme Tutsaq UnrealIRCd 2 06 Aralık 2018 19:20
WEB Site Tanıtımları Hakk. Entrance Web Site Tanıtımları 0 05 Mayıs 2017 20:47
Web Site Tanıtım Kuralları IF-Global Web Site Tanıtımları 0 04 Mart 2017 10:56

web hosting web hosting
 buy vds
 vps buy

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.