raw 378:*: { cit
$+($2,*,$gettok($gettok($1-,2,64),2,32)) | haltdef }
Whois cektiğinde kırmızı belirttiğim yer ipadresini whois rawlarından ayırtediyor eğer rawlarla ilgili bir sorunun yoksa kodu yeni baştan yazdım
ben vodofone vın kullanmaktayım kendime göre verileri socket sistemiyle aldım kod aşağıda
umarım işine yarar
IP Address: 176.55.61.68
Vodafone Telekomunikasyon A.S.Organization Ülke: Turkey Şehir: Samsun
Enlem: 41.2867
Boylam: 36.33
Bu aldığım sonuç herhangi bir sunucuyla bağlantım yok oper girip whois çekmeden kodu yazdım sorun olmayacağını umuyorum
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#shrtkp on
alias klk { sockopen city whatismyipaddress.com 80 }
on *:sockopen:city*: {
sockwrite -n $sockname GET /ip/ $+ %halat HTTP/1.1
sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */*
sockwrite -n $sockname Accept-Language: tr-TR
sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
sockwrite -n $sockname Host: whatismyipaddress.com
sockwrite -n $sockname DNT: 1
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname $crlf
}
on *:sockread:city*: {
var %az
sockread %az
if (Country: isin %az) { echo -a 4Ülke:3 $remove($htmlfree(%az),Country:) }
if (IP Address: isin %az) { echo -a 4 $htmlfree(%az) }
if ISP: isin %az { echo -a 4 $gettok($htmlfree(%az),5,58) }
if State/Region isin %az { echo -a 4Şehir:3 $remove($htmlfree(%az),State/Region:) }
if Latitude: isin %az { echo -a 4Enlem:3 $remove($htmlfree(%az),Latitude:) }
if Longitude: isin %az { echo -a 4Boylam:3 $remove($htmlfree(%az),Longitude:) }
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
raw 378:*: { var %halat $+($2,*,$gettok($gettok($1-,2,64),2,32)) | klk %halat | haltdef }
#shrtkp end
alias klk { }
alias city {
if ($1 == on) { .enable #shrtkp | echo -ea Giris-City Sistem Açık! }
if ($1 == off) { .disable #shrtkp | echo -ea Giris-City Sistem Kapalı! }
}
menu * {
Şehir Takip
.Aç:city on
.Kapat:city off
}