ip locator (ip yer tespıt)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 |
; 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.
179
yorum yok 
Etiketlerip locator (ip yer tespıt) İle Benzer Sohbet Yazıları
ip locator (ip yer tespıt) yazına yapılan yorumlar