|
|
06 Mayıs 2015, 08:01
|
#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 |
Google kelime aramalarinda sira bulucu tcl
 Düzenlemesi Gerek Kısımlar ; Kod:
# Kanal'i belirtin. set ara(kanal) "#Webmaster" # Komut on eki. set ara(komut) ".ara" Kod:
#####
# ¿ #
#####
# Kanal'i belirtin.
set ara(kanal) "#Webmaster"
# Komut on eki.
set ara(komut) ".ara"
##########
# CISS ! #
##########
bind pub – $ara(komut) ara:sira
proc ara:sira {nick uhost hand chan text} {
global botnick ara
if {[string match -nocase $ara(kanal) $chan]} {
set url "[lindex $text 0]"
set keyword "[lrange $text 1 end]"
regsub -all " " $keyword "%20" keyword
if {$url == ""} { putquick "PRIVMSG $chan :Kullanimi: .ara <url> <kelime> seklindedir."; return 0 }
if {$keyword == ""} { putquick "PRIVMSG $chan :Kullanimi: .ara $url <kelime> seklindedir."; return 0 }
set apiweb "http://proje.ircdepo.tk/sirabulucu/api.xml?url=$url&keyword=$keyword"
catch {set sayfa [::http::geturl $apiweb -timeout 5000]} error
if {[string match -nocase "*couldn't open socket*" $error]} {
putquick "PRIVMSG $chan :Hata: Suan siteye baglanilamiyor... Daha sonra tekrar deneyiniz..."
::http::cleanup $sayfa
return 0
}
if {[::http::status $sayfa] == "*timeout*"} {
putquick "PRIVMSG $chan :Hata: Baglanti zaman asimina ugradi..."
::http::cleanup $sayfa
return 0
}
set html "[::http::data $sayfa]"
::http::cleanup $sayfa
regexp -nocase {<hata>(.*?)</hata>} $html match hata
regexp -nocase {<sonuc>(.*?)</sonuc>} $html match sonuc
regexp -nocase {<sira>(.*?)</sira>} $html match sira
regexp -nocase {<link>(.*?)</link>} $html match link
if {[info exists hata]} {
putquick "PRIVMSG $chan :4$hata"
}
if {[info exists sonuc]} {
putquick "PRIVMSG $chan :12G4o7o12g3l4e 1siralamaniz asagida yer almaktadir:"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :10Aranan(lar):"
putquick "PRIVMSG $chan :4Url:2 $url"
regsub -all "%20" $keyword " " keyword
putquick "PRIVMSG $chan :4Kelime:2 $keyword"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :10Sonuc(lar):"
putquick "PRIVMSG $chan :4Siraniz:2 $sira"
putquick "PRIVMSG $chan :4Link:2 $link"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :12G4o7o12g3l4e 1sorgulama sonu..."
}
::http::cleanup $html
}
}
#######
# SON #
#######
 Aynı Dünyada Yaşamamalı Cellatlar Ve Çocuklar . Ya Ölmeli Cellatlar,Yada Hiç Doğmamalı Çocuklar...! |
|
Alıntı
|
|
09 Mayıs 2015, 00:46
|
#3 |
|
Ü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 |
Cevap: Google kelime aramalarinda sira bulucu tcl
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] CR'de Bu Şekilde Çalışırmış, Denemedim Ama Kod Bu.. ^^ : )
Kod:
#####
# ¿ #
#####
# Kanal'i belirtin.
set ara(kanal) "#Webmaster"
# Komut on eki.
set ara(komut) ".ara"
##########
# CISS ! #
##########
bind pub – $ara(komut) ara:sira
proc ara:sira {nick uhost hand chan text} {
global botnick ara
if {[string match -nocase $ara(kanal) $chan]} {
set url "[lindex $text 0]"
set keyword "[lrange $text 1 end]"
regsub -all " " $keyword "%20" keyword
if {$url == ""} { putquick "PRIVMSG $chan :Kullanimi: .ara <url> <kelime> seklindedir."; return 0 }
if {$keyword == ""} { putquick "PRIVMSG $chan :Kullanimi: .ara $url <kelime> seklindedir."; return 0 }
set apiweb "http://proje.ircdepo.tk/sirabulucu/api.xml?url=$url&keyword=$keyword"
catch {set sayfa [::http::geturl $apiweb -timeout 5000]} error
if {[string match -nocase "*couldn't open socket*" $error]} {
putquick "PRIVMSG $chan :Hata: Suan siteye baglanilamiyor... Daha sonra tekrar deneyiniz..."
::http::cleanup $sayfa
return 0
}
if {[::http::status $sayfa] == "*timeout*"} {
putquick "PRIVMSG $chan :Hata: Baglanti zaman asimina ugradi..."
::http::cleanup $sayfa
return 0
}
set html "[::http::data $sayfa]"
::http::cleanup $sayfa
regexp -nocase {<hata>(.*?)</hata>} $html match hata
regexp -nocase {<sonuc>(.*?)</sonuc>} $html match sonuc
regexp -nocase {<sira>(.*?)</sira>} $html match sira
regexp -nocase {<link>(.*?)</link>} $html match link
if {[info exists hata]} {
putquick "PRIVMSG $chan :4$hata"
}
if {[info exists sonuc]} {
putquick "PRIVMSG $chan :12G4o7o12g3l4e 1siralamaniz asagida yer almaktadir:"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :10Aranan(lar):"
putquick "PRIVMSG $chan :4Url:2 $url"
regsub -all "%20" $keyword " " keyword
putquick "PRIVMSG $chan :4Kelime:2 $keyword"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :10Sonuc(lar):"
putquick "PRIVMSG $chan :4Siraniz:2 $sira"
putquick "PRIVMSG $chan :4Link:2 $link"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :12G4o7o12g3l4e 1sorgulama sonu..."
}
::http::cleanup $html
}
}
#######
# SON #
#######
Aynı Dünyada Yaşamamalı Cellatlar Ve Çocuklar . Ya Ölmeli Cellatlar,Yada Hiç Doğmamalı Çocuklar...! |
|
|
Alıntı
|
| Etiketler |
| aramalarinda, bulucu, google, kelime, sira, sıra, tcl |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| Kelime-i Tevhid ve Anlamı | Violence | İslamiyet | 0 | 25 Temmuz 2015 13:38 |
| Google Sıra Bulucu TCL | No_FeaR | TCL Scriptler | 0 | 23 Mart 2015 20:24 |
| Her gün Kelime-i Şehadet Getirelim | Violent | İslamiyet | 7 | 25 Şubat 2015 11:43 |
| -/- Google sira bulucu - | Toprak | Hazır Kodlar | 0 | 27 Ocak 2015 22:46 |
| Google sira bulucu | Toprak | Hazır Kodlar | 0 | 26 Ocak 2015 00:14 |
2Teşekkürler;
Normal
