alias writer /log/logger.txt (   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 $ + (  , $ nopath ($ longfn (% f )),  <!--)     aline @ htmlolustur vücut $ chr (123) $ + (background-color = \ \ ", $ hexcolor (arka), \ \"; font-family: \ \ ", $ window ($ aktif). font, \ \ "; font-size: \ \", $ window ($ aktif). "\ \ Yaz?y?; color = \ \", $ hexcolor (normal), \ \ ") $ chr (125 )     aline @ htmlolustur -     loadbuf 1-2001 @ htmlolustur% f     (% U <=% tt) (süre       rline @ htmlolustur% i $ + ($ ($ (@ htmlolustur,% i )),<,& lt ;,>,& gt strip ($ line yerine;), )       (% I == 2001) (if         var% i = 1         inc% b 2001         savebuf-a @ htmlolustur% o         loadbuf $ + ($ calc (% b 1 ),-,$ calc (% b 2001))-r @ htmlolustur% f         devam etmek       )       If (! $ Calc (% i% 100)) (         did-a htmlolustur 1% u% 0 tt         did-ra htmlolustur 8 $ + (% u /% tt)         did-ra htmlolustur 9 $ + ($ int ($ calc (% u /% tt * 100 )),%)         (% U> 5000) (did-ra htmlolustur 10 $ süresi (int $ ($ (($ kenelerin -% p) / 1000 /% u *% tt kalk - (($ kenelerin -% p) / 1000) ise ))))       )       inc% i       inc% u     )     aline @ htmlolustur </ html>     savebuf-a @ htmlolustur $ + (\ \ ",% o, \ \")     yak?n - @ @ htmlolustur     dialog-c htmlolustur     yazmak-L3 $ + (\ \ ",% o, \ \") --></ style> • HTML $ Tarih Tarihinde $ tur ($ calc (($ keneler dosyasi tarafindan log - % p) / 1000), 2) saniyede,  • $ nopath ($ longfn (% f)) dosyasindan olusturuldu $ PARANTEZ (Orijinal dosya say?s?% tt SATIR $ + $ chr (44) $ byte ( $ ()% f). dosya boyutu. SUF), )     (HTML yuvarlak ($ (($ kenelerin -% p) / 1000), 2) $ + (saniye icinde basariyla olusturuldu kalk. Dosyasi $ log ($ input e?er $ CRLF, $ CRLF, maddesine ba?lant? veren sayfalar: $ nopath (% o ) $ PARANTEZ ($ byte ($ (% o) dosyas?. boyutunda). SUF), $ CRLF, Kaynak: $ nopath (% f) $ PARANTEZ ($ byte ($ file (% f). boyutunda). SUF) , $ CRLF, Satir:% tt, $ CRLF, $ CRLF, Log Dizini \ \ \ ', $ longfn (% o), \ \ \'. $ CRLF, birsey calistirmak Ba misiniz?), IY, HTML logu )) (url-an% o)   )   else (errdialog maddesine ba?lant? veren sayfalar cikis hatasi% f $ +! ) ) ileti?im htmlolustur (   boyutu -1 -1 120 49   seçenek dBu   metin \ \ "? \ \", 2,2 3 116 8, merkez   Metin "" \ \ \ \ 1,2 12 116 10   metin \ \ "? \ \", 3,2 24 50 8, sa?   metin \ \ "? \ \", 4,2 32 50 8, sa?   metin \ \ "? \ \", 5,2 40 50 8, sa?   metin \ \ "? \ \", 6,2 48 50 8, sa?   metin \ \ "? \ \", 7,55 24 60 8   metin \ \ "? \ \", 8,55 32 60 8   metin \ \ "? \ \", 9,55 40 60 8   metin \ \ "? \ \", 10,55 48 60 8 ) * Do?um: dialog: htmlolustur: init: 0: (   SetMircVersion sürümü $ mdx   MarkDialog dname $ dialog ($ dname) $ mdx. Hwnd   SetControlMDX ProgressBar pürüzsüz> script $ dname 1 mdx \ \ \ \ mdx \ \ \ \ ctl_gen.mdx   SetDialog tarz? dlgmodal $ dname mdx   did-i $ dname 1 1 bgcolor $ rgb (hilight)   did-i $ dname 1 1 barcolor $ rgb (metin) ) * Do?um: close: @ LogGosterici: (unset% kayitgosterici.aktifkayit) alias PARANTEZ (return ($ + $ 1 - $ +)) menü kanal, durum (   Ne dinliyorum?: ?ark? #   -   Log gösterici:. Kayitgosterici )  </pre> </div>