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.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

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)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.