| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| şehir takip
herkese merhaba
ip takip codu vardı . ircye farklı bir nickle girmiş birisinin daha önceden hangi nicki kullandığını gösteriyodu.fakat modeme reset atıp ip adresi değiştiğinde bu yöntem işe yaramıyordu.bunu ip değilde bulunduğu şehire göre takibini yapması mümkünmü? bu istediğim cod büyük bir kanalda sorun olabilir cüki yüzlerce kişi girip cıkıyo kanala aynı şehirden yüzlerce kişi olabilir fakat ayrı bi özel kanal var 20 kişi civarında ve bu kanala giren kişilerin coğu aynı kişiler ve farklı farklı şehirlerde coğu.ip deyilde şehire göre nick takibi yapılabilirmi? hafıza kaydı kalıcımı olsun belirli günmü olsun bilemedim cünki aynı şehirden sayı 3 4 cıktığında nasıl kayıt edicek felan o coderlerin düşüneciği bişiy ben düşündüm işin icinden cıkamaadım karmaşık gibi biraz Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. bilgilerde o an belirlediğim kanala echo olarak gösterilebilirmi.bide olabilirse nick özelime geldiğinde veya ben özele aldığımda bu bilgileri tekrar vermesi mümkünmü. isterseniz kullandığım şehir tesbit ve ip takibi codlerını yazayım ona göre ayarlama yapabilirsiniz belki.
şehir Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:sockopen:city*: {
var %komut sockwrite -nt $sockname
%komut GET $+(/ip/,$token($sock($sockname).mark,2,42)) HTTP1.1/
%komut Host: whatismyipaddress.com
%komut $crlf
}
on *:sockread:city*: {
var %/ | sockread %/
if ($regex(%/,State/Region)) set %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)
if ($regex(%/,City:)) set %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ] $token($remove(%/,<tr>,<th>,</tr>,</th>,</td>,<td>),2,58)
}
on *:sockclose:city*: {
var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42)
echo -as Bilgi:2 %nick 6IP:2 %ip 6Sehir:2 %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] 6Yer:2 %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]
unset %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]
}
alias cit {
var %rand $rand(0,99999)
sockopen $+(city,%rand) whatismyipaddress.com 80
sockmark $+(city,%rand) $1
}
raw 378:*: { cit $+($2,*,$gettok($gettok($1-,2,64),2,32)) | 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! }
}
ip takip Kod: Kodu kopyalamak için üzerine çift tıklayın! alias hashran return $rand(0,999999)
on *:join:#kanal: {
if ($nick == $me) { halt }
if ($nickbul($address($nick,2))) { $iif($numtok($nickler($address($nick,2)),32) > 2,echo # $nick &2 5Gizli Ajan:2 $nickler($address($nick,2))) }
hadd -m seens $hashran $+($date,+,$address($nick,2),+,$nick)
}
on *:open:?: {
if ($nickbul($address($nick,2))) { echo $nick &2 5Gizli Ajan:2 $nickler($address($nick,2)) }
}
alias query {
query $1
if ($nickbul($address($1,2))) {
echo $1 &2 $1 5Gizli Ajan:2 $nickler($address($1,2))
echo $1 -
}
}
alias nickbul {
if (!$hget(seens)) { hmake seens | hload seens seens.63 }
var %s 1
while $hget(seens,%s).data {
var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)
$iif($1 == %adres,return 1)
inc %s
}
return 0
}
alias nickler {
if (!$hget(seens)) { hmake seens | hload seens seens.63 }
unset %nickler
var %s 1
while $hget(seens,%s).data {
var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)
if ($1 == %adres) { %nickler = $addtok(%nickler,%nick,32) }
inc %s
}
return $replace(%nickler,$chr(32),$+($chr(32),4,-,,$chr(32)))
}
alias kontrols {
if (!$hget(seens)) { hmake seens | hload seens seens.63 }
unset %nickler
var %s 1
while $hget(seens,%s).data {
var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43), %v1 $v1
if ($calc($ctime(%tarih) - $ctime($date)) >= 0) { hdel -m seens $hfind(seens,%v1,1,W).data }
inc %s
}
hsave -o seens seens.63
hfree -sw seens
hmake seens
hload seens seens.63
}
on *:start: {
if ($findfile($mircdir,seens.63,0) >= 1) { kontrols }
}
on *:exit: {
hsave -o seens seens.63
}
Konu toXic tarafından (06 Aralık 2011 Saat 14:40 ) değiştirilmiştir.
|