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

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ü:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için 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:

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

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

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

Kod:

menu * {

  .IP Location:noop $?="IP Location" | find $! 

}

alias find { 

  var %r = $r(1111,999999)

  sockopen find $+ %r 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için 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.