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 $ + ( http://www.mirccafe.com/02/mirc-admin-menu/ http://www.mirccafe.com/02/mirc-admin-menu/#comments Sun, 12 Feb 2012 07:14:33 +0000 admin http://www.mirccafe.com/?p=3551 Kod:

menü durumu, menü çubu?unun, kanal (
. EXLove Admin Menü: / dialog-m exlove exlove
)
ileti?im eXLove (
Ba?l?k \ \ “Admin Menü \ \” eXLove
boyutu -1 -1 165 296
seçenek dBu
dü?mesine \ \ “Nick Yasakla \ \”, 2, 11 15 37 10
dü?mesine \ \ “Nick Yasa? Sil \ \ “, 3, 52 15 37 10
dü?mesine \ \ “Yasakl? Nickleri Listele \ \ “, 4, 58 240 57 10
dü?mesine \ \ “Nickin Kayd? n? Yasakla \ \ “, 5, 58 253 57 10
dü?mesine \ \ “Nickin Kayd? n? Sil \ \ “, 6, 11 27 46 10
dü?mesine \ \ “Kanal Yasakla \ \”, 7, 93 15 37 10
dü?mesine \ \ “Nicke GETPASS \ \”, 8, 62 27 38 10
dü?mesine \ \ “Kanala GETPASS \ \”, 9, 105 27 41 10
\ \ “Global dü?mesine \ \” At, 10, 107 121 37 10
dü?mesine \ \ “Adminleri Listele \ \”, 11, 93 52 45 9
dü?mesine \ \ “Yönetici Ekle \ \”, 12, 11 52 37 9
dü?mesine \ \ “Yönetici Sil \ \”, 13, 52 52 37 9
dü?mesine \ \ “Oper Sil \ \”, 14, 52 63 31 9
dü?mesine \ \ “Spam Sil \ \”, 15, 56 85 37 10
dü?mesine \ \ “Oper Ekle \ \”, 16, 11 63 37 9
dü?mesine \ \ “Oper Listele \ \”, 17, 87 63 37 9
dü?mesine \ \ “Host -? göçük De? i? \ \”, 18, 30 214 49 10
dü?mesine \ \ “Spam Ekle \ \”, 19, 14 85 37 10
dü?mesine \ \ “Blok Ekle \ \”, 20, 14 98 37 9
dü?mesine \ \ “Block Sil \ \”, 24, 55 98 37 9
dü?mesine \ \ “Spam Listele \ \”, 25, 97 85 37 10
dü?mesine \ \ “Operlere Air Video \ \”, 21, 16 121 43 10
dü?mesine \ \ “Özellere Air Video \ \”, 22, 62 121 42 10
dü?mesine \ \ “Reklam Kontrol B?R Kere \ \”, 23, 12 162 61 10
dü?mesine \ \ “Reklam Kontrol 3 dk. \ \ \ ‘Da B?R \ \ “, 26, 76 162 72 10
dü?mesine \ \ “Restrart Atma \ \”, 27, 96 98 41 9
dü?mesine \ \ “Serveri Kapa \ \”, 28, 61 176 37 10
dü?mesine \ \ “Servicesleri Dü? ür \ \”, 29, 12 176 48 10
dü?mesine \ \ “Useri Kanala Sok \ \”, 30, 86 200 43 10
dü?mesine \ \ “AKILL Ekle \ \”, 31, 16 134 29 10
dü?mesine \ \ “Userin Nickini De? i? \ \”, 32, 82 214 51 10
dü?mesine \ \ “Girilmeyen Kanala Gir \ \”, 33, 99 176 55 10
dü?mesine \ \ “Useri Kanaldan Ç? kar \ \”, 34, 30 200 52 10
dü?mesine \ \ “AKILL Sil \ \”, 35, 48 134 37 10
dü?mesine \ \ “AKILL Listele \ \”, 1, 87 134 37 10
kutu \ \ “1 \ \”, 36, Menü 5 7 146 33
kutu \ \ “Menü2 \ \”, 37, 8 44 136 30
kutu \ \ “Menü 3 \ \”, 38, 9 77 135 33
kutu \ \ “4 \ \”, 39, Menü 12 113 138 34
kutu \ \ “5 \ \”, 40, Menü 8 154 151 36
kutu \ \ “6 \ \”, 41, Menü 25 192 114 36
kutu \ \ “7 \ \”, 42, Menü 53 232 67 34
\ \ “Yazan de?i?tir eXLove \ \”, 43, 62 268 47 10, okumak
“\ \ Düzenlerim? Leti? Im: c0d3rs@w.cn \ \”, 44, 55 280 61 11, okumak
)
* Do?um: dialog: eXLove :*:*: (
== Sclick ($ devent) (if
/ SQLINE $ eklemek ($ did == 2) (if? = \ \ “Eklenecek Nick? \ \”)
/ SQLINE $ eklemek ($ did == 3) (if? = \ \ “Silinecek Nick? \ \”)
($ Did == 4) (/ SQLINE liste) e?er
NickServ $ $ korusun ($ did == 5) (if /? = \ \ “Kayd? Yasaklanacak Nick? \ \ “)
($ Did == 6) (/ NickServ drop $ $ olur? = \ \ “Kayd? Silinecek Nick? \ \ “?imdi)
$ $ Korusun ($ did == 7) (if / cs? = \ \ “Yasaklanacak # Kanal? \ \”)
($ Did == (if / NickServ $ GETPASS? = \ \ “Nick? \ \”)
($ Did == 9) (/ ChanServ GETPASS $ olur? = \ \ “# Kanal? \ \”)
/ Global $ $ os ($ did == 10) (if? = \ \ “Air Video? N? \ \”)
/) Admin listesini os ($ did == 11) (if
/ Os ($ did == 12) (if admin $ eklemek? = \ \ “Eklenecek Nick? \ \”)
($ Did == 13) (/ os admin del $ olur? = \ \ “Silicenek Nick? \ \”)
/ Del $ oper os ($ did == 14) (if? = \ \ “Silinecek Nick? \ \”)
del cpNn ($ did == 15) (/ spamfilter e?er gzline 2d $ $? = \ \ “sebep? \ \” $ + $ $ ^? = \ \ “Silinecek spamfilter? \ \” $ + $ )
/ Os ($ did == 16) (if oper $ eklemek? = \ \ “Nick? \ \”)
/) Oper listesinde os ($ did == 17) (if
/ Setident $ $? = \ \ “Ident \ \” | / sethost $ $ ($ did == 18) (if? = \ \ “Host \ \”)
/ Spamfilter cpNn gzline 2d $ eklemek ($ did == 19) (if? = \ \ “Sebep? \ \” $ + $ $ ^? = \ \ “Eklenecek spamfilter? \ \” $ + $ )
/ Spamfilter cpNn blok 2d $ eklemek ($ did == 20) (if? = \ \ “Sebep? \ \” $ + $ $ ^? = \ \ “Block Eklenecek Kelime? \ \” $ + $)
“$ + $ $ ^ ($ Did == 21) (/ spamfilter del cpNn blok 2d $ olur? = \ \” Sebep? \ \? = \ \ “Block Silinecek Kelime? \ \” $ + $)
($ Did == 22) (/ os spamfilter) e?er
/ $ $ Globops ($ did == 23) (if? = \ \ “Air Video? N)
/ Irc.Sunucun.com? \ \ “$ $ $ $? \ \” $ Tan?mlamak ($ did == 24) (if? = \ \ “Air Video? N? \ \”)
/ Irc.Sunucun.com? \ \ “$ $ $ $? \ \” $ Tan?mlamak ($ did == 25) (if? = \ \ “Reklam Kontrol Air Video? N? \ \”)
($ Did == 26) (0 180 / irc.Sunucun.com? \ \ “$ $ $ $? \ \” $ Tan?mlamak / zamanlay?c? olur? = \ \ “Reklam Kontrol Air Video? N? \ \”
OperServ) dinlenme ($ did == 27) (/ if
/ $ $ Die ($ did == 28) (if? = \ \ “Eee Server? Iresini Yaz Bakim? \ \”)
OperServ) ç?kmak ($ did == 29) (/ if
/ $ $ Sajoin ($ did == 30) (if? = Nick? \ \ “$ $? = \ \” # Kanal \ \ “)
/ Os ($ did == 31) (if AKILL 2d $ eklemek? = \ \ “* @ IP Adresi? \ \” $ $? = \ \ “Sebep? \ \”)
($ Did == 32) (/ OperServ raw svsnick $ $? = \ \ “? Uanki Nicki? \ \” $ $ Olur? = \ \ “De? I? Ecek Hali? \ \”: 0 )
/ J $ $? = \ \ “# Kanal? \ \”) ($ Did == 33) (if
($ Did == 34) (/ part $ $? = \ \ “Nick? \ \”) If
($ Did == 35) (/ os AKILL del 2d $ $? = \ \ “* @ IP Adresi? \ \”) If
($ Did == 36) (/ AKILL Listesi) e?er
)

Kod,

menu menubar,channel,query {
$iif($group(#DuaL_CoLoR.Text) == Off,DuaL_CoLoR Text [Off],DuaL_CoLoR Text [On]):{
$iif($group(#DuaL_CoLoR.Text) == Off,.enable #DuaL_CoLoR.Text,.disable #DuaL_CoLoR.Text)
}
}
#DuaL_CoLoR.Text on

on *:input:*:{
if ($left($1-,1) != /) {
if ($left($1-,1) != $chr(33)) {
set %len $len($1-) }
if ($remove($1,:) ison $chan) { .set %nick.comp $remove($1,:) | .say 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 14,1 ¬ 10,1 $1 14¬ 1,1 10 $+ $left($mid($2-,00,$calc($len($2-) – 1)),4) $+ 1,10 $+ $mid($2-,5,$calc($len($2-) – 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10× | goto End | :end | halt }
else {
msg $active 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 1,1 1,1 $+ 10 $+ $left($mid($1-,1,$calc($len($1-) – 0)),11) $+ 1,10 $+ $mid($1-,12,$calc($len($1-) – 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×0,0 | haltdef 11,11,110}
}
}
}

.Ki?i
..op
…+o nick:.enable #WeiL | set %huffs +o $$?=\\"Nick Giriniz\\" | list
…-o nick:.enable #WeiL | set %huffs -o $$?=\\"Nick Giriniz\\" | list
.KanaL Modlar?
..RM
…+RM:.enable #WeiL | set %huffs +M | list
…-RM:.enable #WeiL | set %huffs -M | list
..c
…+c:.enable #WeiL | set %huffs +c | list
…-c:.enable #WeiL | set %huffs -c | list
..m
…+m:.enable #WeiL | set %huffs +m | list
…-m:.enable #WeiL | set %huffs -m | list

}
#WeiL off
raw 322:*:{
mode $2 %huffs
}
raw 323:*:{
.unset %huffs
.disable #WeiL
}
#WeiL end

Tıkla INDIR

Tıkla indir

toplu kil Bilgisayarınıza Yüklemek İçin Tıklayın!