IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 5 Toplam 5 Sayfadan 1234 5
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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   !Nerden kodu güncel. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/815227-nerden-kodu-guncel.html)

Toprak 19 Ağustos 2022 11:00
Cevap: !Nerden kodu güncel.
 
Kod:
on *:text:*:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. }
    else {
      set %:kanal #
      if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
      else { .enable #nerdenbul | .who +I $2 }
    }
  }
}
on *:input:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { .echo -a Lütfen !nerden IP/Nick olarak belirtiniz. }
    else {
      set %:kanal #
      if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
      else { .enable #nerdenbul | .who +I $2 }
    }
  }
}
#nerdenbul off
raw 352:*:_nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %_rand $+($1,$r(1000,99999)) | sockopen $+(nerden,%_rand) cesuryurek.net 80 | sockmark $+(nerden,%_rand) $1 }
on *:sockopen:nerden*:{ 
  if ($sockerr) { sockclose $sockname }
  else {
    sockwrite -nt $sockname GET $+(/bilgi5.php?ip=,$sock($sockname).mark) HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname Cache-Control: max-age=0
    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
    sockwrite -nt $sockname $crlf 
  }
}
on *:sockread:nerden*:{
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
  if $regex($1-,/<span>(.+)</span> <span>(.+)</span>/i) { msg %:kanal $regml(1) $regml(2) }
}

Kod güncellendi.

High 28 Ağustos 2022 04:08
Cevap: !Nerden kodu güncel.
 
Çalıştıramadım Toprak, userip şptal Sunucuda onunla alakalı sanırım dimi?

High 01 Eylül 2022 15:27
Cevap: !Nerden kodu güncel.
 
Tamam sorun benimle alakalı hallettim KOD için sağ ol renklendirebilir miyiz?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:27 -->-> Daha önceki mesaj 14:03 --

Alıntı:
High Nickli Üyeden Alıntı (Mesaj 1042714429)
Tamam sorun benimle alakalı hallettim KOD için sağ ol renklendirebilir miyiz?
Kod:
on *:text:*:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. }
    else {
      set %:kanal #
      if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
      else { .enable #nerdenbul | .who +I $2 }
    }
  }
}
on *:input:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { .echo -a Lütfen !nerden IP/Nick olarak belirtiniz. }
    else {
      set %:kanal #
      if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
      else { .enable #nerdenbul | .who +I $2 }
    }
  }
}
#nerdenbul off
raw 352:*:_nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %_rand $+($1,$r(1000,99999)) | sockopen $+(nerden,%_rand) cesuryurek.net 80 | sockmark $+(nerden,%_rand) $1 }
on *:sockopen:nerden*:{ 
  if ($sockerr) { sockclose $sockname }
  else {
    sockwrite -nt $sockname GET $+(/bilgi5.php?ip=,$sock($sockname).mark) HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname Cache-Control: max-age=0
    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
    sockwrite -nt $sockname $crlf 
  }
}
on *:sockread:nerden*:{
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
  if $regex($1-,/<span>(.+)</span> <span>(.+)</span>/i) { msg %:kanal 2 $regml(1) 4 $regml(2) }
}
}
Renk eklendi

ZaLiM1979 21 Eylül 2022 21:27
Cevap: !Nerden kodu güncel.
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1042711867)
Kod:
on *:text:*:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. }
    else {
      set %:kanal #
      if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
      else { .enable #nerdenbul | .who +I $2 }
    }
  }
}
on *:input:#:{
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { .echo -a Lütfen !nerden IP/Nick olarak belirtiniz. }
    else {
      set %:kanal #
      if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
      else { .enable #nerdenbul | .who +I $2 }
    }
  }
}
#nerdenbul off
raw 352:*:_nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %_rand $+($1,$r(1000,99999)) | sockopen $+(nerden,%_rand) cesuryurek.net 80 | sockmark $+(nerden,%_rand) $1 }
on *:sockopen:nerden*:{ 
  if ($sockerr) { sockclose $sockname }
  else {
    sockwrite -nt $sockname GET $+(/bilgi5.php?ip=,$sock($sockname).mark) HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname Cache-Control: max-age=0
    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
    sockwrite -nt $sockname $crlf 
  }
}
on *:sockread:nerden*:{
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
  if $regex($1-,/<span>(.+)</span> <span>(.+)</span>/i) { msg %:kanal $regml(1) $regml(2) }
}
Kod güncellendi.

Cok tsk ederim güzel Code. Buna acaba ilafe

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
VPN

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Proxy

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Tor

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Relay

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Hosting


bunlarda eklenemezmi?

cok güzel olurdu bence.

bu site onlarida gözteriyor: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
ben bunu whois addonuma ekledim mahlesef bazi seyleri silemiyoruz misal longitude falan.. :-)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:48.
Sayfa 5 Toplam 5 Sayfadan 1234 5
Konuya ait 40 Mesajı başka Sayfada göster

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