| immortaL | 05 Haziran 2016 15:03 |
Youtube Linkinden ***** 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 *****: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 *****", 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(***** 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 ***** linkini yapıştırıp enter'a bastığınızda, *****nun ismini verir.
Örnek:
[02:46] youtube.com/watch?v=_y8p6uQDH4s
[02:46] Linke ait *****: Adventure Club & Krewella - Rise & Fall
Ayrıca sağ tık yaparak, menü üzerinden Bul seçeneğine tıklayıp linke ait ***** ismini bulabilirsiniz. |
