IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

1Beğeni(ler)
  • 1 Post By CeSaRCripS

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Aralık 2012, 12:51   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Google Arama Botu google.tcl Tcl script




Merhaba, bu tcl script ile google üzerinden dosya, müzik vs araması yaptırabilirsiniz sunucunuzda.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
####################################################################### ####################################################################### # Google by CeSAR # # v1.0 # # # # Gets search results from Google.com. Nothing fancy yet, just gets # # however many returns you want. Idea is based on a script by # # aNa|0Gue, although the code is all new. # # # # Latest version @
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Comments & Questions to murf@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]less.com # ####################################################################### # Only tested on TCL v8.3 and Egg v1.6x, although I kept the code # # generic enough for TCL v8.0 and probably v1.3 of egg. # ####################################################################### # # # Commands # # # # .google keyword(s) <# of results> # # # # e.g. .google murf 5 # # # # Version # # v1.0 Aug 16 2002 # # -- first version # # # # Contact murf@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]less.com for bugs/comments # # This and other scripts available @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] # ####################################################################### ####################################################################### ## default number of returns set google_def_num 10 ## max number of returns set google_max 10 ## public bind set glpubbind ara set gl_output "PRIVMSG $nick" ##########binds###################### bind pub -|- $glpubbind pub_google ##########Procs###################### proc pub_google {nick uhost handle chan search} { global gl_ouput set gl_output "PRIVMSG $nick" if {[llength $search] == 0} { puthelp "$gl_output : Ne aricagini soylemeyi unutmadin mi acaba!?" return 0 } set url [google_url $search $nick $chan] google_getpage $url return 0 } ## Google_url ############################################# ## Takes input and parses to set the url, returns the url proc google_url {search nick chan} { global google_def_num google_max gl_output set google_num [lindex $search end] if {[regexp { [0-9]+} $search match $google_num]} { if {$google_num > $google_max} { set google_num $google_max } set search [lrange $search 0 [expr {[llength $search] - 2}]] } else { set google_num $google_def_num } if {$google_num >= 5} { set gl_output "PRIVMSG $nick" } else { set gl_output "PRIVMSG $chan" } regsub -all { } $search {+} search set url "/search?hl=en&num=$google_num&lr=&ie=ISO-8859-1&q=$search" return $url } ## google_getpage ########################################## ## gets the webpage and parses for the returns proc google_getpage {url} { global gl_output ## Open socket if {[catch {set glsock [socket -async [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80]} sockerr]} { puthelp "PRIVMSG $nick :$sockerr" puthelp "PRIVMSG $nick :Daha sonra dene, bu sirada pencereden disari bakabilirsin!" close $glsock return 0 } puts $glsock "GET $url" flush $glsock set i 0 set j 1 set glout [gets $glsock] while {[regexp {Dissatisfied with your results?} $glout] == 0} { set glout [gets $glsock] incr i if {$i >= 150} { break } if {[regexp {#008000>(.*?) - } $glout match gl_result($j)]} { puthelp "$gl_output :$j. http://$gl_result($j)" incr j } } close $glsock return 0 } putlog "Google v1.0 by CeSaR loaded"


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
arama, botu, google, googletcl, script, tcl


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Google API İle Google'de Arama Yapma cisco Google 0 01 Nisan 2011 21:13
Google Arama Trendleri Nokta Google 0 02 Mayıs 2010 19:08
Google'dan renkli arama! Dilara Arama Motorları Haberleri 0 24 Mart 2009 14:57
Google'dan renkli arama! Dilara Windows 0 24 Mart 2009 14:45