IRCForumu.NET - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu reklam ircforumu reklamdamlasu bizimkiler sihirlisohbet sohbetelit


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Mart 2019, 22:53   #1
Çevrimdışı
Gelme, burası çok derin.
 
immortaL - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: 07 Mayıs 2016
Üye No: 38
Şehir: Bolu
WebSite: IRCForumu.Net
IRC:
İlgi Alanım: vBulletin
Mesaj Sayısı: 880
Aldığı Beğeni: 254
Beğendikleri: 287
@immortaL
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:   Kodu kopyalamak için üzerine çift tıklayın!
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 $+(
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:   Kodu kopyalamak için üzerine çift tıklayın!
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 $+(
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 02 Nisan 2019, 18:11   #2
Çevrimdışı
Gelme, burası çok derin.
 
immortaL - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: 07 Mayıs 2016
Üye No: 38
Şehir: Bolu
WebSite: IRCForumu.Net
IRC:
İlgi Alanım: vBulletin
Mesaj Sayısı: 880
Aldığı Beğeni: 254
Beğendikleri: 287
@immortaL
Cevap: Youtube[YT] Bilgilerini Yansıtma


Kanala atılan YT linklerinin bilgilerini yansıtır..


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 $+(

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
bilgilerini, yansıtma, youtube, youtubeyt
IRCForumu.Net - Sponsor Bağlantılar


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 Açık
Pingbacks are Açık
Refbacks are Açık