IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Xline uygulanan kullanıcıya ait bilgileri saklama ve listeleme

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - Xline uygulanan kullanıcıya ait bilgileri saklama ve listeleme (https://www.ircforumlari.net/mirc-parca-kodlar/1007091-xline-uygulanan-kullaniciya-ait-bilgileri-saklama-ve-listeleme.html)

Xline uygulanan kullanıcıya ait bilgileri saklama ve listeleme

Kod:

alias sebep {

  if ($1 == ekle)   {

    if !$regex($2,/./Si) { echo -a Nick giriniz.. ÖRN; 2 /sebep ekle Nick - İp - Sebep | return }  

    if !$regex($3,/\d+\.\d+\.\d+\.\d+/Si) { echo -a :Lütfen IP belirtiniz. ÖRN; 4/sebep ekle Nick - İp Adresi - Sebep | return } 

    if !$regex($4,/./Si) { echo -a Sebep giriniz.. ÖRN; 2 /sebep ekle Nick - İp - Sebep | return }  

    $iif(!$isdir(Sebepler),.mkdir Sebepler)

    .write $+(Sebepler/,$2,.txt) $3  $4- $+($date,-,$time) 

    echo -a $2 Nickine Ait  $3 $4-  2Kaydı Eklenmiştir.

  }

  elseif ($1 == ara) {

    if !$isfile($+(Sebepler/,$strip($2),.txt)) { echo -a 4 $strip($2) 2 Nick'ine ait kayıt bulunamadı. | return }

    $iif(!$window(@Sebepler),window -e @Sebepler)      

    echo @Sebepler -

    var %:sbp = $lines($+(Sebepler/,$strip($2),.txt)) | while %:sbp {

      var %:read = $read($+(Sebepler/,$strip($2),.txt),%:sbp)

      echo @Sebepler 4 Nick : 2 $2 - 4Kayıtlar : 2 - %:read

      dec %:sbp

    }

    echo @Sebepler  -

    echo @Sebepler 4* Bilgi: 2 $strip($2) Nick'ine ait 4 $lines($+(Sebepler/,$strip($2),.txt)) 2 Adet Kayıt Bulunmaktadır.

  }

  elseif ($1 == sil) {

    if !$isfile($+(Sebepler/,$strip($2),.txt)) { echo -a 4 $strip($2) 2 Nick'ine ait kayıt bulunamadı. | return }

    remove  $+(Sebepler/,$2,.txt) | echo $2 nickine ait kayıtlar silindi.

  }

}

Uygulanan xline kayıtlarını nicklere göre tutup gerektiğinde okuyabileceğiniz bir kod.

Kullanımı /sebep ekle Nick İp Adresi Ban Sebebi - /sebep ara nick - /Sebep Sil nick

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Xline uygulanan kullanıcıya ait bilgileri saklama ve listeleme

Peki bunu kanala entegre için düzenleyebilir miyiz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ?

Cevap: Xline uygulanan kullanıcıya ait bilgileri saklama ve listeleme

Alıntı:

Ahr Nickli Üyeden Alıntı (Mesaj 1042903081)

Peki bunu kanala entegre için düzenleyebilir miyiz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ?

Kod:

on *:text:*:#:{

  if ($1 == !sebepekle)   {

    if !$regex($2,/./Si) { msg # Nick giriniz.. ÖRN; 2 !sebepekle Nick - İp - Sebep | return }  

    if !$regex($3,/\d+\.\d+\.\d+\.\d+/Si) { msg # :Lütfen IP belirtiniz. ÖRN; 4!sebepekle Nick - İp Adresi - Sebep | return } 

    if !$regex($4,/./Si) { msg # Sebep giriniz.. ÖRN; 2 !sebepekle Nick - İp - Sebep | return }  

    $iif(!$isdir(Sebepler),.mkdir Sebepler)

    .write $+(Sebepler/,$2,.txt) $3  $4- $+($date,-,$time) 

    msg # $2 Nickine Ait  $3 $4-  2Kaydı Eklenmiştir.

  }

  elseif ($1 == !sebepara) {

    if !$isfile($+(Sebepler/,$strip($2),.txt)) { msg # 4 $strip($2) 2 Nick'ine ait kayıt bulunamadı. | return }      

    msg # -

    var %:sbp = $lines($+(Sebepler/,$strip($2),.txt)) | while %:sbp {

      var %:read = $read($+(Sebepler/,$strip($2),.txt),%:sbp)

      msg # 4 Nick : 2 $2 - 4Kayıtlar : 2 - %:read

      dec %:sbp

    }

    msg #  -

    msg # 4* Bilgi: 2 $strip($2) Nick'ine ait 4 $lines($+(Sebepler/,$strip($2),.txt)) 2 Adet Kayıt Bulunmaktadır.

  }

  elseif ($1 == !sebepsil) {

    if !$isfile($+(Sebepler/,$strip($2),.txt)) { msg # 4 $strip($2) 2 Nick'ine ait kayıt bulunamadı. | return }

    remove  $+(Sebepler/,$2,.txt) | msg # $2 nickine ait kayıtlar silindi.

  }

  elseif ($1 == !Skomut) {

    msg #  2 !sebepekle Nick - İp - Sebep

    msg #  2 !sebepara    

    msg #  2 !sebepsil Nick       

  }

}

Kod:

[04:51]» <03Subzero> !sebepekle Abcd 1.12.3.112 deneme

[04:51]» <04Rota> Abcd Nickine Ait 1.12.3.112 deneme 2Kaydı Eklenmiştir.

[04:51]» <03Subzero> !sebepara Abcd

[04:51]» <04Rota> -

[04:51]» <04Rota> 4 Nick : 2 Abcd - 4Kayıtlar : 2 - 1.12.3.112 deneme 05/06/2024-04:51:01

[04:51]» <04Rota> -

[04:51]» <04Rota> 4* Bilgi: 2 Abcd Nick'ine ait 4 1 2 Adet Kayıt Bulunmaktadır.

[04:51]» <03Subzero> !sebepsil Abcd

[04:51]» <04Rota> Abcd nickine ait kayıtlar silindi.

[04:51]» <03Subzero> !Skomut

[04:51]» <04Rota> 2 !sebepekle Nick - İp - Sebep

[04:51]» <04Rota> 2 !sebepara

[04:51]» <04Rota> 2 !sebepsil Nick

Burda Kafan Karışmasın Diye Extra Bir Komut Ekledim Nasıl Ekleyip Silmen Ve Arama Yapman İçin Oda !Skomut Denedim Bide Sen Deneyip Haber Verirsin.

Kod:

on *:text:*:#:{ Bu Kısmıda Kullanacagın Kanalı Yazarsın #kanal gibi.

Cevap: Xline uygulanan kullanıcıya ait bilgileri saklama ve listeleme

Farkli bir açıdan,
[QUOTE]alias sebep {
if ($1 == ekle) {
; Yeni bir ban kaydı ekleme (nick veya IP aralığı)
var %nick, %ip_or_range, %sebep, %zaman
%nick = $2
%ip_or_range = $3
%sebep = $4+
%zaman = $ctime
; IP aralığı mı kontrolü
if (%ip_or_range =~ ^\d{1,3}\.\d{1,3}\.\d{1,3}\-\d{1,3}\.\d{1,3}\.\d{1,3}$ ) {
; IP aralığı ise tüm IP'leri banla
for /f "tokens=1-3 delims=." %a in ('echo %ip_or_range%') do (
for /f "tokens=1-3 delims=-" %%a in ('echo %a%') do (
for /f "tokens=1-3 delims=." %%b in ('echo %b%') do (
for /f "tokens=1-255 delims= " %%c in ('for /l %%x in (%%a,1,%%b) do echo %%x') do (
echo %nick,%%c.%d.%e,%sebep,%zaman >> banlar.csv
)
)
)
)
} else {
; Normal ban
echo -a %nick,%ip_or_range,%sebep,%zaman >> banlar.csv
}
echo -a Ban kaydı eklendi. (%zaman)
}
; ... diğer komutlar (ara, sil) ...
}

/QUOTE]

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

Alıntı:

alias sebep {
if ($1 == ekle) {
; Yeni bir ban kaydı ekleme (nick veya IP aralığı)
var %nick, %ip_or_range, %sebep, %zaman
%nick = $2
%ip_or_range = $3
%sebep = $4+
%zaman = $ctime
; IP aralığı mı kontrolü
if (%ip_or_range =~ ^\d{1,3}\.\d{1,3}\.\d{1,3}\-\d{1,3}\.\d{1,3}\.\d{1,3}$ ) {
; IP aralığı ise tüm IP'leri banla
for /f "tokens=1-3 delims=." %a in ('echo %ip_or_range%') do (
for /f "tokens=1-3 delims=-" %%a in ('echo %a%') do (
for /f "tokens=1-3 delims=." %%b in ('echo %b%') do (
for /f "tokens=1-255 delims= " %%c in ('for /l %%x in (%%a,1,%%b) do echo %%x') do (
echo %nick,%%c.%d.%e,%sebep,%zaman >> banlar.csv
)
)
)
)
} else {
; Normal ban
echo -a %nick,%ip_or_range,%sebep,%zaman >> banlar.csv
}
echo -a Ban kaydı eklendi. (%zaman)
}
; ... diğer komutlar (ara, sil) ...
}

farkli bir açıdan