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

 Kayıt ol  Topluluk
3Beğeni(ler)
  • 3 Post By Feragat

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Mart 2010, 01:08   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
İp Locator



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
; IP locator v1.0 - entropy dalnet 

;============================== MENUS 

menu menubar,status,channel,query { 
  - 
  IP Locator { locate } 
  - 
} 

;============================== DIALOGS 

dialog locate { 
  title "IP Locator" 
  size -1 -1 134 93 
  option dbu notheme 
  text "IP Address", 1, 4 4 26 8, right 
  edit "", 2, 32 2 62 11 

  button "Locate", 3, 96 2 34 11 
  text "Status", 4, 4 16 25 8, right 
  edit "", 5, 32 14 62 11, read 
  text "City", 6, 4 34 25 8, right 
  text "State", 7, 4 43 25 8, right 
  text "Country", 8, 4 52 25 8, right 
  text "ISP", 9, 4 61 25 8, right 
  text "", 10, 32 34 98 8 
  text "", 11, 32 43 98 8 
  text "", 12, 32 52 98 8 
  text "", 13, 32 61 98 8 
  button "Clipboard", 14, 62 78 34 11 
  button "OK", 15, 96 78 34 11, ok 
  box "", 16, -4 25 142 4 
  box "", 17, -3 70 142 4 
} 

;============================== ALIASES 

alias -l locate { 
  if ($1) { 
    did -ra locate 5 Opening socket... 
    did -r locate 10,11,12,13 
    sockclose locate 
    sockopen locate [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 
    sockmark locate $1- 
  } 
  else { 
    dialog $iif($dialog(locate),-x,-m) locate locate 
  } 
} 
alias -l striphtml { 
  var %txt = $mid($1-,1,800) 
  var %p = 1, %b = $replace(%txt,$chr(38),$+($chr(32),$chr(38)),;,$+(;,$chr(32)),>,$+(>,$chr(32)),<,$+($chr(32),<,)), %c 
  while ($gettok(%b,%p,32)) { 
    %c = $ifmatch 
    if (*<* iswm %c || *&*; iswm %c || *</* iswm %c || *solid* iswm %c || *px* iswm %c || *:* iswm %c && $remove(%c,:) !isnum || */* iswm %c || ** iswm %c || *;* iswm %c || *&* iswm %c || *<*>* iswm %c || *=* iswm %c || *"* iswm %c || *>* iswm %c || $+(*,$chr(40),*) iswm %c || $+(*,$chr(41),*) iswm %c || $+(*,$chr(123),*) iswm %c || $+(*,$chr(125),*) iswm %c) { %b = $remove(%b,%c) | %p = 0 } 
    inc %p 
  } 
  return %b 
} 
alias -l endlocate { 
  did -ra locate 5 Transaction complete. 
  if (%ip) { did -ra locate 10 %city | did -ra locate 11 %state | did -ra locate 12 %country | did -ra locate 13 %isp } 
  else { did -r locate 10,11,12,13 | did -ra locate 5 Nothing found. } 
  unset %isp 
  unset %ip 
  unset %city 
  unset %state 
  unset %country 
  unset %isp 
} 

;============================== EVENTS 

on *:dialog:locate:sclick:14:{ 
  var %a = IP: $did(2).text City: $did(10).text State: $did(11).text Country: $did(12).text ISP: $did(13).text 
  clipboard %a 
} 
on *:dialog:locate:sclick:3:{ 
  if (!$did(2).text) { beep | return } 
  locate $did(2).text 
} 
on *:sockopen:locate:{ 
  if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Open Error(s). | did -r locate 10,11,12,13 | return } 
  sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,$sock($sockname).mark) HTTP/1.1 
  sockwrite -n $sockname Host: $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2)) 
  sockwrite -n $sockname Connection: keep-alive 
} 
on *:sockread:locate:{ 
  if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Read Error(s). | did -r locate 10,11,12,13 | return } 
  var %q 
  sockread %q 
  tokenize 32 $striphtml(%q) 
  did -ra locate 5 Reading data... 
  if (* IP Address *.*.*.* iswm $1-) { %ip = $4 } 
  if (* City * iswm $1-) { %city = $3- } 
  if (* State or Region * iswm $1-) { %state = $5- } 
  if (* Country * iswm $1-) { %country = $3- } 
  if (* ISP * iswm $1-) { %ISP = $3- } 
  .timertrace -o 1 1 endlocate $sock($sockname).mark 
}
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 13 Ekim 2013, 05:23   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp Locator



M0deXL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
; IP locator v1.0 - entropy dalnet 

;============================== MENUS 

menu menubar,status,channel,query { 
  - 
  IP Locator { locate } 
  - 
} 

;============================== DIALOGS 

