mIRC Script Log sistem
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 |
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 $ + (<html> <head> <title>, $ nopath ($ longfn (% f )),</ title> </ head> <style type = \ \ "metin / css \ \ "><!--) 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 ) |