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 05 Şubat 2018, 16:27   #1
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 531
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 82
Post YouTube Link

Kod:
alias youtube {
  if $sock(youtube1) {
    sockclose $ifmatch
  }
  sockopen -e youtube1 www.************ 443
}
on *:sockopen:youtube1: {
  if $sockerr {
    echo -a 12Bağlantı hatası $sock($sockname).wsmsg
    return
  }
  sockwrite -nt $sockname GET $+(/results?search_query=,$hget(********youtube)) HTTP/1.0
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname Host: www.************
  sockwrite -nt $sockname
}
on *:sockread:youtube1: {
  if $sockerr {
    return
  }
  else {
    if $sock($sockname) {
      sockread %f
      if *h3 class="yt-lockup-title "><a hre* iswm %f {
        inc -u1 %yu
        if %yu == 1 {
          echo -a 0,4 $+ $ghta($htmlfree($gettok(%f,12,34))) 11,1 Parçanın 4YouTube11,1 klibi için tıklayınız. 12 $+ $+(https://www.************,$gettok(%f,6,34)  ) $+ 
          sockclose $sockname
        }
      }
    }
  }
}
alias ytb {
  var %m 1 
  %retyb = $1-
  while %m <= $numtok(%retyb,32) {
    if www isin $gettok(%retyb,%m,32) || .com isin $gettok(%retyb,%m,32) || .net isin $gettok(%retyb,%m,32) || .org isin $gettok(%retyb,%m,32) {
      %retyb = $deltok(%retyb,%m,32)
    }
    inc %m
  }
  if - isin %retyb {
    return $+(",$replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),-,",$chr(32),+,ı,i,ü,u,ö,o,ğ,g,ç,c,ş,s),")
  }
  else {
    return $replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),$chr(32),+,ı,i,ü,u,ö,o,ğ,g,ç,c,ş,s)
  }
}
alias klipara {
  if $hget(********ytb) {
    hdel youtube ytb
  }
  hadd -m youtube youtube $ytb($1-)
  youtube
}
alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)  
  return %x  
}
alias ghta {
  return $replace($1-,â,a,’,',Â,$chr(32),Ş,Ş,°,°,Ç,Ç,Ä°,İ,Å?,Ş,Ãœ,Ü,ı,ı,ÅŸ,ş,Ç,Ç,ç,ç,ÄŸ,ğ,ÅŸ,ş,ü,ü,ı,ı,ö,ö,Ö,Ö,Ä,Ğ,&uuml;,ü,&ccedil;,ç,&ouml;,ö,&rsquo;,')
}

Socks bota eklemek için ise;

Kod:
on $*:text:/^[.!]l[İiı]nkara/Si:#: {
  %ytbc = $chan
  klipara $2-
}





 Che isimli Üye şuanda  online konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
link, youtube

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: 18:48.


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