dialog locate { 
  title "IP Locator" 
  size -1 -1 134 93 
  option dbu notheme 
  text "IP Address", 1, 4 4 26 8, right 
  edit "", 2, 32 2 62 11 

  button "Locate", 3, 96 2 34 11 
  text "Status", 4, 4 16 25 8, right 
  edit "", 5, 32 14 62 11, read 
  text "City", 6, 4 34 25 8, right 
  text "State", 7, 4 43 25 8, right 
  text "Country", 8, 4 52 25 8, right 
  text "ISP", 9, 4 61 25 8, right 
  text "", 10, 32 34 98 8 
  text "", 11, 32 43 98 8 
  text "", 12, 32 52 98 8 
  text "", 13, 32 61 98 8 
  button "Clipboard", 14, 62 78 34 11 
  button "OK", 15, 96 78 34 11, ok 
  box "", 16, -4 25 142 4 
  box "", 17, -3 70 142 4 
} 

;============================== ALIASES 

alias -l locate { 
  if ($1) { 
    did -ra locate 5 Opening socket... 
    did -r locate 10,11,12,13 
    sockclose locate 
    sockopen locate [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 
    sockmark locate $1- 
  } 
  else { 
    dialog $iif($dialog(locate),-x,-m) locate locate 
  } 
} 
alias -l striphtml { 
  var %txt = $mid($1-,1,800) 
  var %p = 1, %b = $replace(%txt,$chr(38),$+($chr(32),$chr(38)),;,$+(;,$chr(32)),>,$+(>,$chr(32)),<,$+($chr(32),<,)), %c 
  while ($gettok(%b,%p,32)) { 
    %c = $ifmatch 
    if (*<* iswm %c || *&*; iswm %c || *</* iswm %c || *solid* iswm %c || *px* iswm %c || *:* iswm %c && $remove(%c,:) !isnum || */* iswm %c || ** iswm %c || *;* iswm %c || *&* iswm %c || *<*>* iswm %c || *=* iswm %c || *"* iswm %c || *>* iswm %c || $+(*,$chr(40),*) iswm %c || $+(*,$chr(41),*) iswm %c || $+(*,$chr(123),*) iswm %c || $+(*,$chr(125),*) iswm %c) { %b = $remove(%b,%c) | %p = 0 } 
    inc %p 
  } 
  return %b 
} 
alias -l endlocate { 
  did -ra locate 5 Transaction complete. 
  if (%ip) { did -ra locate 10 %city | did -ra locate 11 %state | did -ra locate 12 %country | did -ra locate 13 %isp } 
  else { did -r locate 10,11,12,13 | did -ra locate 5 Nothing found. } 
  unset %isp 
  unset %ip 
  unset %city 
  unset %state 
  unset %country 
  unset %isp 
} 

;============================== EVENTS 

on *:dialog:locate:sclick:14:{ 
  var %a = IP: $did(2).text City: $did(10).text State: $did(11).text Country: $did(12).text ISP: $did(13).text 
  clipboard %a 
} 
on *:dialog:locate:sclick:3:{ 
  if (!$did(2).text) { beep | return } 
  locate $did(2).text 
} 
on *:sockopen:locate:{ 
  if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Open Error(s). | did -r locate 10,11,12,13 | return } 
  sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,$sock($sockname).mark) HTTP/1.1 
  sockwrite -n $sockname Host: $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2)) 
  sockwrite -n $sockname Connection: keep-alive 
} 
on *:sockread:locate:{ 
  if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Read Error(s). | did -r locate 10,11,12,13 | return } 
  var %q 
  sockread %q 
  tokenize 32 $striphtml(%q) 
  did -ra locate 5 Reading data... 
  if (* IP Address *.*.*.* iswm $1-) { %ip = $4 } 
  if (* City * iswm $1-) { %city = $3- } 
  if (* State or Region * iswm $1-) { %state = $5- } 
  if (* Country * iswm $1-) { %country = $3- } 
  if (* ISP * iswm $1-) { %ISP = $3- } 
  .timertrace -o 1 1 endlocate $sock($sockname).mark 
}


Ne işe yarıyor bu İp LoCatör ?
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 
Alıntı ile Cevapla

Alt 13 Ekim 2013, 17:17   #3
Toprak
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: İp Locator



Belirtiginiz IP'in şehirini gösteriyor dialog halinde ama veri cektigi site içeri degişmiş yada artık bu işi yapmıyorlar eger dilerseniz kod'u güncelleyebilirim.

 
Alıntı ile Cevapla

Alt 19 Ekim 2013, 08:07   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp Locator



Kod, adından da anlaşılacağı üzere sorgulanan IP ile ilgili bilgileri yansıtıyor. Kodu remote bölümüne ekledikten sonra sağ tık yaparak IP Locator seçeneğinden sorgu menüsünü açabilirsiniz. Kodun önceki veri çekmeye çalıştığı siteyi biraz inceledim. Site, 25 sorguya izin veriyordu, sonrasında üyelik istiyordu. Farklı bir siteden güncelledim. (Bazı bölümlerini Türkçeleştirdim.) Html kod filtreleri ile ilgili bir aliasıda htmlfree aliası ile değiştirdim.
Not: Kodda bulunan Bolge: kısmı Türkiye IP'lerinde genellikle Şehiri veriyor(Türkiyede Eyalet sistemi olmadığı için.), yurt dışı IP'lerde ise alttaki örnek resimlerde gözüktüğü gibi Bölge ismini vermektedir. (Kodda hata olduğunu düşünmeyin yani)
Kod, tatlı ve sade bir dialog şeklinde olduğu için hoşuma gitti, kullanmak isteyen olursa şuan çalışan hali aşağıdadır. İyi forumlar.

