mIRC 7.49 download

(türkçe sürüm)

Sohbete Bağlan

(295 online)

Türkçe Mirc Sohbet programı 7.49 versiyonunu , sorunsuz ve tek download adresinden indirmek için TIKLAYIN

ıp locator (ıp yer tespıt)

Türkçe Mirc v7.49 Türkçe Sohbet Programını Hemen Bilgisayarınıza Yükleyin.

; IP locator v1.0 - entropy ircalem.com

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

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

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

dialog locate {
  title "IP Locator"
  size -1 -1 134 93
  option dbu notheme
  icon 100, 0 -30 300 300, image\dialogarkaplan.bmp, 0, noborder
  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 www.ipaddresslocation.org 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: www.ipaddresslocation.org
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -n $sockname $crlf
}
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 
}

Benzer yazılar

Badnick Koruması Op/Admin
Regex Kontrol
DNSBL Proxy Koruma
Spam kısa alias kodları
Services bot sokma
Şişe çevirme oyunu
Socket Cycle v1-v2-v3 Hepsinin son versionu
Radyo dinleyici kayit sistemi
mIRC Join Ulke-Sehir Gösterme Codu
!zar – komutu hediye verme
Nick – IP – Sehir – “GLİNE” – “NICKBAN” – “SHUN”
Google sıra bulucu v2 – (HTTP – HTTPS – subdomain)


IRCALEM.Net © Tüm Hakları Saklıdır.

Bu site YuzukNET iştirakıdır.