youtube remote hk. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Fredyyy · 02 Aralık 2020, 16:40

Merhaba iyi forumlar dilerim. Daha önce de paylaşılmıştı lakin code çalışmıyor. Bir üstadımız onarabilirse hep birlikte faydalanabiliriz, şimdiden teşekkür ederim.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias youtube {
  if $sock(youtube1) {
    sockclose $ifmatch
  }
  sockopen -e youtube1 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443
}
on *:sockopen:youtube1: {
  if $sockerr {
    echo -a 12Bağlantı hatası $sock($sockname).wsmsg
    return
  }
  sockwrite -nt $sockname GET $+(/results?search_query=,$hget(youtube,youtube)) HTTP/1.1
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
}
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://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockclose $sockname
        }
      }
    }
  }
}
alias ytb {
  var %m 1 
  %retyb = $1-
  while %m <= $numtok(%retyb,32) {
    if 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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(youtube,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;,')
}

tugbu · 02 Aralık 2020, 16:56

Arkadasa yardimci olalim lutfen..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

SuLh · 02 Aralık 2020, 18:39

Youtube'nin tag yapısı değiştiği için çalışmıyor.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockclose $sockname
        }

Bu kısmı şöyle değiştirerek deneyin.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

      if $regex(a,%f,/"title"\:\{"runs"\:\[\{"text"\:"(.+)"\}/i) {
        noop  $regex(b,$regml(a,1),/webCommandMetadata":\{"url":"(.+)"."webPageType":"WEB_PAGE_TYPE_WATCH"/Si) 
        var %a $token($regml(a,1),1,34),%b $token($regml(b,1),$token($regml(b,1),0,34),34)
        inc -u1 %yu
        if %yu == 1 {
          echo -a 0,4 $+ $ghta(%a) 11,1 Parçanın 4YouTube11,1 klibi için tıklayınız. 12 $+ $+(https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockclose $sockname
}

Fredyyy · 02 Aralık 2020, 22:50

Teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dediğiniz gibi çalıştı. Emeğinize sağlık..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Fredyyy · 03 Aralık 2020, 11:44

Bir de bu kodu #dj_sohbet kanalında arkadaşlara kullandırabilmek istiyorum.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

SuLh · 03 Aralık 2020, 14:04

mIRC Scriptingte bir olay(event) gerçekleştiğinde buna cevap vermek için event(olay)leri kullanıyoruz. Örneğin istediğiniz şey de birinin yazı yazması yani text yazması halinde bir şeyin gerçekleşmesini istiyoruz. O halde şöyle düşünebiliriz:

on *:text:*:#: // "on" burada olduğunda, olunca anlamı taşır. text eventi kullanıyoruz yani > Yazı olduğunda, yazı yazıldığında şunu gerçekleştir diyeceğimiz bir olay yazmış oluyoruz.

Text eventinin kullanımı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

on level:text:eşleşecek-yazı:hedef(kanal,özel,pencere):komutlar

* tüm leveller için geçerli anlamında, text(yazı olayının gerçekleştiği event), eşleşecek yazı hangi yazıya tepki vereceğiz(bkz: !klip), hedef (şu anki durumda #dj_sohbet)

***Ayrıca, eventlerde yazı eşleştirmek için regex kullanabiliriz.

O halde şöyle yazalım,

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:!klip *:#dj_sohbet: klipara $2-

*** $2- burada 2 ve daha sonrasında girilen ifadeyi temsil eder. (Örnek: !klip Sezen Aksu el gibi) ($2- = Sezen aksu el gibi)

**(Yıldız burada !klip'ten sonra herhangi bir yazı geleceğini ifade eder) (bkz: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] )

--

Yazıyı tetikleyecek olayı yazdığımıza göre şimdi geri dönüşünü almamız gerekiyor.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

echo -a 0,4 $+ $ghta(%a)

kısmını

Kod: Kodu kopyalamak için üzerine çift tıklayın!

msg #dj_sohbet 0,4 $+ $ghta(%a)

ile değiştirirsek sonucu kanala mesaj atacaktır.

Kod istekleriniz için lütfen şurayı kullanın: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Subzero · 03 Aralık 2020, 17:53

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] öncelikle yardımların için teşekkürler vallahi kafam çok karıştı yani remotenin #dj_sohbet kanalında calısmasının son hali nedir onu paylaşma imanın varmıdır.

alias youtube { bu kısmı on *:text:!klip *:#dj_sohbet: klipara $2- bununlamı değiştiricez yada böle sorayım

Fredyyy · 03 Aralık 2020, 19:16

Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buyrun, @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstadın dediği şekliyle..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:!klip *:#dj_sohbet: klipara $2-
alias youtube {
  if $sock(youtube1) {
    sockclose $ifmatch
  }
  sockopen -e youtube1 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443
}
on *:sockopen:youtube1: {
  if $sockerr {
    echo -a 12Bağlantı hatası $sock($sockname).wsmsg
    return
  }
  sockwrite -nt $sockname GET $+(/results?search_query=,$hget(youtube,youtube)) HTTP/1.1
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:youtube1: {
  if $sockerr {
    return
  }
  else {
    if $sock($sockname) {
      sockread %f
      if $regex(a,%f,/"title"\:\{"runs"\:\[\{"text"\:"(.+)"\}/i) {
        noop  $regex(b,$regml(a,1),/webCommandMetadata":\{"url":"(.+)"."webPageType":"WEB_PAGE_TYPE_WATCH"/Si) 
        var %a $token($regml(a,1),1,34),%b $token($regml(b,1),$token($regml(b,1),0,34),34)
        inc -u1 %yu
        if %yu == 1 {
          msg #dj_sohbet 0,4 $+ $ghta(%a)  11,1 Parçanın 4YouTube11,1 klibi için tıklayınız. 12 $+ $+(https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockclose $sockname
}
      }
    }
  }
}
alias ytb {
  var %m 1 
  %retyb = $1-
  while %m <= $numtok(%retyb,32) {
    if 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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(youtube,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;,')
}

Subzero · 04 Aralık 2020, 16:40

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Teşekkür ediyorum sağoluın.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
YouTube'dan 11 milyondan fazla video neden silindi YouTube hangi videoları sildi?	Risque	Teknoloji Dünyasından Son Haberler	1	26 Ağustos 2020 11:27
Remote	Ambargo41	mIRC Parça Kodlar	3	15 Ocak 2019 20:56
!youtube link - !youtube şarkı ismi	KivanC	mIRC Scripting Sorunları	4	13 Haziran 2015 19:24
Youtube Jacker ile youtube'den Rahatlıkla video İzleyin	Hasanx	Bilgisayar Donanımı	0	17 Nisan 2009 19:16

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.