⚠️ Güvenlik nedeniyle tüm kullanıcı şifreleri sıfırlanmıştır. Lütfen buraya tıklayarak yeni şifre talep ediniz.
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

>
+
Etiketlenen Kullanıcılar

7Beğeni(ler)
  • 6 Post By Mylife
  • 1 Post By zAZ

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 22 Mart 2025, 13:44   #1
Çevrimdışı
i don't care if i'm misfit.
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Kanal konuşmaları kayıt / .logoku #kanal nick tarih




Merhaba,

Benden çok istenilen bir kod olduğu için uygun zamanım olduğundan dolayı yazdım. Kod kanalda konuşmaları kayıt eder ve daha sonra bu kayıt edilen mesajlara ulaşmanızı sağlar.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#: { if ($1 != .logoku) { var %kanal = $chan var %nick = $nick var %mesaj = $1- var %tarih = $replace($date, /, .) $time write kanallog.txt %tarih - %kanal - %nick - %mesaj } ; Kırmızı ile işaretlediğim kısıma yönetim|kanal1|kanal2 gibi arttırabilirsiniz. if $regex($1,/^[\.\!]logoku/iS) && $regex(#,/yönetim|testmsl/i) { if ($nick isop $chan) { if ($regex($1-, /^\.logoku\s+#\S+\s+\S+(\s+\d{2}\.\d{2}\.\d{4})?$/i)) { msg # 4 $3 2 ait loglar 4 $2 2 kanalı için aranıyor... var %hedefKanal = $lower($gettok($1-, 2, 32)), %hedefNick = $lower($gettok($1-, 3, 32)), %tarih = $iif($gettok($1-, 4, 32), $gettok($1-, 4, 32), $replace($date, /, .)) var %bulundu = 0, %satir = 1 while ($read(kanallog.txt, %satir)) { var %logSatiri = $ifmatch if ($regex(%logSatiri, /^(\d{2}\.\d{2}\.\d{4}) \d{2}:\d{2}:\d{2} - (\S+) - (\S+) - (.+)$/i)) { if ($regml(1) == %tarih && $lower($regml(2)) == %hedefKanal && $lower($regml(3)) == %hedefNick) { .timer 1 2 msg # 4Tarih: 2 $regml(1) 4 Kanal: 2 $regml(2) 4 Nick: 2 $regml(3) 4 Mesaj: 2 $regml(4) inc %bulundu } } inc %satir } if (%bulundu == 0) { .timer 1 1 msg # 10 "Belirtilen kritere uygun log bulunamadı." } } else { .timer 1 1 msg # 10 "Hatalı komut formatı! Doğru kullanım: .logoku #kanal nick [gg.aa.yyyy]" } } else { .timer 1 1 msg # 10 "Bu komutu kullanmak için yeterli yetkiye sahip değilsiniz." } } }

Çalışma şekli;

Eklediğiniz bot veya kendiniz her ne ise bulunduğu kanallarda konuşmaları kayıt eder formata uygun şekilde arama yapmanıza olanak tanır. Kod içerisinde kanal yetkilendirme sistemi var ben yönetim ve testmsl deneme kanalı için ayarladım siz sorgunun hangi kanalda olduğunu kırmızı ile işaretleyeceğim oraya eklersiniz kanalda op yetkisinde olan herkes sorunsuz kullanabilir.

Kullanım;

.logoku #kanal nick tarih

Tarih belirtmesseniz o günün tarihini esas alır.

Örnek görünüm;


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



Çok detaylı bir çalışma değil. Dilediğiniz gibi kullanabilir, değiştirebilirsiniz. İyi forumlar.

__________________
I'm a dreamer but it's getting hard to take it.
Some nights don't know if I'm gonna make it.
Heart is heavy but there's nothing that can break me down.

