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

Bozkurt- · 30 Mart 2023, 17:38

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

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...]

manikdepresif · 30 Mart 2023, 20:26

eline saglik

Ahr · 04 Haziran 2024, 17:27

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

Subzero · 05 Haziran 2024, 04:53

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

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

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

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: Kodu kopyalamak için üzerine çift tıklayın!

[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: Kodu kopyalamak için üzerine çift tıklayın!

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

sad33 · 04 Aralık 2024, 13:17

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
İçinde Saklama, Söyle!	Burce	Ah Kadınlar	0	26 Aralık 2017 15:59
Kanalları Saklama	mikropp	mIRC Scripting Sorunları	15	10 Kasım 2015 14:11
Kozmetik ürünlerini saklama	taLia	Güzellik, Sağlık ve Bakım Önerileri	0	17 Kasım 2013 17:52
Sivilceleri Saklama	Ezgi	Güzellik, Sağlık ve Bakım Önerileri	0	22 Aralık 2011 18:34
Link Saklama	daRkMoRGaN	Merak Ettikleriniz	0	25 Ekim 2008 23:42

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.