Konuya farklı bi yerden yaklaşıp veriyi com objectlerle değerlendireyim dedim, kullanmak isteyen olursa diye buraya bırakıyorum.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias konum {
var %qk $+(hop,$r(1,9999)),%address $+(https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
wscript.shell
.comclose %qk $com(%qk,run,1,bstr,cmd.exe /k $&
powershell $+($chr(36),xx=new-object -COM Msxml2.ServerXMLHTTP.6.0;) $+($chr(36),xx.Open,$chr(40),'GET',$chr(44),',%address,',$chr(44),$false,$chr(41),;) $+($chr(36),xx.Send,$chr(40),$chr(41),;) $+($chr(36),xx.responseText) $&
$+ |clip & exit,uint,0,bool,1)
var %k 1 | while %k <= $cb(0) { if $cb(%k) {
if $regex(u,$cb(%k),/IP Country\x3A\x20(\S+)\x20/Si) { .hadd -m %:n Ülke $iif($htmlfree($regml(u,1)) == $null,Belirsiz,$htmlfree($regml(u,1))) }
if $regex(c,$cb(%k),/Town\x3A\x20(\S+)\x20/Si) { .hadd -m %:n Sehir $iif($htmlfree($regml(c,1)) == $null,Belirsiz,$htmlfree($regml(c,1))) }
if $regex(i,$cb(%k),/ISP Provider\x3A\x20(.+)<hr>/Si) {
var %:isp $iif($htmlfree($regml(i,1)) == $null,Belirsiz,$htmlfree($regml(i,1)))
var %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
echo -st 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp | clipboard
}
}
inc %k
}
}