; 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, )
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
}
önceki yazımızda « mIRC Regex Kontrol makelemiz var.
180
yorum yok 
Etiketler
