mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası   Reklam Alanı


  mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası MF - mIRC Scripting Hazır Kodlar

Gevezeyiz Sohbet

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 29 Mart 2019, 22:53   #1
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 594
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 86
Post 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
  }
}





 Che isimli Üye şimdilik offline konumundadır   Alıntı
Alt 02 Nisan 2019, 18:11   #2
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 594
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 86
Standart Cevap: Youtube[YT] Bilgilerini Yansıtma

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap






 Che isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
bilgilerini, yansıtma, youtube, youtubeyt

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



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


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
mIRCForum - Sohbet
Copyright ©2005 - 2016 mIRCForum.Com | Tüm Hakları Saklıdır.