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

fav · 26 Ağustos 2011, 20:44

slm arkadaşlar konu başlığından anlaşıldığı üzere ip takip sorunum var

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

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

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

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

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

Connect satırı aşağıdaki şekilde olursa her bağlantıda durumu güncelleyecektir.

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

on *:connect: { .hashtable profil.ini | dify }

ve sorgulamayı gerçekleştirecek olan dify aliasıda aşağıdaki gibidir.

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

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

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

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

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

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

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)

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.