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

Toprak · 11 Nisan 2019, 18:40

Kullanımı: !nerden IP/NICK

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) igs.gevezeyiz.net 80 | sockmark $+(nerden,%_rand) $1 }
on *:sockopen:nerden*:{  
  if ($sockerr) { sockclose $sockname }
  else {
    sockwrite -nt $sockname GET $+(/bilgi.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.

Zalimsin · 14 Eylül 2019, 19:08

renklendirme yapamadık ama

cArsi · 29 Aralık 2019, 22:40

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

Kullanımı: !nerden IP/NICK

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. | return }
    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 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    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 %:r $r(1000,99999) | sockopen $+(nerden,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(nerden,%:r) $1 }
on *:sockopen:nerden*:{  
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -n $sockname $crlf  
} 
on *:sockread:nerden*:{  
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
  if $regex($1-,/<i>Hostname:<\/i> <b>(.+)<\/b>/i) { msg %:kanal 4Hostname: $regml(1) }
  elseif $regex($1-,/<i>(.+)\:.+<b>(.+)<\/b>/i) { msg %:kanal $+(4,$replace($regml(1),Domain,IP),:) $regml(2) }
}

elinize sağlık hocam.. bunu sadece belirlediğimiz bir kanalda çalıştırmak için ne yapmalıyız yardımcı olurmusunuz..

OperServ · 29 Aralık 2019, 22:44

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

elinize sağlık hocam.. bunu sadece belirlediğimiz bir kanalda çalıştırmak için ne yapmalıyız yardımcı olurmusunuz..

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

on *:text:*:#:{

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

on *:input:#:{

Satirlarin yerine kanal ismini koyabilirsin örnek #sohbet Cogaltmak istersen #Sohbet,#radyo,#chat gibi uzatabilirsin..
Asagidaki gibi..

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

on *:input:#sohbet:{

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

on *:text:*:#sohbet:{

cArsi · 29 Aralık 2019, 22:51

çok teşekkürler hocam sağolun..

OperServ · 31 Aralık 2019, 01:56

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

renklendirme yapamadık ama

Buyrun hem renkli hem turkçedir

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. | return }
    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 { msg # Lütfen !Nerden IP/Nick Olarak Belirtiniz. | return }
    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 %:r $r(1000,99999) | sockopen $+(yerbul,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:yerbul*:{
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -n $sockname $crlf
}
on *:sockread:yerbul*:{
  var %:yerbul | sockread -f %:yerbul
  if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) }
  if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP City: isin %:yerbul) { msg %:kanal Şehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}

vioLeta · 01 Ocak 2020, 14:26

Emeğinize sağlık.

curl · 13 Ocak 2020, 21:19

kod çalışmıyor .

OperServ · 14 Ocak 2020, 01:08

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

kod çalışmıyor .

Koda bir sikinti yok mirc versionun kaç?

curl · 14 Ocak 2020, 03:11

v6.35 sürüm.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:11 -->-> Daha önceki mesaj 00:49 --

kodlar çakışmış scripte çalışıyormuş tşkler.

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

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.