![]() | ![]() |
![]() | #1 |
Gelme, burası çok derin. ![]() ![]() Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara Mesajlar: 584 WEB Sitesi: www.Sohbetsin.Com IRC Sunucusu: irc.FixSohbet.Net İlgi Alanı: Domain Kan Grubu: A RH (+) Alınan Beğeni: 86 | ![]() 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://www.sirabul.tk/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 -- {<hata>(.*?)</hata>} $html match hata regexp -- {<hataGoogle>(.*?)</hataGoogle>} $html match hataGoogle regexp -- {<hataBing>(.*?)</hataBing>} $html match hataBing regexp -- {<hataYandex>(.*?)</hataYandex>} $html match hataYandex regexp -- {<sonucGoogle>(.*?)</sonucGoogle>} $html match sonucGoogle regexp -- {<sonucBing>(.*?)</sonucBing>} $html match sonucBing regexp -- {<sonucYandex>(.*?)</sonucYandex>} $html match sonucYandex regexp -- {<gsira>(.*?)</gsira>} $html match gsira regexp -- {<glink>(.*?)</glink>} $html match glink regexp -- {<bsira>(.*?)</bsira>} $html match bsira regexp -- {<blink>(.*?)</blink>} $html match blink regexp -- {<ysira>(.*?)</ysira>} $html match ysira regexp -- {<ylink>(.*?)</ylink>} $html match ylink set glogo "12G4o7o12g3l4e" set blogo "12Bing" set ylogo "4Y1andex" if {[info exists hata]} { putquick "PRIVMSG $chan :1$hata" } if {![info exists hata]} { putquick "PRIVMSG $chan :1Arama motorlari siralamalariniz 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 :" if {[info exists hataGoogle]} { putquick "PRIVMSG $chan :$glogo: 2$hataGoogle" putquick "PRIVMSG $chan :" } if {[info exists sonucGoogle]} { putquick "PRIVMSG $chan :$glogo 10siralamaniz" putquick "PRIVMSG $chan :4Siraniz:2 $gsira" putquick "PRIVMSG $chan :4Link:2 $glink" putquick "PRIVMSG $chan :" } if {[info exists hataBing]} { putquick "PRIVMSG $chan :$hlogo: 2$hataBing" putquick "PRIVMSG $chan :" } if {[info exists sonucBing]} { putquick "PRIVMSG $chan :$blogo 10siralamaniz" putquick "PRIVMSG $chan :4Siraniz:2 $bsira" putquick "PRIVMSG $chan :4Link:2 $blink" putquick "PRIVMSG $chan :" } if {[info exists hataYandex]} { putquick "PRIVMSG $chan :$ylogo: 2$hataYandex" putquick "PRIVMSG $chan :" } if {[info exists sonucYandex]} { putquick "PRIVMSG $chan :$ylogo 10siralamaniz" putquick "PRIVMSG $chan :4Siraniz:2 $ysira" putquick "PRIVMSG $chan :4Link:2 $ylink" putquick "PRIVMSG $chan :" } putquick "PRIVMSG $chan :1Sorgulama sonu..." } ::http::cleanup $html } } putlog "sira-bulucu-v3.tcl by TCL" ####### # SON # #######
__________________ ![]() |
![]() | ![]() |
![]() |
Etiketler |
bulucutcl, sira |
Seçenekler | Arama |
Stil | |
| |
Forum | Yasal Uyarı |
Powered by vBulletin® Version 3.8.9 Beta 1 Copyright ©2000 - 2022, Jelsoft Enterprises Ltd. Search Engine Friendly URLs by vBSEO 3.6.0 Kuruluş: IRCForumu.Net © 30 Nisan 2018 Cumartesi Kurucular: immortaL IRCForumu.Net Her Hakkı Saklıdır. irc forumu | ircforumları | irc forumları | |
Sitemiz bir "paylaşım" sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumu.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda [email protected] adresine mail atıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir. 5101 sayılı yasayla değişik 5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı T.C. Kültür ve Turizm Bakanlığı tarafından hak sahipliği verilmiş olan MÜ-YAP tarafından yasaklanmış olup, yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir. |