| immortaL | 29 Mart 2019 22:53 |
Youtube[YT] Bilgilerini Yansıtma
Merhaba,
Radyo botu içi yapmıştım normalde /_yt Şarkı Adı ile ***** arama sistemiydi ama o kodları bulamadım bulunca onuda atarım yorum olarak
Kanal genelinde atılan yt linklerinin isim-like-dislike-indirme linkini direk kanala gönderir Kod:
on *:input:#:{
if $regex($1-,/watch\?v\=(.+)/Si) {
var %:r $+($ctime,$r(100,9999999)) | .hadd -ms $+(yt,%:r) Kanal #
sockopen $+(yt,%:r) api.teklan.com.tr 80
sockmark $+(yt,%:r) $token($regml(1),1,38)
}
}
on *:text:*:#:{
if $regex($1-,/watch\?v\=(.+)/Si) {
var %:r $+($ctime,$r(100,9999999)) | .hadd -ms $+(yt,%:r) Kanal #
sockopen $+(yt,%:r) api.teklan.com.tr 80
sockmark $+(yt,%:r) $token($regml(1),1,38)
}
}
alias _tr return $replace($1-,ü,ü,ÅŸ,ş,ö,ö,ÄŸ,ğ,ı,ı,ç,ç,Ä,Ğ,Å,Ş,Ç,Ç,Ğ°,İ,Ãœ,Ü,Ö,Ö,Ãœ,Ü,•,$chr(149),©,$chr(169),',',&,&)
on *:sockopen:yt*:{
if ($sockerr) { .sockclose $sockname | return }
sockwrite -nt $sockname GET $+(/youtube.php?id=,$sock($sockname).mark) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
sockwrite -nt $sockname Accept-Language: tr-TR
sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -nt $sockname $crlf
}
on *:sockread:yt*:{
var %:yt | sockread %:yt | tokenize 32 %:yt
if $regex($1-,/"title": "(.+)\"/i) { .hadd -ms $sockname Title $_tr($regml(1)) }
elseif $regex($1-,/"viewCount": "(.+)\"/i) { .hadd -ms $sockname İzlenme $replace($bytes($regml(1),b),$chr(44),.) }
elseif $regex($1-,/"likeCount": "(.+)\"/i) { .hadd -ms $sockname Like $replace($bytes($regml(1),b),$chr(44),.) }
elseif $regex($1-,/"dislikeCount": "(.+)\"/i) {
msg $hget($sockname,Kanal)
msg $hget($sockname,Kanal) 5***** isim:14 $hget($sockname,Title) 5Izlenme:14 $hget($sockname,İzlenme) 5Begeni:14 $hget($sockname,Like) 5Begenmeme:14 $replace($bytes($regml(1),b),$chr(44),.)
msg $hget($sockname,Kanal) 5***** linki:14 $+(https://www.youtube.com/watch?v=,$sock($sockname).mark)
msg $hget($sockname,Kanal) 5***** İndirme linki:14 $+(https://yout.com/*****/,$sock($sockname).mark,/) 4KAYIT MP3 tıklayarak indirebilirsiniz.
msg $hget($sockname,Kanal)
.hfree -sw $sockname
sockclose $sockname
}
}
|
