23 Mart 2015, 17:25 | #1 |
Ü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 |
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. |
Alıntı
|
Etiketler |
analiz, site, tcl |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|
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 |