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

sahr · 08 Ağustos 2010, 23:25

herkese kolay gelsin arkadaşlar bukoda bir ek yapabilirmiyiz

sunucuya girdiğimde @ip_takip bencereme o an kanalda bulunanların daha önce girdiği nickler varsa nicklerini göstersin istiyorum mümkünmü bu

birde kayıt süresi profil.ini de 1 ay olan kayıtları silsin istiyorum kasma yapıyor uzun süreli kullanınca

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

 
on *:JOIN:#:{ 
  if $nick == $me { xpencere $chan } 
  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 
        }
        whois %nick
      }
    }
    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 }

sahr · 11 Ağustos 2010, 23:12

Arkedaslar kırmızı olan kısımda hata var cözemiyorum yardım edermisiniz

kullanımı : /asdasd nick

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

 
alias asdasd { 
  set %nick $1
  if ($nick != $me) {
    set %mask $address($$1,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
        var %c = 1
        while (%c <= $comchan($1,0)) { 
          echo -a %mask2 %nick2 %mask %nick 
          echo @İP_Takip   9- $+ $time $+ - $comchan($1,%c) 4 $+ $1  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 }

Teoman · 13 Ağustos 2010, 11:36

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)
aline -hp @İP_Takip 0- $+ $time $+ - 14( $+ $chan $+ )4 $nick Nicki'nin Aynı İP de Bundan Önce Kullandıgı Nick %nick2 7( %quand )
msg #X 8,2 $nick 2,8 Nicki'nin Bundan Önce Kullandıgı Nick 2,9 %nick2
var %c = 1
while (%c <= $comchan($nick,0)) {
echo @İP_Takip 0- $+ $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 }

bu işini görür sanırım.

Not: Code alıntıdır sahibini bilmedigim icin yazmadım.

LordAres · 29 Eylül 2010, 05:24

bu kod nasıl çalıştıracağız, birde profil.ini dosyası hangi dizinde olmalı. kod için tşekkurler

LordAres · 30 Eylül 2010, 14:23

cevap verseler şaşardım cevap vermeye bu kadarmı zor

muratt_aziz · 14 Ekim 2010, 09:47

sen bişey ekleme kendi yaratır profil ini dosyasını

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


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 }

e^Darkness06tr · 23 Ekim 2010, 12:49

emege sağlık

ContedLy · 04 Kasım 2010, 08:48

Murat kardes Bu kot nasıl Çalısıyor aLTına Kullanımıda Yazsaydın Keske

----------

* /hadd: Yetersiz veya eksik parametre (Satır 21, Takip.txt)

Ya Bız kulllanmayı BıLmıyoruz Yada remoteler hepsı arızaLı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

LordAres · 04 Nisan 2011, 20:48

bu koda popup menu olarak aç kapa nasıl eklerim. yani aç dedimde iptakip penceresi açılsın ve takibe başlasın
teşekkür

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Spor Bulten Skor Takip Kodu	Set	mIRC Scripting Hazır Kodlar	13	27 Ekim 2023 21:24
Nick Takip Kodu ( yeni versiyon )	oSmanLi	mIRC Scripting Hazır Kodlar	12	03 Mart 2018 00:57
Mirc, Fullname Takip Kodu	By-\|Realist	mIRC Scripting Hazır Kodlar	1	12 Kasım 2009 19:56

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.