[SenatoR-SuVaRi]

öncelikle selam güzel ifler dilerim bir konu hakkında yardımınıza ihtiyac duymaktayım ülke sehir ısp mirc koduna eski nickleride göstersin diye bir eklenti yaptım ilk basta calıştı ama girişleri cift verince
02[19:07] <06SuVaRi> ( GiRiS ) == 2 Nick: 4 adanamm == 2 IP: 5 176.33.244.108 == 2- Ulke: 11 Turkey == 2 - Sehir: 7 Adana == 2- ISP: 4 Superonline ADSL 1 Önceki KuLandığı Nickler:1  2 adana adanalı seyhanlı seyhanda benim benim_adana adanam cukurovada adanaaa SuVaRi deneme1 ilker
02[19:07] <06SuVaRi> ( GiRiS ) == 2 Nick: 4 adanamm == 2 IP: 5 176.33.244.108 == 2- Ulke: 11 Turkey == 2 - Sehir: 7 Adana == 2- ISP: 4 Superonline ADSL 1 Önceki KuLandığı Nickler:1  2 adana adanalı seyhanlı seyhanda benim benim_adana adanam cukurovada adanaaa SuVaRi deneme1 ilker böyle bende düzeltek istedima ama sanırım başaramadım yardımcı olabilirmisniz

kod bu

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

#giriste on
on *:snotice:*Client connecting*:who +I $token($token($7-,1,40),-1,32)
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:pro*:{ 
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $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 -nt $sockname $crlf
}

on ^*!:nick: {
  if $regex($usermode,o) { set %tkp. [ $+ [ $newnick ] ] 1 | who +I $newnick }
}

raw 352:*: {
  if %tkp. [ $+ [ $6 ] ] {
    if   $5 == services.neselichat.net { return }
    var %ip = $4
    ; get the previous nicks
    var %nicks = $readini(giris.txt, %ip, nicks)
    ; add the new nick ($addtok will take care of duplicates)
    var %nicks = $addtok(%nicks,$6,32)
    ; update the nicks
    writeini -n giris.txt %ip nicks %nicks
    ; update the seen time
    writeini -n giris.txt %ip seentime $date
    msg #moos 1,7 ( Bağlanan ) - 2 $6 1 - IP Adresi - 2 $4 - 1  Önceki KuLandığı Nickler:1  2 $readini(giris.txt, %ip, nicks) 
    halt
  }
}
raw 315:*: {
  if %tkp. [ $+ [ $2 ] ] {
    unset %tkp. [ $+ [ $2 ] ]
    halt
  } 
} 

on *:sockread:pro*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) { 
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    msg #ilker ( GiRiS ) ==  2 Nick: 4 %:n == 2 IP: 5 %ip == 2- Ulke: 11 %ülke == 2 - Sehir: 7 %sehir == 2- ISP: 4 %:isp   1  Önceki KuLandığı Nickler:1  2 $readini(giris.txt, %ip, nicks)  
    .hfree -sw %:n
    sockclose $sockname
  }

  #giriste end
  menu menubar {
    +> IP GIRIS
    ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }
    ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }
    ..Durum < $replace($group(#giriste).status, off, Kapal1, on, Aç1k) >:.
  }  
  
menu nicklist   {
  NickTakip: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }
}

[SenatoR-SuVaRi]

