IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Güncel whoes kodunda sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/704760-whoes-kodunda-sorun.html)

whoes kodunda sorun

Kod:

 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 %/ | sockread %/

  if <meta name="description" content="Location: isin %/ {

    echo -a Bilgi: 13IP:2 %halat 13Sehir:2 $gettok($gettok(%/,2,58),1,32) 13Yer:2 $gettok($gettok(%/,2,58),2,32) 13Baglanti turu:2 $gettok($gettok(%/,2,58),15-,32)

    sockclose $sockname

  }

}

alias cit {

  sockopen city whatismyipaddress.com 80

}

raw 378:*: { echo -a  4» 1&Yacute;p Adresi 4: $remove($3,@,*) | set %halat $remove($3,@,*) | cit $remove($3,@,*) | haltdef } 

alias city { 

  if ($1 == on) { set %city on | echo -ea Giris-City Sistem Open! }

  if ($1 == off) { set %city off | echo -ea Giris-City Sistem Deopen! }

}

bu kodun sahibi kim hatırlamıyorum ama 2-3 gündür sorun veriyor whoes çektiğim kişi hakkında bilgi vermiyor ve şu sorunu veriyor
* /sockopen: 'city' Soket Kullaniliyor (Satir 30, script13.ini)
ve 30cu satir ise Şurası
sockopen city whatismyipaddress.com 80
Yardımcı olacak arkadaşa tşk ederim

Buyur;

Kod:

raw 378:*: if $regex($1-,/(\d+\.\d+\.\d+\.\d+)/S) { cit $regml(1) }

alias cit { sockopen $+(city,$1) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(city,$1) $1 }

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 

on *:sockopen:city*:{  

  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1

  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:city*:{  

  var %:yerbul | sockread -f %:yerbul | tokenize 32 %:yerbul

  if (IP Country: isin %:yerbul) { .hadd -ms Ülke $sock($sockname).mark $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }

  if (IP City: isin %:yerbul) { .hadd -ms Sehir $sock($sockname).mark $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }

  if (ISP Provider: isin %:yerbul) { 

    echo -a Bilgi: 13IP:2 $sock($sockname).mark 13Ülke:2 $hget(Ülke,$sock($sockname).mark) 13Şehir:2 $hget(Sehir,$sock($sockname).mark) 13ISP:2 $sock($sockname).mark $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58))

.hdel -ms Ülke $sock($sockname).mark | .hdel -ms Sehir $sock($sockname).mark 

sockclose $sockname

  }

}

kod güncellendi.