|
27 Ocak 2015, 22:48 | #1 |
Bir umuttur yaşamak
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya Mesajlar: 323 WEB Sitesi: https://www.teklan.com.tr/ IRC Sunucusu: irc.teklan.com.tr İlgi Alanı: mIRC Scripting Alınan Beğeni: 211 |
Youtube Linkinden Video ismi Bulmak
Kod:
#youlink off on *:input:#: { unset %diagoster if $regex($1-,/^(\150\164{2}\160(\163|)\72\57\57\167{3}\56\w{7}\56\w{3}\57\S{5}\77(\166\75(\S{11}$|\S{11}\46(list)\75\S{15}$|\S{11}\46(list)\75\S{34}$)|(feature)\75(player)\137(embedded)\46\166\75\S{11}$|(feature)\75(endscreen)\46\116\122\75\d\46\166\75\S{11}$))/Si) { var %r_v = $regml(1) | .set -e %c_h $chan if $regex(reg,%r_v,/(\S{5}\77)(.+)\166\75(\S{11})$/i) { .set -e %parca $regml(reg,3) } elseif $regex(reg,%r_v,/\166\75(\S{11})\46(list)\75\S{15}$/i) { .set -e %parca $regml(reg,1) } elseif $regex(reg,%r_v,/(\57\S{5}\77\166\75\S{11})$/i) { .set -e %parca $regml(reg,1) } /\/ } } #youlink end alias -l \/ { if $regex($sock(ytbul).status,/^active$/i) { sockclose ytbul } | sockopen ytbul www.youtube.com 80 } alias -l çöz { return $replacecs($1-,",",&,&,',') } on *:sockopen:ytbul: { sockwrite -n $sockname GET /results?search_query= $+ %parca HTTP/1.1 sockwrite -n $sockname host: $sock($sockname).addr sockwrite -n $sockname $crlf } on *:sockread:ytbul: { if ($sockerr) { /echo -a 5Hata Mesajı:2 $sock($sockname).wsmsg | return } var %ytbul | sockread %ytbul if $regex(%ytbul,/data\Scontext\Sitem\Sid\S\S $+ $regsubex(%parca,/\/.+[\75](\S+)/,\t) $+ \S/i) { if $regex(sonuc,%ytbul,/data\Scontext\Sitem\Stitle\S["](.+)["]/i) { if $regex(%diagoster,/^on$/) { /set -e %ylink $çöz($gettok($regml(sonuc,1),1,$asc("))) | sockclose ytbul | /ydia } else { /msg %c_h Linke ait video:2 $çöz($gettok($regml(sonuc,1),1,$asc("))) | sockclose ytbul } } } } alias ytarama { set -e %diagoster on if $regex(sub,%ysearch,/^(\150\164{2}\160(\163|)\72\57\57\167{3}\56\w{7}\56\w{3}\57\S{5}\77(\166\75(\S{11}$|\S{11}\46(list)\75\S{15}$|\S{11}\46(list)\75\S{34}$)|(feature)\75(player)\137(embedded)\46\166\75\S{11}$|(feature)\75(endscreen)\46\116\122\75\d\46\166\75\S{11}$))/Si) { var %r_v = $regml(sub,1) if $regex(reg,%r_v,/(\S{5}\77)(.+)\166\75(\S{11})$/i) { .set -e %parca $regml(reg,3) } elseif $regex(reg,%r_v,/\166\75(\S{11})\46(list)\75\S{15}$/i) { .set -e %parca $regml(reg,1) } elseif $regex(reg,%r_v,/(\57\S{5}\77\166\75\S{11})$/i) { .set -e %parca $regml(reg,1) } /\/ } } dialog ytbilgi { title "YouTuBe" size -1 -1 170 54 option dbu text $suzgec(%ylink) , 1, 3 17 161 21 box "Linke Ait Video", 2, 1 11 166 29 button "Kapat", 3, 129 40 37 12, flat ok } alias -l ydia { .timer 1 1 /dialog -m ytbilgi ytbilgi } alias -l suzgec return $replacecs($1-,ü,ü,ı,ı,Å,ş,Å,Ş,ç,ç,Ã,Ö,ö,ö,Ä,ğ,â,',Ä°,İ,Ã,Ü,Ã,Ç,â,â,â,-) alias y_ac { if $regex($group(#youlink).status,/^on$/i) { /echo -a 2Youtube Link Search Zaten Açık! } | else { .enable #youlink | /echo -a 2Youtube Link Search Açıldı } } alias y_kapat { if $regex($group(#youlink).status,/^off$/i) { /echo -a 2Youtube Link Search Zaten Kapalı! } | else { .disable #youlink | /echo -a 2Youtube Link Search Kapatıldı } } menu * { .Youtube Link Search ..Açık:/y_ac ..Kapat:/y_kapat ..Durum < $replacecs($group(#youlink).status,on,Açık,off,Kapalı) > :. ..Bul:/if $regex($group(#youlink).status,/^on$/) { /unset %ylink %diagoster | set -e %ysearch $input(Video Linkini Giriniz,e,Youtube Search) | /ytarama } | else { return $input(Youtube Link Search Şuan Kapalı,o,Bilgilendirme) } } Kodun Amacı: (Öncelikle sağ tık yapıp, Youtube Link Search menüsünden Açık konuma getirin.) Youtube video linkini yapıştırıp enter'a bastığınızda, videonun ismini verir. Örnek: [02:46] <Feragat> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [02:46] <Feragat> Linke ait video: Adventure Club & Krewella - Rise & Fall Örnek Resim: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ayrıca sağ tık yaparak, menü üzerinden Bul seçeneğine tıklayıp linke ait video ismini bulabilirsiniz. Örnek Resim: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kodun algıladığı Youtube Link Modları: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Not: Kod yukarıda belirttiğim link modlarını algılar. Kodu yapalı 6-7 ay olmuştur belki daha fazla. Youtube sık içerik değiştirdiği için kodu 3. güncelleyişim. Bu hali ile ne kadar çalışır bilemem. Devredışı kaldığında tekrar güncellemeye çalışırım. (Dialog kodlarıyla uğraşmaktan nefret ettiğim için, dialog konusuna pek özenmedim. Kullanmak isteyen arkadaşlar kendiniz isterseniz daha güzel bir dialog yapabilirsiniz.) İyi forumlar. Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
|
Alıntı
|
Etiketler |
bulmak, ismi, linkinden, video, youtube |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
tung YouTube Anda dapat jam video pukulan keempat Tempat berkualitas Hangat ini | indoet93 | İlan Panosu | 0 | 11 Ekim 2017 10:57 |
Zarrab’ı tutuklayan savcı Bharara, Türkiye’nin en merak edilen ismi oldu | IF-Haber | Ekonomi Haberleri | 0 | 23 Mart 2016 03:47 |
YouTube Title TCL | No_FeaR | TCL Scriptler | 0 | 24 Eylül 2015 00:42 |
Max Music - Arkaplana Youtube Müzik Ekleyin (WP Eklentisi) | Code | WP Eklentileri | 0 | 23 Eylül 2015 20:00 |
Kanarya Adaları'nın ismi hangi hayvandan gelir? | Toprak | Merak Ettikleriniz | 1 | 23 Mart 2015 16:02 |