hatamı buldm ve sanırım şimdioldu güzelde çalışıyor yalnız anlamadığım ülke yerini boş bırakıyor
Nick: DJ-Kuzey IP: 178.241.11.235 - Ulke: - Sehir: Diyarbakir - ISP: Turkcell Önceki KuLandığı Nickler: Kuzey DJ-Kuzey Kuzey`Away Zaza
kod bu bir bakabilirmisiniz

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

#giriste on
on *:snotice:*Client connecting*:userip $token($token($7-,1,40),-1,32)
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:pro*:{ 
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $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 -nt $sockname $crlf
}
on ^*!:nick: {
  if $regex($usermode,o) { set %tkp. [ $+ [ $newnick ] ] 1 | who +I $newnick }
}

raw 352:*: {
  if %tkp. [ $+ [ $2 ] ] { unset %tkp. [ $+ [ $2 ] ] }
  if %tkp. [ $+ [ $6 ] ] {
    if $5 == services.neselichat.net { return }
    var %ip = $4
    ; get the previous nicks
    var %nicks = $readini(giris.txt, %ip, nicks)
    ; add the new nick ($addtok will take care of duplicates)
    var %nicks = $addtok(%nicks,$6,32)
    ; update the nicks
    writeini -n giris.txt %ip nicks %nicks
    halt
  }
}

menu nicklist   {
  NickTakip: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }
}

on *:sockread:pro*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) { 
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    msg #MooS   0,1 Nick: 4 %:n  0 IP: 4 %ip  0- Ulke: 4 %ülke  0 - Sehir: 4 %sehir  0- ISP: 4 %:isp 0 Önceki KuLandığı Nickler:1  4 $readini(giris.txt, %ip, nicks)   
    .hfree -w %:n
    sockclose $sockname
  }
}
#giriste end
menu menubar {
  +> IP GIRIS
  ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }
  ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }
  ..Durum < $replace($group(#giriste).status, off, Kapali, on, Açik) >:.
}

[Feragat]

SenatoR-SuVaRi Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

hatamı buldm ve sanırım şimdioldu güzelde çalışıyor yalnız anlamadığım ülke yerini boş bırakıyor Nick: DJ-Kuzey IP: 178.241.11.235 - Ulke: - Sehir: Diyarbakir - ISP: Turkcell Önceki KuLandığı Nickler: Kuzey DJ-Kuzey Kuzey`Away Zaza kod bu bir bakabilirmisiniz

Selamlar.

Kodu, yerli - yabancı bir kaç proxy ip ile denedim. Herhangi bir problem gözükmüyor.

Deneyebileceğin bir kaç yol
1-

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

//unset %:n %ülke* %:r*

2- mIRC 6.3x altındaki versiyonlarda değişken tanımlarken var %değişken = değer şeklinde "=" eşittir işareti kullanman gerekebiliyor, üst versiyonlar buna gerek duymuyor.

3- Benzer raw event'ları var ise onları devre dışı bırakman gerekebilir, bunun sebebi kodda aradığın veri yerine sana farklı veri sunabilir.

Şuan aklıma gelen nedenler bunlar. Kolay gelsin.

Test ettiğim IP'lerin Örnek görüntüsü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[SenatoR-SuVaRi]

çok tesekkür ederim emeğinize sağlık

[SenatoR-SuVaRi]

Hocam kusura bakmayın yine rahatsız edeceğim biraz yeni farkettimde aynı ipten nick değişerek geldim hiç birinde eski kullandığim nickleri göstermedi sebebi ne olabilir sizce yardımlarınız için şimdiden teşekkür ederim

[Alper]

SenatoR-SuVaRi Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Hocam kusura bakmayın yine rahatsız edeceğim biraz yeni farkettimde aynı ipten nick değişerek geldim hiç birinde eski kullandığim nickleri göstermedi sebebi ne olabilir sizce yardımlarınız için şimdiden teşekkür ederim

Aynı sayfada 2 tane raw 352 var o yüzden çakışmış olabilir. Sonradan eklediğin kodu başka bir sayfada kullanırsan çalışması gerek.

[SenatoR-SuVaRi]

Başka sayfa derken hocam ayırıp yeni remote açıp kodları ayrı ayri eklemek mi lazim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:43 -->-> Daha önceki mesaj 17:39 --

raw 352:*: {
if %tkp. [ $+ [ $6 ] ] {
if $5 == services.neselichat.net { return }
var %ip = $4
; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)
; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$6,32)
; update the nicks
writeini -n giris.txt %ip nicks %nicks
halt
}
}

Yani burayimi ayrı remote açıp o sayfaya eklemek mi lazım