IP Location ($tip)

Aytac

Developer
Yönetici
Developer
Katılım
4 Şub 2020
Mesajlar
373
Tepkime puanı
17
Puanları
18
Konum
ircland
Web sitesi
www.ircalem.net
Amaç: Düz mIRC üzerinde ihtiyacım olduğu için oluşturduğum ve kullandığım parça kodun paylaşımı

Ekleme: ALT + R (Remote)

- Kullanımı -

1. Kullanım Şekli: Bu şekilde kullanabilmek için ;echo -a satırındaki ; işaretini kaldırın.

/find <IP>

Örnek: /find 103.206.225.98

Sonuç:

Kod:
IP Address: 103.206.225.98 Hostname: 103.206.225.98
IP Country: India
IP Country Code: IND
IP Continent: Asia
IP Region: Bihar
IP City: Darbhanga
IP Latitude: 26.1667
IP Longitude: 85.9
Organization: Acme Diginet Corporation Pvt.
ISP Provider: Acme Diginet Corporation Pvt.

2. Kullanım Şekli: @IP-103.206.225.98 gibi bir pencereye yansıtabilirsiniz. Çalıştırmak için ;window -en satırının başındaki ; işaretini kaldırın.

Örnek görüntü:



-

3. Kullanım Şekli Herhangi bir ekranda Sağ tık -> IP Location sekmesini seçip IP adresini girin ve Tamam ı tıklatın. Bilgiler baloncuk şeklinde yansıyacaktır.
Not: Bu şekilde kullanabilmek için mIRC versionunuz 6.3x ve üzeri olmalı.

Örnek görüntüler:







Kod:
menu * {
  .IP Location:noop $?="IP Location" | find $! 
}
alias find { 
  var %r = $r(1111,999999)
  sockopen find $+ %r www.ipaddresslocation.org 80 
  sockmark find $+ %r $1
}
alias cx return $sock($sockname).mark

on *:sockopen:find*:{
  var %sw = sockwrite -n $sockname
  %sw GET /ip-address-locator.php?lookup= $+ $cx HTTP/1.1
  %sw Host: www.ipaddresslocation.org
  %sw Connection: keep-alive
  %sw Upgrade-Insecure-Requests: 1
  %sw User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36
  %sw Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8
  %sw Referer: http://www.ipaddresslocation.org/
  ;%sw Accept-Encoding: gzip, deflate
  %sw Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  ;%sw Cookie: __atuvc=0%7C33%2C0%7C34%2C0%7C35%2C0%7C36%2C2%7C37; __atuvs=59bd8b2ff4fa9887001; _ga=GA1.2.294156575.1498682408; _gid=GA1.2.565380201.1505594160; _gat=1
  %sw $crlf
  %sw $crlf
}

on *:sockread:find*:{
  var %sr
  sockread %sr
  if (*<i>IP *</i>* iswm %sr) || (*<b>*</b><br />* iswm $&
    %sr) || (*<i>Hostname:</i>* iswm %sr) || (*<i>Organization: $&
    </i>* iswm %sr) || (*<i>ISP *:</i>* iswm %sr) { 
    ;Bu satır aktif ekrana bilgileri yansıtır. 
    ;echo -a $regsubex(f,%sr,/<.*>/gU,) 
    ;Bu satır bilgileri baloncuk şeklinde gösterir
    noop $tip(IL,IP Location - $cx, $regsubex(f,%sr,/<.*>/gU,), 15)
    ;Bu satır pencere oluşturur ve bilgileri yansıtır.
    ;window -en @IP- $+ $cx | echo -t @IP- $+ $cx $regsubex(f,%sr,/<.*>/gU,) 
  }
}

Bilgilendirme: Düzenleme ekleme işlemleri size aittir kolay gelsim.
 
Üst