Proxy IP ile denediğim bir örnek resim1:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Örnek resim2:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
; IP locator v1.0 - entropy dalnet

;============================== MENUS

menu menubar,status,channel,query {
  -
  IP Locator { locate }
  -
}

;============================== DIALOGS

dialog locate {
  title "IP Locator"
  size -1 -1 134 93
  option dbu notheme
  text "IP Address", 1, 4 4 26 8, right
  edit "", 2, 32 2 62 11
  button "Bul", 3, 96 2 34 11
  text "Durum", 4, 4 16 25 8, right
  edit "", 5, 32 14 62 11, read
  text "Sehir:", 6, 4 34 25 8, right
  text "Bolge:", 7, 4 43 25 8, right
  text "Ulke:", 8, 4 52 25 8, right
  text "ISS:", 9, 4 61 25 8, right
  text "", 10, 32 34 98 8
  text "", 11, 32 43 98 8
  text "", 12, 32 52 98 8
  text "", 13, 32 61 98 8
  button "Clipboard", 14, 62 78 34 11
  button "OK", 15, 96 78 34 11, ok
  box "", 16, -4 25 142 4
  box "", 17, -3 70 142 4
}

;============================== ALIASES

alias -l locate {
  if ($1) {
    did -ra locate 5 Socket Aciliyor...
    did -r locate 10,11,12,13
    sockclose locate
    sockopen locate 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
    sockmark locate $1-
  }
  else {
    dialog $iif($dialog(locate),-x,-m) locate locate
  }
}

alias -l endlocate {
  did -ra locate 5 Islem Tamamlandi.
  if (%ip) { did -ra locate 10 %city | did -ra locate 11 %state | did -ra locate 12 %country | did -ra locate 13 %isp }
  else { did -r locate 10,11,12,13 | did -ra locate 5 Birsey Bulunamadi . }
  unset %isp
  unset %ip
  unset %city
  unset %state
  unset %country
  unset %isp
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;)  
  return %x
}
;============================== EVENTS

on *:dialog:locate:sclick:14:{
  var %a = IP: $did(2).text City: $did(10).text State: $did(11).text Country: $did(12).text ISP: $did(13).text
  clipboard %a
}
on *:dialog:locate:sclick:3:{
  if (!$did(2).text) { beep | return }
  locate $did(2).text
}
on *:sockopen:locate:{
  if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Acma Hatasi. | did -r locate 10,11,12,13 | return }
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2))
  sockwrite -n $sockname Connection: close
}
on *:sockread:locate:{
  if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Okuma Hatası. | did -r locate 10,11,12,13 | return }
  did -ra locate 5 Veri okunuyor...
  var %q | sockread %q | tokenize 32 $htmlfree(%q)
  if $regex(%q,/<i>.+/A) { $iif(*Country:* iswm $2,set -e %country $3-) $iif(*Region:* iswm $2,set -e %state $3-) $iif(*City:* iswm $2,set -e %city $3-) $iif(*Provider:* iswm $2,set -e %isp $3-) }
  set -e %ip $sock($sockname).mark
  .timertrace 1 1 endlocate 
}


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 19 Ekim 2013, 21:51   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp Locator



Servis sağlayıcısı ve özellikle doğu ve g.doğu illerini çoğunlukla sadece ülke ve servis sağlıyıcılarını gösteriyor yurdışı girişlerindede harf ile başlayanlarda sonuç belirtmiyor

__________________
Yürürken başımın yerde olması sizi rahatsız etmesin.Benim tek derdim; yere düşen edebinize takılmamak..
 
Alıntı ile Cevapla

Alt 10 Kasım 2013, 01:07   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp Locator



* /set: Sıra cok uzun (Satır 63, script2.mrc)
böylede hata veriyo

 
Alıntı ile Cevapla

Alt 10 Kasım 2013, 01:35   #7
Toprak
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: İp Locator



MerakLıuSer Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
* /set: Sıra cok uzun (Satır 63, script2.mrc)
böylede hata veriyo

Kullandığınız mIRC versionu nedir?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
//echo -a Version: $version
 
Alıntı ile Cevapla

Alt 29 Aralık 2013, 18:02   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp Locator



onu hallettim sağolasın Toprak peki bunu komut şeklinde nasil yapicaz? ben /ip ip-adresi
yazinca bu bilgileri echo olarak bana gösterse dialoglu felan olmasa mümkün mü bu

 
Alıntı ile Cevapla

Cevapla

Etiketler
locator, mirc download, mirc indir, İp

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
geobytes IP locator tcl saywhat TCL Scriptler 5 03 Ağustos 2013 01:14
IP Address Locator ( IP adresi Tespit ) Nokta mIRC Scripting Hazır Kodlar 7 28 Eylül 2009 12:52




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org