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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   yuhtup tcl (YouTube arama & youtube2mp3) (https://www.ircforumlari.net/tcl-scriptler/550604-yuhtup-tcl-youtube-arama-amp-youtube2mp3.html)

saywhat 16 Ekim 2013 04:40
yuhtup tcl (YouTube arama & youtube2mp3)
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

;# kullanacağınız kanal'da aktif etmek için: botunuza telnet/dcc üzerinde bağlanıp,
;# .chanset #kanalınız +yuhtuu komutu vermelisiniz.aksi halde çalışmaz...

->> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kheldor 14 Kasım 2013 14:19
Cevap: yuhtup tcl (YouTube arama & youtube2mp3)
 
kod düne kadar sorunsuz calısmaktayı. Ancak artık tepki vermemekte sevgili saywhat.

PHP- Kodu:
package require http

;# kullanacağınız kanal'da aktif etmek için: botunuza telnet/dcc üzerinde bağlanıp,
;# .chanset #kanalınız +yuhtuu     komutu vermelisiniz.aksi halde çalışmaz...
setudef flag yuhtuu

;# kodu kullanma yetkisi olacak olan kullanıcı flagları ne olacak:
set yuhflags "-|-"

;# komut başına gelecek sembol/işaret:
set semb "."

;# kanal komutu ne olacak:
set kmt "yuhtup"

bind pub $::yuhflags $::semb$::kmt yuh:tup

proc yuh:tup {nick uhost hand chan text} {
  if {![channel get $chan yuhtuu]} { return 0;}
   set q [lrange [split [string tolower $text]] 0 end]
   set q [string map -nocase {"ö" "o" "ü" "u" "ı" "i" "ş" "s" "ç" "c" "ğ" "g" " " %20} [join $q]]
  if {[llength $q] == 0} { puthelp "notice $nick :\002Kullanımı:\002 \00304\002$::lastbind <aradığınız video>\002\003"; return 0;}
::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
set tok [::http::geturl "http://youtuberepeater.com/SearchVideos?q=$q" -timeout 25000]
set data [::http::data $tok]
::http::cleanup $tok
  set i 0
 while {$i < 4 && [regexp -line {Title"><a href="(.*?)">(.*?)<} $data a yuurl baslik]} {
regexp -line {Title"><a href="(.*?)">(.*?)<} $data a yuurl baslik
regexp -line {<div class="ItemViews">(.*?)</div>} $data c gorus
regsub -line {Title"><a href="(.*?)">(.*?)<} $data "" data
regsub -line {<div class="ItemViews">(.*?)</div>} $data "" data
   set durl [string range $yuurl 9 19]
   set gorus [string map {"views" "kez izlenmiş" "&nbsp;" "\002||\002"} $gorus]
   putserv "privmsg $chan :\00301,15$baslik\003 \002||\002 Süre: \00304$gorus\003 \002||\002 Link: \00306\037http://youtu.be/$durl\037\003 \002||\002 "
    incr i
    }   
}

putlog "ok..." 

saywhat 14 Şubat 2014 22:33
Cevap: yuhtup tcl (YouTube arama & youtube2mp3)
 
yeniden yazıldı -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kheldor 15 Şubat 2014 13:13
Cevap: yuhtup tcl (YouTube arama & youtube2mp3)
 
2 gün sonra yine sorun verdi kod ;)


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yükleniyor...


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bu video mevcut değil.

Bu sorundan dolayı özür dileriz.

saywhat 15 Şubat 2014 16:52
Cevap: yuhtup tcl (YouTube arama & youtube2mp3)
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kodda kullandığım site kodları çalışıyor...

NeSt 19 Şubat 2014 14:09
Cevap: yuhtup tcl (YouTube arama & youtube2mp3)
 
linker bozuk.

saywhat 21 Şubat 2014 11:31
Cevap: yuhtup tcl (YouTube arama & youtube2mp3)
 
bu siteyle alakalı "sorun" var... onarıcağım sonra... o nedenle kodu kaldırdım.

ev taşıyorum. yeni eve yerleşince ,bakıcağım...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:44.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk