29 Haziran 2016, 18:30
|
#1 |
|
| Site Analiz TCL
Kod: Kodu kopyalamak için üzerine çift týklayýn! ## 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 "https://ucretsizseoanalizi.com/tr/www/$text"]
set seodata [http::data $seo]
http::cleanup $seo
catch { exec wget -O reklam.html "https://www.worthofweb.com/website-value/$text" }
set index [http::geturl "https://siteanalizi.gen.tr/$text"]
set analizdata [http::data $index]
http::cleanup $index
set doviz [http::geturl "https://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 } {
largetext privmsg $chan "\0030,1 [string trimleft [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $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]
set advertising [open "reklam.html" r]
set reklamdata [split [read $advertising] \n]
close $advertising
while {[regexp -- {<span class="stat_row_number">\$ (.*?)</span>(.*)$} $reklamdata -> tdeger reklamdata] } {
regexp -- {<div class="stat_row_box_title">Worth Of Web Score:</div>} $reklamdata
regexp -- {<span class="stat_row_number">(.*?) \/ 100</span>} $reklamdata - tpuan1
break
}
regexp -- {<div class="column-row4"><span class="color-.*?">(.*?)</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 [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $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 [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $dmoz] \0030\] | \0034Y\0030a\0034h\0030o\0034o\0030: \[\0039 [string map -nocase {"°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $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"
if {![string match "*is an error*" $reklamdata]} {
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 100 \0030\] \003"
} else {
putquick "privmsg $chan :\0030,1 Sitenin Deðeri Bazý Nedenlerden Dolayý Hesaplanamýyor.. \003"
}
}
}
proc largetext {type target text {delims {" "•,.!?}}} {
set lineLen [expr {412 - [string length ":$::botname $type [join $target] :\r\n"]}]
if {[string length $text] <= $lineLen} {
putquick "$type $target :[entityToChar $text]"
return 0
}
set _text [split [entityToChar $text] $delims]
set x 0
set i 0
while {$x < $lineLen} {
if {$i >= [llength $_text]} {
return 0
}
set wordlen [string length [lindex $_text $i]]
if {$x + $wordlen > $lineLen} {
break
}
incr x $wordlen
incr x
incr i
}
putquick "$type $target :[string range [entityToChar $text] 0 [expr {$x - 1}]]"
largetext $type $target [string trimleft [string range [entityToChar $text] $x end]] $delims
}
proc entityToChar {text {char utf-8}} {
if {![string match *&* $text]} {return $text}
set escapes {
\xa0 ¡ \xa1 ¢ \xa2 £ \xa3 ¤ \xa4
¥ \xa5 ¦ \xa6 § \xa7 ¨ \xa8 © \xa9
ª \xaa « \xab ¬ \xac * \xad ® \xae
¯ \xaf ° \xb0 ± \xb1 ² \xb2 ³ \xb3
´ \xb4 µ \xb5 ¶ \xb6 · \xb7 ¸ \xb8
¹ \xb9 º \xba » \xbb ¼ \xbc ½ \xbd
¾ \xbe ¿ \xbf À \xc0 Á \xc1 Â \xc2
à \xc3 Ä \xc4 Å \xc5 Æ \xc6 Ç \xc7
È \xc8 É \xc9 Ê \xca Ë \xcb Ì \xcc
Í \xcd Î \xce Ï \xcf Ð \xd0 Ñ \xd1
Ò \xd2 Ó \xd3 Ô \xd4 Õ \xd5 Ö \xd6
× \xd7 Ø \xd8 Ù \xd9 Ú \xda Û \xdb
Ü \xdc Ý \xdd Þ \xde ß \xdf à \xe0
á \xe1 â \xe2 ã \xe3 ä \xe4 å \xe5
æ \xe6 ç \xe7 è \xe8 é \xe9 ê \xea
ë \xeb ì \xec í \xed î \xee ï \xef
ð \xf0 ñ \xf1 ò \xf2 ó \xf3 ô \xf4
õ \xf5 ö \xf6 ÷ \xf7 ø \xf8 ù \xf9
ú \xfa û \xfb ü \xfc ý \xfd þ \xfe
ÿ \xff ƒ \u192 Α \u391 Β \u392 Γ \u393 Δ \u394
Ε \u395 Ζ \u396 Η \u397 Θ \u398 Ι \u399
Κ \u39A Λ \u39B Μ \u39C Ν \u39D Ξ \u39E
Ο \u39F Π \u3A0 Ρ \u3A1 Σ \u3A3 Τ \u3A4
Υ \u3A5 Φ \u3A6 Χ \u3A7 Ψ \u3A8 Ω \u3A9
α \u3B1 β \u3B2 γ \u3B3 δ \u3B4 ε \u3B5
ζ \u3B6 η \u3B7 θ \u3B8 ι \u3B9 κ \u3BA
λ \u3BB μ \u3BC ν \u3BD ξ \u3BE ο \u3BF
π \u3C0 ρ \u3C1 ς \u3C2 σ \u3C3 τ \u3C4
υ \u3C5 φ \u3C6 χ \u3C7 ψ \u3C8 ω \u3C9
ϑ \u3D1 ϒ \u3D2 ϖ \u3D6 • \u2022
… \u2026 ′ \u2032 ″ \u2033 ‾ \u203E
⁄ \u2044 ℘ \u2118 ℑ \u2111 ℜ \u211C
™ \u2122 ℵ \u2135 ← \u2190 ↑ \u2191
→ \u2192 ↓ \u2193 ↔ \u2194 ↵ \u21B5
⇐ \u21D0 ⇑ \u21D1 ⇒ \u21D2 ⇓ \u21D3 ⇔ \u21D4
∀ \u2200 ∂ \u2202 ∃ \u2203 ∅ \u2205
∇ \u2207 ∈ \u2208 ∉ \u2209 ∋ \u220B ∏ \u220F
∑ \u2211 − \u2212 ∗ \u2217 √ \u221A
∝ \u221D ∞ \u221E ∠ \u2220 ∧ \u2227 ∨ \u2228
∩ \u2229 ∪ \u222A ∫ \u222B ∴ \u2234 ∼ \u223C
≅ \u2245 ≈ \u2248 ≠ \u2260 ≡ \u2261 ≤ \u2264
≥ \u2265 ⊂ \u2282 ⊃ \u2283 ⊄ \u2284 ⊆ \u2286
⊇ \u2287 ⊕ \u2295 ⊗ \u2297 ⊥ \u22A5
⋅ \u22C5 ⌈ \u2308 ⌉ \u2309 ⌊ \u230A
⌋ \u230B ⟨ \u2329 ⟩ \u232A ◊ \u25CA
♠ \u2660 ♣ \u2663 ♥ \u2665 ♦ \u2666
" \x22 & \x26 < \x3C > \x3E O&Elig; \u152 œ \u153
Š \u160 š \u161 Ÿ \u178 ˆ \u2C6
˜ \u2DC   \u2002   \u2003   \u2009
‌ \u200C ‍ \u200D ‎ \u200E ‏ \u200F – \u2013
— \u2014 ‘ \u2018 ’ \u2019 ‚ \u201A
“ \u201C ” \u201D „ \u201E † \u2020
‡ \u2021 ‰ \u2030 ‹ \u2039 › \u203A
€ \u20AC ' \u0027 ‎ "" ‏ "" ? "" * ""
* ""
};
set text [string map[list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] [string map $escapes $text]]
regsub -all -- {&#([[:digit:]]{1,5});} $text {[format %c [string trimleft "\1" "0"]]} text
regsub -all -- {&#x([[:xdigit:]]{1,4});} $text {[format %c [scan "\1" %x]]} text
return [subst "$text"]
}
putlog "analiz.tcl coding by rascoLn"
|
|
|  |
Üye No: 38
Þehir: Bolu
WebSite: IRCForumu.Net
IRC: 
Ýlgi Alaným: vBulletin
Mesaj Sayýsý: 1,455
Aldýðý Beðeni: 587
Beðendikleri: 911
Benzer Konular 
Normal
