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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   ip_takip (https://www.ircforumlari.net/mirc-scripting-sorunlari/405736-ip_takip.html)

fav 26 Ağustos 2011 20:44
ip_takip
 
slm arkadaşlar konu başlığından anlaşıldığı üzere ip takip sorunum var

Kod:
on *:connect: { .hashtable profil.ini }
on *:JOIN:#:{
  if ($nick != $me) {
    set %nick $nick
    set %mask $address($nick,2)
    set %nick2 $readini profil.ini %mask nick
    set %mask2 $readini profil.ini %mask mask
    if (%mask == %mask2) {
      if (%nick != %nick2) {
        set %quand $readini profil.ini %mask quand
        $iif(!$window(@İP_Takip),window -enz @İP_Takip)
        var %c = 1
        while (%c <= $comchan($nick,0)) {
          echo @İP_Takip  9- $+ $time $+ - $comchan($nick,%c) 4 $+ $nick  Nicki'nin Aynı İP de Bundan Önce Kullandıgı Nick 4 $+ %nick2 7(saat $gettok(%quand,1,45) 7gün $gettok(%quand,2,45) $+ 7)   
          inc %c
        }
      }
    }
    if (!$ini(profil.ini,mask)) hashtable
  }
}
alias hashtable { if (!$hget(profil)) { hmake profil 5 } | hadd profil nick %nick | hadd profil mask %mask | hadd profil quand $time $+ - $+ $date | hsave -ai profil profil.ini $hget(profil,mask) | hfree profil }
yukardaki kod kayıtları tutarken
[*!*@BF14D8F2.AA07B01A.B4FFBF9.IP]
nick=huso
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
quand=20:17:41-26/08/2011

şeklinde tutyor benim istediğim ise ipi kayıt ederken kırmızı olan yeri kaydedip ona göre nick takip kodumun çalışması bunu yapabilirmiyiz

Difuzyon 26 Ağustos 2011 21:07
Cevap: ip_takip
 
set %mask $address($nick,2)
satırı yerine
set %mask $token($address($nick,2),3,46)
olmalıdır.

fav 26 Ağustos 2011 21:57
Cevap: ip_takip
 
Alıntı:
Difuzyon Nickli Üyeden Alıntı (Mesaj 1040792226)
set %mask $address($nick,2)
satırı yerine
set %mask $token($address($nick,2),3,46)
olmalıdır.
eline sağlık Difuzyon ek olarak profil.ini dosyasında kayıtlardan 1 ayı dolanı sildire bilirmiyiz belirli süreden sonra nick girişlerinde donma oluşuyor

özetle kayıt süresi 1 ayı gecen kayıtı sildire bilirmiyiz

Difuzyon 26 Ağustos 2011 23:04
Cevap: ip_takip
 
Connect satırı aşağıdaki şekilde olursa her bağlantıda durumu güncelleyecektir.
Kod:
on *:connect: { .hashtable profil.ini | dify }
ve sorgulamayı gerçekleştirecek olan dify aliasıda aşağıdaki gibidir.
Kod:
alias -l dify {
  if $isid {
    if $ctime($token($readini(profil.ini,$remove($1,],[),quand),2,45)) < $calc($ctime - 2592000) { remini profil.ini $remove($1,],[) }
  }
  else { filter -fkg profil.ini dify \[.+\] }
}
Buradaki 2592000 saniye,4 hafta 2 güne (ortalama olarak 1 aya) denk gelmektedir.

fav 26 Ağustos 2011 23:31
Cevap: ip_takip
 
hocam son bir şey kaldı size zahmet verdim ellerinize sağlık bu işte cok iyisiniz

tüm kanallar icin uyarı veriyor @ip_takip penceresinde bu şöyle yapabilirmiyiz tümkanalları takip etsin yanlız @ip_takip penceresine her girişi birkez yansınsın bunu halledebilirsem sorunum kalmıyor

Difuzyon 26 Ağustos 2011 23:58
Cevap: ip_takip
 
Kod:
on *:connect: { .hashtable profil.ini | dify }
on !*:JOIN:#:{
  set %nick $nick
  set %mask $token($address($nick,2),3,46)
  set %nick2 $readini profil.ini %mask nick
  set %mask2 $readini profil.ini %mask mask
  if (%mask == %mask2) && (%nick != %nick2) {
    set %quand $readini profil.ini %mask quand
    $iif(!$window(@İP_Takip),window -enz @İP_Takip)
    inc -eu20 $+(%,time,$nick)
    if $($+(%,time,$nick),2) == 1 { echo -t @İP_Takip 4 $+ $nick  Nicki'nin Aynı İP de Bundan Önce Kullandıgı Nick 4 $+ %nick2 7(saat $gettok(%quand,1,45) 7gün $gettok(%quand,2,45) $+ 7) }
  }
  if (!$ini(profil.ini,mask)) hashtable
}
alias hashtable { if (!$hget(profil)) { hmake profil 5 } | hadd profil nick %nick | hadd profil mask %mask | hadd profil quand $time $+ - $+ $date | hsave -ai profil profil.ini $hget(profil,mask) | hfree profil }
alias -l dify {
  if $isid {
    if $ctime($token($readini(profil.ini,$remove($1,],[),quand),2,45)) < $calc($ctime - 2592000) { remini profil.ini $remove($1,],[) }
  }
  else { filter -fkg profil.ini dify \[.+\] }
}
Bu durumun oluşmasını 20 sn. süreyle bloke eder.

fav 06 Ocak 2012 18:17
Cevap: ip_takip
 
Kod:
on *:connect: { .hashtable profil.ini | dify }
on !*:JOIN:#:{
  set %nick $nick
  set %mask $token($address($nick,2),3,46)
  set %nick2 $readini profil.ini %mask nick
  set %mask2 $readini profil.ini %mask mask
  if (%mask == %mask2) && (%nick != %nick2) {
    set %quand $readini profil.ini %mask quand
    $iif(!$window(@İP_Takip),window -enz @İP_Takip)
    inc -eu20 $+(%,time,$nick)
    if $($+(%,time,$nick),2) == 1 { echo -t @İP_Takip 4 $+ $nick  Nicki'nin Aynı İP de Bundan Önce Kullandıgı Nick 4 $+ %nick2 7(saat $gettok(%quand,1,45) 7gün $gettok(%quand,2,45) $+ 7) }
  }
  if (!$ini(profil.ini,mask)) hashtable
}
alias hashtable { if (!$hget(profil)) { hmake profil 5 } | hadd profil nick %nick | hadd profil mask %mask | hadd profil quand $time $+ - $+ $date | hsave -ai profil profil.ini $hget(profil,mask) | hfree profil }
alias -l dify {
  if $isid {
  if $ctime($token($readini(profil.ini,$remove($1,],[),quand),2,45)) < $calc($ctime - 2592000) { remini profil.ini $remove($1,],[) }
  }
  else { filter -fkg profil.ini dify \[.+\] }
}
bir hata alıyorum bu kod la ilgili hata nerdedir acaba arkadaşlar sebebi nedir

Hata kodu
/remini: 'C:\mırc\profil.ini' çok büyük (Satır 18, script10.mrc)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:38.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk