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

- - İp adresi ve konum sorgulama (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1060386-ip-adresi-ve-konum-sorgulama.html)

İp adresi ve konum sorgulama

Nick IP adresi ve konum sorgulama..
Komut; !nickip <nick>

Kod:

on *:TEXT:!nickip *:#: {

  var %nick = $2

  if (%nick == $null) {

    msg $chan Lütfen bir nick girin! Örnek: !nickip nick

    return

  }

  if ($nick(%nick) == $null) {

    msg $chan %nick şu anda çevrimiçi değil!

    return

  }

  set %ipchan $chan

  set %ipnick %nick

  msg $chan %nick için IP adresi sorgulanıyor. . .

  .userip %nick

}

on *:USERIP:*: {

  var %ip = $2

  if (%ip == $null) {

    msg %ipchan %ipnick için IP adresi alınamadı. Yetkiniz olmayabilir veya IP gizlenmiş olabilir. . .

    return

  }

  if ($regex(%ip, /^(\d{1,3}\.){3}\d{1,3}$/) == 0) {

    msg %ipchan Geçersiz IP adresi: %ip

    return

  }

  set %ipaddr %ip

  msg %ipchan %ipnick için IP: %ip | Konum sorgulanıyor. . .

  sockopen iplookup api.ip-api.com 80

}

on *:SOCKOPEN:iplookup: {

  if ($sockerr) {

    msg %ipchan Bağlantı hatası!

    sockclose $sockname

    return

  }

  sockwrite -n $sockname GET /json/%ipaddr HTTP/1.1

  sockwrite -n $sockname Host: api.ip-api.com

  sockwrite -n $sockname User-Agent: mIRC

  sockwrite -n $sockname Connection: close

  sockwrite -n $sockname $crlf

}

on *:SOCKREAD:iplookup: {

  if ($sockerr) {

    msg %ipchan Okuma hatası!

    sockclose $sockname

    return

  }

  var %data

  sockread %data

  if ($regex(%data, /"status":"success"/)) {

    if ($regex(%data, /"country":"([^"]+)"/)) {

      var %country = $regml(1)

    }

    if ($regex(%data, /"city":"([^"]+)"/)) {

      var %city = $regml(1)

    }

    if ($regex(%data, /"isp":"([^"]+)"/)) {

      var %isp = $regml(1)

    }

    if (%country) {

      msg %ipchan Nick: %ipnick | IP: %ipaddr | Ülke: %country | Şehir: %city | ISP: %isp

    }

    else {

      msg %ipchan Üzgünüm konum bilgisi alınamadı. . .

    }

  }

  elseif ($regex(%data, /"status":"fail"/)) {

    msg %ipchan IP sorgulama başarısız; Geçersiz veya özel IP adresi. . .

  }

}

on *:SOCKCLOSE:iplookup: {

  unset %ipchan

  unset %ipnick

  unset %ipaddr

}

Cevap: İp adresi ve konum sorgulama

UserIP birçok yerde sıkıntı çıkarabilir gibi duruyor ama faydalı bir konu. Eline sağlık.

Cevap: İp adresi ve konum sorgulama

Eline sağlık güzel paylaşım olmuş. sıkıntı yaratacağı doğru fakat yine de güzel bilgi.

Cevap: İp adresi ve konum sorgulama

/whois ile nick komutu ile IP sorgulama yapmak isterseniz.

Kod:

on *:TEXT:!nickip *:#: {

  var %nick = $2

  if (%nick == $null) {

    msg $chan Lütfen bir nick girin! Örnek: !nickip nick

    return

  }

  if ($nick(%nick) == $null) {

    msg $chan %nick şu anda çevrimiçi değil!

    return

  }

  set %ipchan $chan

  set %ipnick %nick

  msg $chan %nick için whois sorgusu yapılıyor...

  .whois %nick

}

on *:RAW:*: {

  if ($numeric == 311 || $numeric == 378) {

    ; 311: Standart whois bilgisi, 378: IP/hostname bilgisi (sunucuya bağlı)

    var %raw = $rawmsg

    if ($regex(%raw, /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/)) {

      set %ipaddr $regml(1)

      msg %ipchan %ipnick için IP: %ipaddr | Konum sorgulanıyor...

      sockopen iplookup api.ip-api.com 80

    }

  }

}