No_FeaR
23 Mart 2015, 17:25
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 [Only Registered Users Can See Links] Olmak Zorunda..
## 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 [[Only Registered Users Can See Links] "[Only Registered Users Can See Links]$text"]
set seodata [[Only Registered Users Can See Links] $seo]
[Only Registered Users Can See Links] $seo
set reklam [[Only Registered Users Can See Links] "[Only Registered Users Can See Links]$text"]
set reklamdata [[Only Registered Users Can See Links] $reklam]
[Only Registered Users Can See Links] $reklam
set index [[Only Registered Users Can See Links] "[Only Registered Users Can See Links]$text"]
set analizdata [encoding convertto utf-8 [[Only Registered Users Can See Links] $index]]
[Only Registered Users Can See Links] $index
set doviz [[Only Registered Users Can See Links] "[Only Registered Users Can See Links]"]
set dovizdata [[Only Registered Users Can See Links] $doviz]
[Only Registered Users Can See Links] $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"
İş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 [Only Registered Users Can See Links] Olmak Zorunda..
## 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 [[Only Registered Users Can See Links] "[Only Registered Users Can See Links]$text"]
set seodata [[Only Registered Users Can See Links] $seo]
[Only Registered Users Can See Links] $seo
set reklam [[Only Registered Users Can See Links] "[Only Registered Users Can See Links]$text"]
set reklamdata [[Only Registered Users Can See Links] $reklam]
[Only Registered Users Can See Links] $reklam
set index [[Only Registered Users Can See Links] "[Only Registered Users Can See Links]$text"]
set analizdata [encoding convertto utf-8 [[Only Registered Users Can See Links] $index]]
[Only Registered Users Can See Links] $index
set doviz [[Only Registered Users Can See Links] "[Only Registered Users Can See Links]"]
set dovizdata [[Only Registered Users Can See Links] $doviz]
[Only Registered Users Can See Links] $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"