IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - youtube remote hk. (https://www.ircforumlari.net/mirc-scripting-sorunlari/889956-youtube-remote-hk.html)

youtube remote hk.

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:

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;,')

}

Cevap: youtube remote hk.

Arkadasa yardimci olalim lutfen..:gulucuk:

Cevap: youtube remote hk.

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

Kod:

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:

      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

}

Cevap: youtube remote hk.

Teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dediğiniz gibi çalıştı. Emeğinize sağlık.. :tatli:

Cevap: youtube remote hk.

Bir de bu kodu #dj_sohbet kanalında arkadaşlara kullandırabilmek istiyorum. :tatli:

Cevap: youtube remote hk.

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:

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:

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

kısmını

Kod:

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...]

Cevap: youtube remote hk.

@[Ü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

Cevap: youtube remote hk.

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..:tatli:

Kod:

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;,')

}

Cevap: youtube remote hk.

@[Ü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.