IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Log Tutucu Remote Lazım . (https://www.ircforumlari.net/mirc-scripting-sorunlari/356951-log-tutucu-remote-lazim.html)

MR_WaR 27 Eylül 2010 12:12
Log Tutucu Remote Lazım .
 
Herkez Genelde Aynı Şeyleri Paylaşmış, Koskaca Forumda Bir Tane Bile Log Tutucu Remote Gözüme Çarpmadı. Elinde Hazır Bulunan Paylaşırsa Sevinirim.

Vefa 27 Eylül 2010 13:24
Cevap: Log Tutucu Remote Lazım .
 
bende arama sonucu buldum başka bi sitede dene işine yarayabilir belki.


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 $ + (  , $ 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>

Kae 27 Eylül 2010 18:34
Cevap: Log Tutucu Remote Lazım .
 
PHP- Kodu:
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> 
Log klasoru içinde logger.txt oluşturur tuttugu butun logları o klasorte toplar.

MR_WaR 27 Eylül 2010 18:50
Cevap: Log Tutucu Remote Lazım .
 
Bunlar Scripte Ekleyincede Yan Yana Çıkıyor .
Alt Alta Dizmek Büyük Mesele Ki O Kadar Anlamam Script Kodlarından :(

Vefa 27 Eylül 2010 21:58
Cevap: Log Tutucu Remote Lazım .
 
Kardeş sende bii txt aç ona kopyala yapıştır alt alta gelmesi lazım.

Kae 27 Eylül 2010 22:44
Cevap: Log Tutucu Remote Lazım .
 
verdigimiz kodları okuyup anlamanıza gerek yokki Ekleyin mirc'e yeter :)

LordAres 28 Eylül 2010 14:43
Cevap: Log Tutucu Remote Lazım .
 
gonderdiniz kodu bir incelerseniz seviniriim

DaDaS 28 Eylül 2010 16:41
Cevap: Log Tutucu Remote Lazım .
 
Kod:
lias logviews.about {
  if ($window(@logviews) == $null) { set %logviews.about run | logviews }
  else {
    clear @logviews
    titlebar @logviews - About
    aline @logviews 11,1 Script LoG Okuyucu
    aline @logviews $chr(160)
    aline -p @logviews $str($chr(160),4) Log Okuyucu size IRC Loglarınızı Kolay Ve Çabuk Okuma İmkanı Verir..
    aline @logviews $chr(160) 0,1 By 0,1SahTe
    aline @logviews $chr(160) 
    aline -p @logviews $str($chr(160),4)
    aline @logviews $chr(160)
  }
}
alias logviews {
  :start
  set %logviews.window.h $window(-1).h
  set %logviews.window.w $window(-1).w
  if ($window(@logviews) == $null) { 
    window -l16 @logviews 200 200 630 200 @logviews Arial 11
    window -nls @logviews2 Arial 11
    aline @logviews 0,2 Log Organiser %logviews.version  2,0 Loading log database please wait...
    set %logviews.count 1
    :AddLog
    set %logviews.log $findfile($logdir,*.log,%logviews.count)
    if (%logviews.log == $null) goto end
    else {
      aline -l @logviews2 $nopath(%logviews.log)
      inc %logviews.count 1
      goto addlog
    }
  }
  else { window -c @logviews | goto start }
  :end
  set %logviews.lines $line(@logviews2,0,0)
  set %logviews.count 1
  :lineadd
  if (%logviews.count > %logviews.lines) goto end2
  else {
    aline -l @logviews $line(@logviews2,%logviews.count)
    inc %logviews.count 1
    goto lineadd
  }
  :end2
  if (%logviews.about == run) { logviews.about | set %logviews.about ran | goto end4 }
  :end3
  clear @logviews
  aline @logviews 11,1 Script
  aline @logviews $chr(160)
  aline -p @logviews $str($chr(160),4)  11,1 Script0,1 Size IRC Loglarınızı Kolay Ve Çabuk Okuma İmkanı Veriyor. Sağ Taraftaki Listede Okunmak İstenen Logun Üstüne 4,1Çift Tıklayınız..
  :end4
  iline -l @logviews 1 11,1 Script
  iline -l @logviews 2 12,1 Logların Listesi  $str($chr(160),175) 
  iline -l @logviews 3 7-----------------------------
  window -c @logviews2
}
alias logrefresh {
  :start
  if ($window(@logviews) == $null) { logviews }
  else {
    clear -l @logviews
    window -nls @logviews2 Arial 11
    set %logviews.count 1
    :AddLog
    set %logviews.log $findfile($logdir,*.log,%logviews.count)
    if (%logviews.log == $null) goto end
    else {
      aline -l @logviews2 $nopath(%logviews.log)
      inc %logviews.count 1
    goto addlog }
  }
  :end
  set %logviews.lines $line(@logviews2,0,0)
  set %logviews.count 1
  :lineadd
  if (%logviews.count > %logviews.lines) goto end2
  else {
    aline -l @logviews $line(@logviews2,%logviews.count)
    inc %logviews.count 1
    goto lineadd
  }
  :end2
  iline -l @logviews 1 0,2 $chr(160) Loglar  $str($chr(160),30)
  iline -l @logviews 2 0,2 $str($chr(160),175) 
  window -c @logviews2
}
alias Logview {
  if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2) { halt }
  else {
    set %logviews.file $logdir $+ $sline(@logviews,1)
    set %logviews.size $lof(%logviews.file)
    clear @logviews   
    iline @logviews 1 4Log Viewer  Viewing: $sline(@logviews,1) ( $+ %logviews.size bytes) $str($chr(160),175)
    titlebar @logviews - $sline(@logviews,1)
    loadbuf -p @logviews $logdir $+ $sline(@logviews,1)
    sline @logviews 15
  }
}
alias logview.newwindow {
  set %logviews.window @ [ $+ [ $sline(@logviews,1) ] ]
  set %logviews.file $logdir $+ $sline(@logviews,1)
  set %logviews.size $lof(%logviews.file)
  window %logviews.window @LogView Arial 11
  iline %logviews.window 1 0,1 Script Log Viewer  2,0 Viewing: $sline(@logviews,1) ( $+ %logviews.size bytes) $str($chr(160),175)
  loadbuf %logviews.window $logdir $+ $sline(@logviews,1)
  sline %logviews.window 15
}
menu @logviews {
  dclick loglist2
  View Log
  .In Window:logview $sline(@logviews,1)
  .In New Window:logview.newwindow $sline(@logviews,1)
  Search Log Text:logsearch
  -
  Log Sil:dellog $sline(@logviews,1)
  Log Copyala:copylog
  Logu Yeniden Adlandır:remlog
  -
  Logu Not Defterinde Aç:lognotepad
  -
  Listeyi Güncelle:logrefresh
  Pencereyi Kapa:window -c @logviews
  -
  Log Okuyucu Hakkında:logviews.about
}
alias LogList2 {
  if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
  else logview $sline(@logviews,1)
}
menu @Logview {
  Search Log Text:logsearch.nw
  -
  Delete Log:/dellog $remove($active,@)
  Copy Log:/copylog
  -
  Open Log In Notepad:run notepad.exe $logdir $+ $remove($active,@)
  -
  Close Window:window -c $active
  -
  About:window -a @logviews | logviews.about
}
menu @Confirm.Delete {
  dclick Confirm.Delete
}
alias Confirm.Delete {
  if ($sline(@Confirm.Delete,1).ln == 1 || $sline(@Confirm.Delete,1).ln == 2 || $sline(@Confirm.Delete,1).ln == 3 || $sline(@Confirm.Delete,1).ln == 4) { halt }
  if ($sline(@Confirm.Delete,1).ln == 5) { remove $logdir $+ %logviews.log.delete | window -c @Confirm.Delete | dline -l @logviews $sline(@logviews,1).ln | echo %perfect 0,1Log Viewer  0,1 %logviews.log.delete DELETED }
  if ($sline(@Confirm.Delete,1).ln == 6) { window -c @Confirm.Delete }
}
alias copylog {
  if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
  /copy $logdir $+ $sline(@logviews,1) $sdir="Select A Directory To Copy $sline(@logviews,1) To:" $+ $sline(@logviews,1)
}
alias remlog {
  if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
  else {
    rename $logdir $+ $sline(@logviews,1) $logdir $+ $?="Please Enter A New File Name:" | logrefresh
  }
}
alias dellog {
  if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
  else {
    set %logviews.log.delete $sline(@logviews,1)
    window -l+bt @Confirm.Delete 20 20 150 111 @Confirm.Delete Arial 11
    aline @Confirm.Delete 15 Are you 4sure15 you want $str($chr(160),10)
    aline @Confirm.Delete 15 to delete: $str($chr(160),50)
    aline @Confirm.Delete 8 $sline(@logviews,1) $+ ? $str($chr(160),100)
    aline @Confirm.Delete 1 ------------------------------------ $str($chr(160),10)
    aline @Confirm.Delete 4 YES $str($chr(160),50)
    aline @Confirm.Delete 4 NO $str($chr(160),50)
  }
}
alias dellog2 {
  set %logviews.log.delete $remove($active,@)
  window -l+bt @Confirm.Delete 20 20 150 111 @Confirm.Delete Arial 11
  aline @Confirm.Delete 1 ------------------------------------ $str($chr(160),10)
  aline @Confirm.Delete 15 Are you 4sure15 you want $str($chr(160),10)
  aline @Confirm.Delete 15 to delete: $str($chr(160),50)
  aline @Confirm.Delete 2 $sline(@logviews,1) $+ ? $str($chr(160),100)
  aline @Confirm.Delete 1 ------------------------------------ $str($chr(160),10)
  aline @Confirm.Delete 4 YES $str($chr(160),50)
  aline @Confirm.Delete 4 NO $str($chr(160),50)
}
menu @Confirm.Delete2 {
  dclick Confirm.Delete2
}
alias Confirm.Delete2 {
  if ($sline(@Confirm.Delete,1).ln == 1 || $sline(@Confirm.Delete,1).ln == 2 || $sline(@Confirm.Delete,1).ln == 3 || $sline(@Confirm.Delete,1).ln == 4) { halt }
  if ($sline(@Confirm.Delete,1).ln == 5) { remove $logdir $+ %logviews.log.delete | window -c @Confirm.Delete | dline -l @logviews $sline(@logviews,1).ln | echo 0,1pErFeCt sCriPt Log Viewer  0,1 %logviews.log.delete DELETED }
  if ($sline(@Confirm.Delete,1).ln == 6) { window -c @Confirm.Delete }
}
alias lognotepad {
  if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
  else run notepad.exe $logdir $+ $sline(@logviews,1)
}
alias logsearch {
  if ($window(@logviews).title == - $sline(@logviews,1)) goto next
  else { logview $sline(@logviews,1) | goto next }
  :next
  if ($window(@LogSearch) != $null) /window -c @LogSearch
  window @LogSearch @LogSearch Arial 11
  set %logviews.file $logdir $+ $sline(@logviews,1)
  titlebar @LogSearch - $sline(@logviews,1)
  set %logviews.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] *
  aline @LogSearch 0,1pErFeCt sCriPt Log Viewer  $str($chr(160),10) 2,0 Log Searcher
  aline @LogSearch 2,0 $str($chr(160),20) Searching For:2,0 %logviews.searchstring 
  filter -fwn %logviews.file @LogSearch %logviews.searchstring
}
menu @LogSearch {
  dclick logsearch2
  Goto Line:logsearch2
  -
  Close Window:window -c @LogSearch
  About:window -a @logviews | logviews.about
}
alias logsearch2 {
  if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt }
  else {
    sline @logviews $calc($gettok($sline(@LogSearch,1),1,32) + 10)
    window -a @logviews
  }
}
alias logsearch.nw {
  set %logviews.window $remove($active,@)
  if ($window(@LogSearch) != $null) window -c @LogSearch
  window -l @LogSearch @LogSearch.nw Arial 11
  set %logviews.file $logdir $+ %logviews.window
  titlebar @LogSearch - %logviews.window
  set %logviews.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] *
  aline @LogSearch 0,2 Log Organiser %logviews.version  $str($chr(160),150) 2,0Log Searcher $str($chr(160),100)
  aline @LogSearch 2,0 $str($chr(160),20) Searching For:2,0 %logviews.searchstring  $str($chr(160),500)
  filter -fwn %logviews.file @LogSearch %logviews.searchstring
}
menu @LogSearch.nw {
  dclick:logsearchnw
  Goto Line:logsearchnw
  -
  Close Window:window -c @LogSearch
  About:window -a @logviews | logviews.about
}
alias logsearchnw {
  set %logviews.window2 @ $+ %logviews.window
  if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt }
  else {
    sline %logviews.window2 $calc($gettok($sline(@LogSearch,1),1,32) + 10)
    window -a %logviews.window2
  }
}
alias bw_mod_e {
  if ($1 == $null) { halt }
  %bw_wtot = $count(%badwords,$chr(44)) + 1
  :bwm_Wloop
  if (%bw_wtot =< 0) { bw_winit | halt }
  elseif ($gettok(%badwords,%bw_wtot,44) == $1) { dline %bw_wset $sline(%bw_wset,1).ln | %badwords = $remtok(%badwords,$1,44) | halt }
  else { dec %bw_wtot | goto bwm_Wloop }
}
alias Wordalc {
  %bw_alt = $count($1,$chr(44)) + 1
  :alcloop
  if (%bw_alt <= 0) { return }
  else {
    aline $2 $gettok($1,%bw_alt,44)
    dec %bw_alt
    goto alcloop
  }
  :end
}

bunuda popüpse pastele
[-= Log Oku =-]:/run notepad $mircdirLogs/ $+ $active $+ .log

MR_WaR 28 Eylül 2010 19:39
Cevap: Log Tutucu Remote Lazım .
 
Teşekkür Ederim, DaDaS .


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:17.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk