IP Location ($tip)
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ü:
[Linki Görebilmeniz Icin Üye Olmaniz Gerekiyor! Üye Olmak Icin Tiklayin...]
-
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:
[Linki Görebilmeniz Icin Üye Olmaniz Gerekiyor! Üye Olmak Icin Tiklayin...]
[Linki Görebilmeniz Icin Üye Olmaniz Gerekiyor! Üye Olmak Icin Tiklayin...]
[Linki Görebilmeniz Icin Üye Olmaniz Gerekiyor! Üye Olmak Icin Tiklayin...]
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,)
}
}
Alternatif Link: [Linki Görebilmeniz Icin Üye Olmaniz Gerekiyor! Üye Olmak Icin Tiklayin...]
Bilgilendirme: Düzenleme, ekleme, çıkarma işi size ait. Bunun dışında, betik yapısı ve işlevleri ile ilgili dilediğinizi sorabilirsiniz. Kolay gelsin.
|
