IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajý baþka Sayfada göster

IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunlarý (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Deðiþik Bir istek Kodu (https://www.ircforumlari.net/mirc-scripting-sorunlari/783719-degisik-bir-istek-kodu.html)

Umud1990 04 Mayýs 2021 11:04
Cevap: Deðiþik Bir istek Kodu
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Teþekkür ederim fakat denedim olmadý.

DeLiTiM 04 Mayýs 2021 16:43
Cevap: Deðiþik Bir istek Kodu
 
Toplam 1 Eklenti bulunuyor.
Kullanýmý /klipara ferdi tayfur huzurum kalmadý
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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
  }
  var %komut = sockwrite -n $sockname
  %komut GET $+(/results?search_query=,$hget(youtube,youtube)) HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut Connection: keep-alive
  %komut $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 {
          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
        }
      }
    }
  }
}
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 ghta {
  return $replace($1-,â,a,’,',Â,$chr(32),Åž,Þ,°,°,Ç,Ç,Ä°,Ý,Å?,Þ,Ãœ,Ü,ı,ý,ÅŸ,þ,Ç,Ç,ç,ç,ÄŸ,ð,ÅŸ,þ,ü,ü,ı,ý,ö,ö,Ö,Ö,Ä,Ð,&uuml;,ü,&ccedil;,ç,&ouml;,ö,&rsquo;,')
}

Subzero 04 Mayýs 2021 20:01
Cevap: Deðiþik Bir istek Kodu
 
Kod:
on *:text:!klip *:#: 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 #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;,')
}


Tüm Zamanlar GMT +3 Olarak Ayarlanmýþ. Þuanki Zaman: 18:05.
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajý baþka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk