mIRC Script Log sistem

Script for Güzel bi log \ \ \ ‘lama;) Farkli pencerede tiklayip Aktif görebiliyorsunuz \ \ “kanal ve nick \” loglari script üzerinde \.

Kod,

alias kayitgosterici.mo (
var% s = $ $ input ($ nopath ($ longfn ($ 1 -) dosyasi icinde aramak istediginizi yaziniz:), eq, Arama)
net @ LogArama ($ window (@ LogArama)) () ise
pencere k0z @ LogArama
var% t = $ keneler
kte_echo @ LogArama $ PARANTEZ ($ nopath ($ longfn ($ 1 -))) dosyasinda $ PARANTEZ (% s) for Arama yapildi $ + …
echo @ LogArama?
filtre-fwbp $ 1 – @ LogArama $+(*,% s *)
echo @ LogArama?
kte_echo @ LogArama $ nopath ($ longfn ($ 1 -)) dosyasinda arnan $ + (\ \ \ ‘% s, \ \ \’) ile ilgili $ PARANTEZ ($ filtre) sonuc $ tur ($ (($ calc keneler -% t) / 1000), 2) saniyede bulundu.
)
alias kayitgosterici (
yak?n ($ window (@ LogGosterici)) (if – @ @ LogGosterici)
pencere k0l16zS @ LogGosterici
icinde $ PARANTEZ ($ nopath ($ findfile ($ logdir, *. log, 0,))) $ 1 – kayit.yukle @ LogGosterici $ logdir echo dosyasi bulundu giri? yap?n.
($ Isfile ($ 1 -)) (if
($ Hatlar? ($ 1 e?er -)> 64000) (
Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy)) ($ 1 ko?mak -)
durdurmak
)
$ Kayitgosterici.aktifkayit set% shortfn ($ 1 -)
loadbuf-pr @ LogGosterici $ 1 -
ba?l?k @ LogGosterici – $ nopath ($ mid ($ sol ($ 1 -, -1), 2))
)
)
alias kayitgosterici.yenile (
($ Window (@ LogGosterici)) (if
aç?k-l @ LogGosterici
net @ LogGosterici
echo-q $ nopath ($ findfile ($ logdir, *. log, 0,)) $ 1 – kayit.yukle.
($ 1 e?er! =-C) (
(% Kayitgosterici.aktifkayit) (loadbuf-pr @ LogGosterici% kayitgosterici.aktifkayit) e?er
else (@ echo LogGosterici Loglar yenilendi … )
)
)
)
alias kayitfilter (
filtre-fwbp $ 1 @ LogArama $+(*,$ 2 – *)
inc% kayitaaranan2
($ Süzülmü?) (if
@ LogArama $ filtre sonuc $ PARANTEZ ($ longfn ($ 1)) dosyasinda bulundu yank? …
echo @ LogArama?
inc% kayitabulunan $ filtre
)
rline @ LogArama 1 $ deltok ($ line (@ LogArama, 1), -1,32) $ int ($ calc (% kayitaaranan2 /% kayitaaranan * 100)) $ +%
)
alias kayitmod.aktif (if ($ dialog (lsetmode)) (did-e $ ifmatch 21))
alias kayit.yukle (
(# * Iswm $ nopath ($ 1 -)) (aline-l @ LogGosterici olur? $ + $ ($ 1 – $ logdir)) kald?r
else (aline-l @ LogGosterici $ ($ 1 – $ logdir)) kald?r
)
menü @ LogArama (
$ Style (2) aktif $+([,$]): x
-
Sonuclari Kaydet (
var% x = $ sfile (c: \ \ \ \ *. log, Ay?e Arama sonuclarini nereye kaydetmek istersiniz?, Kaydet)
yazmak-c% x
savebuf $ aktif% x
)
-
Kapat: yak?n – @ $ aktif
)
menü @ LogGosterici (
dclick (
var% f = $ shortfn ($+($ logdir, $ strip ($ line (@ LogGosterici, $ 1 -, 1))))
($ Hatlar? (% e?er f)> 64000) (
Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy, Log Fazla Büyük)) (çal??t?rmak% f)
durdurmak
)
set% kayitgosterici.aktifkayit% f
loadbuf-pr @ LogGosterici% f
ba?l?k @ LogGosterici – $ strip ($ line (@ LogGosterici, $ 1 -, 1))
)
-
Ara
. Tum Loglarda (
% Kayitabulunan 0 set
% Kayitaaranan findfile ($ logdir, $ set *. log, 0)
set% kayitaaranan2 0
var% = $ $ input (Eger buyuk log dosyalarina sahipseniz Arama islemi Uzun Zaman alacaktir. Devam etmek istiyorsaniz $ + $ chr (44) aramak istediginizi kutuya yazin. s, eq, Arama)
net @ LogArama ($ window (@ LogArama)) () ise
pencere k0z @ LogArama
var% t = $ keneler
@ LogArama $ + (\ \ \ ‘% s echo, \ \ \’ Click Arama yapiliyor …)% 0
@ LogArama $ findfile ($ logdir, echo *. log, 0, kayitfilter 1 $% s). Shortfn log dosyasinda $ + (\ \ \ ‘% s, \ \ \’ arandi.) Toplam $ PARANTEZ (% kayitabulunan) sonuc $ tur ($ (($ kenelerin -% t) / 1000), 2) saniyede bulundu kalk.
unset% kayitabulunan% kayitaaranan% kayitaaranan2
)
. $ IIf ($ mouse.lb, $ strip ($ 1)): kayitgosterici.mo $ shortfn ($+($ logdir, $ strip ($ 1)))
. $ IIf (! $ Mouse.lb, $ nopath (% kayitgosterici.aktifkayit)): kayitgosterici.mo% kayitgosterici.aktifkayit
$ IIf ($ mouse.lb, HTML Olustur): strip ($ 1))) $ shortfn ($+($ logdir, $ crlog
$ IIf (! $ Mouse.lb, HTML Olustur): crlog% kayitgosterici.aktifkayit
$ IIf ($ mouse.lb, Logu göster) (
var% f = $ shortfn ($+($ logdir, $ strip ($ 1)))
($ Hatlar? (% e?er f)> 64000) (
Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy, Log Fazla Büyük)) (
ko?mak% f
durdurmak
)
else (halt)
)
set% kayitgosterici.aktifkayit% f
loadbuf-pr @ LogGosterici% f
ba?l?k @ LogGosterici – $ strip ($ 1 -)
)
$ IIf (! $ Mouse.lb & &% kayitgosterici.aktifkayit, de?il Defteriyle Ac): ko?mak% kayitgosterici.aktifkayit
Log Dizinini Ac: “, $ logdir, \ \”) $ + (\ \ ko?mak
-
Sil
. Tum Loglari (
BÜTÜN loglarinizi silmek istediginizden Emin misiniz?, Wy)) (($ input (e?er
net @ LogGosterici
aç?k-l @ LogGosterici
@ Echo LogGosterici Loglar siliniyor …
. Echo-q $ findfile ($ logdir, *. log, 0,. Kald?rmak $ 1 -). Shortfn
net @ LogGosterici
@ Echo LogGosterici BÜTÜN log dosyalariniz basariyla silindi.
ba?l?k @ LogGosterici – Acik oturum fade
)
)
. Aktif logu (
($ 1 == $ null) (if
net @ LogGosterici
@ LogGosterici Lutfen tür bir kez silmek istediginiz logu listeden Seçin yank?.
durdurmak
)
var% t = $ sline (@ LogGosterici, 0)
($ Input ($ + $ $ 1 loguni silmek istediginizden Emin misiniz? Not: Oturum su Anda kullanimdaysa silinmeyebilir e?er., Wy)) (
unset% kayitgosterici.aktifkayit
i var% = $ sline (@ LogGosterici, 0)
(% I> ise = 1) (
“LogGosterici, i)% $ logdir, $ strip ($ sline (@ $ + (\ \ kald?r ($ isfile ($ logdir $ + $ strip ($ sline (@ LogGosterici,% i)))) (if. ), \ \ “))
dline-l @ LogGosterici $ sline (@ LogGosterici,% i). ln
Aral?k% i
)
net @ LogGosterici
@ LogGosterici $ PARANTEZ (% t) echo (lar) i basariyla silindi dosyas giri? yap?n.
)
ba?l?k @ LogGosterici – Acik oturum fade
)
-
Yenile: kayitgosterici.yenile
Kapat: yak?n – @ @ LogGosterici
)
alias crlog (
var% f = $ shortfn ($ IIf ($ 1, $ 1 – $ sfile ($ logdir $ + *. log, Hangi log dosyasindan HTML dosyasi olusturmak istiyorsunuz?, Tamam ))),% o = $ shortfn ($ sfile ($ + (c: \ \ \ \ $ deltok ($ nopath (% f), -1,46),. htm), Bir cikis dosyasi Seçin, Olustur !)),% p = $ keneler
($ Isfile (e?er% f)) (
yazmak-c% o
dialog-m htmlolustur htmlolustur
did-a htmlolustur 1 1 0 999
-Ra htmlolustur yapt?m 2 Olusturuluyor …
-Ra htmlolustur 3 Kaynak yapt?:
-Ra htmlolustur 4 Satir yapt?:
-Ra htmlolustur 5 Biten yapt?:
-Ra htmlolustur 6 Kalan Sure yapt?:
did-ra htmlolustur 7 $ nopath ($ longfn (% f))
did-ra htmlolustur 8,9,10?
pencere-h @ htmlolustur
var% i = 4,% b = 0,% tt = $ hatlar? (% f),% u = 0
aline @ htmlolustur $ + (