!Nerden kodu güncel. - Sayfa 5 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Toprak · 19 Ağustos 2022, 11:00

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

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

Çalıştıramadım Toprak, userip şptal Sunucuda onunla alakalı sanırım dimi?

High · 01 Eylül 2022, 15:27

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

High Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Tamam sorun benimle alakalı hallettim KOD için sağ ol renklendirebilir miyiz?

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

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

Toprak Nickli Üyeden Alıntı
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:*:#:{
  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

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

VPN

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

Proxy

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

Tor

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

Relay

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

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
!nerden Kodu Çalısmıyor	CINN	mIRC Scripting Sorunları	20	18 Mayıs 2021 15:35
Altın fiyatlarında güncel durum… Çeyrek ve gram altında yeni haftanın güncel rakamları	Sanem	Ekonomi Haberleri	0	15 Ekim 2018 14:31
Bu Kodu nerden bulabilirim ACİL	MorfiN	mIRC Scripting Sorunları	2	10 Mart 2012 22:36
selam status ekranına saat kodu koydum O Kodu NASIL SİLECEM ??? Y	ofofyaRim	mIRC Scripting Sorunları	5	31 Ağustos 2009 23:42

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.

Canlı Akış 0

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.

Canlı Akış 0

Reaksiyonlar