Konu Mylife tarafından (23 Mart 2025 Saat 09:31 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet bizimmekan
Alt 20 Nisan 2025, 13:28   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kanal konuşmaları kayıt / .logoku #kanal nick tarih




on *:TEXT:*:#: {
if ($1 != .logoku) {
var %kanal = $chan
var %nick = $nick
var %mesaj = $1-
var %tarih = $replace($date, /, .) $time
write kanallog.txt %tarih - %kanal - %nick - %mesaj
}
; Kırmızı ile işaretlediğim kısıma yönetim|kanal1|kanal2 gibi arttırabilirsiniz.
if $regex($1,/^[\.\!]logoku/iS) && $regex(#,/hayhay|datasystem/i) {
if ($nick isop $chan) {
if ($regex($1-, /^\.logoku\s+#\S+\s+\S+(\s+\d{2}\.\d{2}\.\d{4})?$/i)) {
msg # 4 $3 2 ait loglar 4 $2 2 kanalı için aranıyor...
var %hedefKanal = $lower($gettok($1-, 2, 32)), %hedefNick = $lower($gettok($1-, 3, 32)), %tarih = $iif($gettok($1-, 4, 32), $gettok($1-, 4, 32), $replace($date, /, .))
var %bulundu = 0, %satir = 1
while ($read(kanallog.txt, %satir)) {
var %logSatiri = $ifmatch
if ($regex(%logSatiri, /^(\d{2}\.\d{2}\.\d{4}) \d{2}:\d{2}:\d{2} - (\S+) - (\S+) - (.+)$/i)) {
if ($regml(1) == %tarih && $lower($regml(2)) == %hedefKanal && $lower($regml(3)) == %hedefNick) {
.timer 1 2 msg # 6Tarih: 1 $regml(1) 6 Kanal: 1 $regml(2) 6 Nick: 1 $regml(3) 6 Mesaj: 1 $regml(4)
inc %bulundu
}
}
inc %satir
}
if (%bulundu == 0) {
.timer 1 1 msg # 10 "Belirtilen kritere uygun log bulunamadı."
}
}
else {
.timer 1 1 msg # 10 "Hatalı komut formatı! Doğru kullanım: .logoku #kanal nick [gg.aa.yyyy]"
}
}
else {
.timer 1 1 msg # 10 "Bu komutu kullanmak için yeterli yetkiye sahip değilsiniz."
}
}
}

Hocam bende bu komut çalışmama ihtimali nedendir acaba ? kanal sahibi oldugum kkanalda denedim , herhangi bir olumsuzluk mesajı yada log dökümü yapmamaktadır. Bu konuda dönüş yapabilir misiniz.

 
Alıntı ile Cevapla

Alt 20 Nisan 2025, 14:12   #3
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kanal konuşmaları kayıt / .logoku #kanal nick tarih




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#: { if ($1 != .logoku) { var %kanal = $chan, %nick = $nick, %mesaj = $1-, %tarih = $replace($date, /, .) $+ $time write kanallog.txt %tarih - %kanal - %nick - %mesaj } if ($regex($1, /^[\.\!]logoku/iS) && $regex(#, /hayhay|datasystem/i)) { if ($nick isop $chan) { if ($regex($1-, /^\.logoku\s+#\S+\s+\S+(\s+\d{2}\.\d{2}\.\d{4})?$/i)) { msg # 4 $gettok($1-,3,32) 2 ait loglar 4 $gettok($1-,2,32) 2 kanalı için aranıyor... var %hedefKanal = $lower($gettok($1-, 2, 32)) var %hedefNick = $lower($gettok($1-, 3, 32)) var %tarih = $iif($gettok($1-, 4, 32), $gettok($1-, 4, 32), $replace($date, /, .)) var %bulundu = 0, %satir = 1 while ($read(kanallog.txt, %satir)) { var %logSatiri = $ifmatch if ($regex(%logSatiri, /^(\d{2}\.\d{2}\.\d{4}) \d{2}:\d{2}:\d{2} - (\S+) - (\S+) - (.+)$/i)) { if ($regml(1) == %tarih && $lower($regml(2)) == %hedefKanal && $lower($regml(3)) == %hedefNick) { .timer 1 2 msg # 6Tarih: 1 $regml(1) 6 Kanal: 1 $regml(2) 6 Nick: 1 $regml(3) 6 Mesaj: 1 $regml(4) inc %bulundu } } inc %satir } if (%bulundu == 0) { .timer 1 1 msg # 10 "Belirtilen kritere uygun log bulunamadı." } } else { .timer 1 1 msg # 10 "Hatalı komut formatı! Doğru kullanım: .logoku #kanal nick [gg.aa.yyyy]" } } else { .timer 1 1 msg # 10 "Bu komutu kullanmak için yeterli yetkiye sahip değilsiniz." } } }

Böyle dene 1 kac hata vardi duzelttim denemedim ama calismasi lazim

 
Alıntı ile Cevapla

Alt 20 Nisan 2025, 22:46   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kanal konuşmaları kayıt / .logoku #kanal nick tarih




Güzel hoş fakat unreal6 ve inspircd belirlediğiniz süre ve satıra göre kanal loglarini kayıt edebilirsiniz tek farkı herkes erişebilir

İlgili modül:

304 *** chanmodes/history - Channel Mode +H - by UnrealIRCd Team

/mode #channel 20:1d

Son 20 satır 1 gün boyunca..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:46 -->-> Daha önceki mesaj 22:46 --

/mode #channel +H 20:1d

 
Alıntı ile Cevapla

Cevapla

Etiketler
kanal, logoku, mirchelp, mircscripting, sorgulama


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
e-Devlet'ten bir hamle daha: Miras sorgulama Feronia Haber Arşivi 11 17 Mart 2018 13:43
e-Devlet şehit sorgulama sayfası açıldı! e-Devlet şehit sorgulama nasıl yapılır? Soy ağacı sorgulama... yaSmin Haber Arşivi 0 28 Şubat 2018 10:42
Mirc Scripting ile banlanan kullanıcıları nasıl dosya içine kayıt edip,okuruz? sEntieL mIRC Scripting Sorunları 4 01 Mart 2013 01:53
Kanal Kayıt Sistemi GeceAktif mIRC Scripting Sorunları 8 13 Ocak 2012 03:48
Yapmamak için tövbe edip daha sonra tekrarladığınız bir davranışınız oldu mu? yoSun IF Anket Arşivi 0 17 Şubat 2011 10:52