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

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

Cevap: !Nerden kodu güncel.

Emeğinize sağlık.

Cevap: !Nerden kodu güncel.

Emeğinize sağlık. Ben bu kodu ekledim, mesela boş bir kanala giriyorum deniyorum olmuyor. Neden acaba? Oper yetkim yetmiyor olabilir mi?

Cevap: !Nerden kodu güncel.

Alıntı:

Style35 Nickli Üyeden Alıntı (Mesaj 1042490814)

Emeğinize sağlık. Ben bu kodu ekledim, mesela boş bir kanala giriyorum deniyorum olmuyor. Neden acaba? Oper yetkim yetmiyor olabilir mi?

!nerden nick şeklinde mi deniyorsun ? pmden iletişim atarsan bakabiliriz.

Cevap: !Nerden kodu güncel.

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042490816)

!nerden nick şeklinde mi deniyorsun ? pmden iletişim atarsan bakabiliriz.

Hocam pm atamıyorum. Yetersiz mesaj sayım. İp ve nick şeklinde deniyorum ikisinde de olmuyor.

Cevap: !Nerden kodu güncel.

Alıntı:

Style35 Nickli Üyeden Alıntı (Mesaj 1042490818)

Hocam pm atamıyorum. Yetersiz mesaj sayım. İp ve nick şeklinde deniyorum ikisinde de olmuyor.

sunucu adresinizi yazın yada profilindeki sunucu adresinden iletişime geçebiliriz.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:53 -->-> Daha önceki mesaj 18:50 --

Alıntı:

Style35 Nickli Üyeden Alıntı (Mesaj 1042490814)

Emeğinize sağlık. Ben bu kodu ekledim, mesela boş bir kanala giriyorum deniyorum olmuyor. Neden acaba? Oper yetkim yetmiyor olabilir mi?

flag yetersizliğinden dolayı who komutunda gerçek ip adresini göremiyor.
whois deki gerçek ip adresine entegre edildi
kullanmak isteyen olursa diye paylaşıyorum!
Kullanım: !nerden nick/ip

Kod:

raw 378:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($token($6,2,64),¿,$2)

on *:sockopen:pro*:{ 

  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) HTTP/1.1 

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8

  sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname Host: ipinfo.io

  sockwrite -n $sockname  $crlf 

}

on *:sockread:pro*:{ 

  var %:pro | sockread %:pro | tokenize 32 %:pro

  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }

  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }

  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }

  if "org isin %:pro { 

    var %:isp $remove($gettok(%:pro,2-,58),$chr(44),") 

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)  $hget(%:n,City)

    msg %:kanal Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

    .hfree -w %:n | sockclose $sockname

  } 

}

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+)) { var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($2,¿,Bilinmiyor) }

    else { .whois $2 }

  }

}

Cevap: !Nerden kodu güncel.

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042490820)

sunucu adresinizi yazın yada profilindeki sunucu adresinden iletişime geçebiliriz.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:53 -->-> Daha önceki mesaj 18:50 --

flag yetersizliğinden dolayı who komutunda gerçek ip adresini göremiyor.
whois deki gerçek ip adresine entegre edildi
kullanmak isteyen olursa diye paylaşıyorum!
Kullanım: !nerden nick/ip

Kod:

raw 378:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($token($6,2,64),¿,$2)

on *:sockopen:pro*:{ 

  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) HTTP/1.1 

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8

  sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname Host: ipinfo.io

  sockwrite -n $sockname  $crlf 

}

on *:sockread:pro*:{ 

  var %:pro | sockread %:pro | tokenize 32 %:pro

  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }

  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }

  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }

  if "org isin %:pro { 

    var %:isp $remove($gettok(%:pro,2-,58),$chr(44),") 

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)  $hget(%:n,City)

    msg %:kanal Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

    .hfree -w %:n | sockclose $sockname

  } 

}

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+)) { var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($2,¿,Bilinmiyor) }

    else { .whois $2 }

  }

}

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ustad bunu operste yapmak için düzenleyecegimiz bir yer varmı ? kanal kısmını bulamadımda

Cevap: !Nerden kodu güncel.

Alıntı:

Nea Nickli Üyeden Alıntı (Mesaj 1042492337)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ustad bunu operste yapmak için düzenleyecegimiz bir yer varmı ? kanal kısmını bulamadımda

Kod:

on *:input:*: {

Burayı

Kod:

on *:input:#Opers: {

Cevap: !Nerden kodu güncel.

Emeğinize sağlık.

Cevap: !Nerden kodu güncel.

Kod güncellendi.

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