Pazar, Temmuz 15

Mirc log izleme ( hem kanalda hem özelde )

Blogumuz google da birçok kelimede aranmak (mirc indir,mırc , mirç , mirc yükle , mirc download ,mirc chat) gibi...Blogumuzdan mirc indirmek için mIRC Yukle baglantısını kullanın.

Kaydet Dedikden Sonra Herangi Bi Kanalda Bo$ Yere Sag Tiklioruz.. Sag Tikladiginizda En Alta "Log Gösterici" Diye Bir Menu Eklendi .. Ona Tiklioruz.. Acilan @LogArama Penceresinde Butun Loglariniz Listelenior.. Kanaldan Baslior.. Özelden Bitior .. Kolay Kullanilisli Bir Koddur..  Umarim Isinize Yarar.
Kodu ALt+R yapıp remote penceresine yapıştırınız.
alias kayitgosterici.mo {var %s = $$input($nopath($longfn($1-) dosyasi icinde aramak istediginizi yaziniz: ),eq,Arama)if ($window(@LogArama)) { clear @LogArama }window -k0z @LogAramavar %t = $tickskte_echo @LogArama $parantez($nopath($longfn($1-))) dosyasinda $parantez(%s) icin arama yapildi $+ ...echo @LogArama
filter -fwbp $1- @LogArama $+(*,%s,*)echo @LogArama
kte_echo @LogArama $nopath($longfn($1-)) dosyasinda arnan $+(',%s,',) ile ilgili $parantez($filtered) sonuc $round($calc(($ticks - %t) / 1000),2) saniyede bulundu.}alias kayitgosterici {if ($window(@LogGosterici)) { close -@ @LogGosterici }window -k0l16zS @LogGostericiecho @LogGosterici $logdir icinde $parantez($nopath($findfile($logdir,*.log,0,kayit.yukle $1-))) log dosyasi bulundu.if ($isfile($1-)) {if ($lines($1-) > 64000) {if ($input(Bu log mIRC $+ $chr(44) ile gosterilebilmesi icin fazla buyuk. Bu logu not defteri ile birlikte acmak ister misiniz?,wy)) { run $1- }halt}set %kayitgosterici.aktifkayit $shortfn($1-)loadbuf -pr @LogGosterici $1-titlebar @LogGosterici - $nopath($mid($left($1-,-1),2))}}alias kayitgosterici.yenile {if ($window(@LogGosterici)) {clear -l @LogGostericiclear @LogGosterici.echo -q $nopath($findfile($logdir,*.log,0,kayit.yukle $1-))if ($1 != -c) {if (%kayitgosterici.aktifkayit) { loadbuf -pr @LogGosterici %kayitgosterici.aktifkayit }else { echo @LogGosterici Loglar yenilendi... }}}}alias kayitfilter {filter -fwbp $1 @LogArama $+(*,$2-,*)inc %kayitaaranan2if ($filtered) {echo @LogArama $filtered sonuc $parantez($longfn($1)) dosyasinda bulundu...echo @LogArama
inc %kayitabulunan $filtered}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 {if (#* iswm $nopath($1-)) { aline -l @LogGosterici $+ $remove($1-,$logdir) }else { aline -l @LogGosterici $remove($1-,$logdir) }}menu @LogArama {$style(2) $+([,$active,]):x-Sonuclari Kaydet {var %x = $$sfile(c:\*.log,Bu arama sonuclarini nereye kaydetmek istersiniz?,Kaydet)write -c %xsavebuf $active %x}-Kapat:close -@ $active}menu @LogGosterici {dclick {var %f = $shortfn($+($logdir,$strip($line(@LogGosterici,$1-,1))))if ($lines(%f) > 64000) {if ($input(Bu log mIRC $+ $chr(44) ile gosterilebilmesi icin fazla buyuk. Bu logu not defteri ile birlikte acmak ister misiniz?,wy,Log Fazla Buyuk)) { run %f }halt}set %kayitgosterici.aktifkayit %floadbuf -pr @LogGosterici %ftitlebar @LogGosterici - $strip($line(@LogGosterici,$1-,1))}-Ara.Tum Loglarda {set %kayitabulunan 0set %kayitaaranan $findfile($logdir,*.log,0)set %kayitaaranan2 0var %s = $$input(Eger buyuk log dosyalarina sahipseniz arama islemi uzun zaman alacaktir. Devam etmek istiyorsaniz $+ $chr(44) aramak istediginizi kutuya yazin.,eq,Arama)if ($window(@LogArama)) { clear @LogArama }window -k0z @LogAramavar %t = $ticksecho @LogArama $+(',%s,' icin arama yapiliyor...) 0%echo @LogArama $findfile($logdir,*.log,0,kayitfilter $1 %s).shortfn log dosyasinda $+(',%s,' arandi.) Toplam $parantez(%kayitabulunan) sonuc $round($calc(($ticks - %t) / 1000),2) saniyede bulundu.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):crlog $shortfn($+($logdir,$strip($1)))$iif(!$mouse.lb,HTML Olustur):crlog %kayitgosterici.aktifkayit$iif($mouse.lb,Logu Goster) {var %f = $shortfn($+($logdir,$strip($1)))if ($lines(%f) > 64000) {if ($input(Bu log mIRC $+ $chr(44) ile gosterilebilmesi icin fazla buyuk. Bu logu not defteri ile birlikte acmak ister misiniz?,wy,Log Fazla Buyuk)) {run %fhalt}else { halt }}set %kayitgosterici.aktifkayit %floadbuf -pr @LogGosterici %ftitlebar @LogGosterici - $strip($1-)}$iif(!$mouse.lb && %kayitgosterici.aktifkayit,Not Defteriyle Ac):run %kayitgosterici.aktifkayitLog Dizinini Ac:run $+(",$logdir,")-Sil.Tum Loglari {if ($input(Butun loglarinizi silmek istediginizden emin misiniz?,wy)) {clear @LogGostericiclear -l @LogGostericiecho @LogGosterici Loglar siliniyor....echo -q $findfile($logdir,*.log,0,.remove $1-).shortfnclear @LogGostericiecho @LogGosterici Butun log dosyalariniz basariyla silindi.titlebar @LogGosterici - acik log yok}}.Aktif logu {if ($1 == $null) {clear @LogGostericiecho @LogGosterici Lutfen ilk once silmek istediginiz logu listeden secin.halt}var %t = $sline(@LogGosterici,0)if ($input( $+ $$1 loguni silmek istediginizden emin misiniz? Not: Log su anda kullanimdaysa silinmeyebilir.,wy)) {unset %kayitgosterici.aktifkayitvar %i = $sline(@LogGosterici,0)while (%i >= 1) {if ($isfile($logdir $+ $strip($sline(@LogGosterici,%i)))) { .remove $+(",$logdir,$strip($sline(@LogGosterici,%i)),") }dline -l @LogGosterici $sline(@LogGosterici,%i).lndec %i}clear @LogGostericiecho @LogGosterici $parantez(%t) log dosyas(lar)i basariyla silindi.}titlebar @LogGosterici - acik log yok}-Yenile:kayitgosterici.yenileKapat:close -@ @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 secin,Olustur!)),%p = $ticksif ($isfile(%f)) {write -c %odialog -m htmlolustur htmlolusturdid -a htmlolustur 1 1 0 999did -ra htmlolustur 2 Olusturuluyor...did -ra htmlolustur 3 Kaynak:did -ra htmlolustur 4 Satir:did -ra htmlolustur 5 Biten:did -ra htmlolustur 6 Kalan Sure:did -ra htmlolustur 7 $nopath($longfn(%f))did -ra htmlolustur 8,9,10 ?window -h @htmlolusturvar %i = 4,%b = 0,%tt = $lines(%f),%u = 0aline @htmlolustur $+(,$nopath($longfn(%f)),• HTML log dosyasi tarafindan $tarih tarihinde $round($calc(($ticks - %p) / 1000),2) saniyede,• $nopath($longfn(%f)) dosyasindan olusturuldu $parantez(Orijinal dosya %tt satir $+ $chr(44) $bytes($file(%f).size).suf),
)if ($input(HTML log dosyasi $round($calc(($ticks - %p) / 1000),2) $+(saniye icinde basariyla olusturuldu.,$crlf,$crlf,Dosya: ,$nopath(%o) $parantez($bytes($file(%o).size).suf),$crlf,Kaynak: ,$nopath(%f) $parantez($bytes($file(%f).size).suf),$crlf,Satir: ,%tt,$crlf,$crlf,Log dizini ',$longfn(%o),'.,$crlf,Simdi calistirmak ister misiniz?),iy,HTML logu)) { url -an %o }}else { errdialog Dosya cikis hatasi %f $+ ! }}dialog htmlolustur {size -1 -1 120 49option dbutext "?",2,2 3 116 8,centertext "",1,2 12 116 10text "?",3,2 24 50 8,righttext "?",4,2 32 50 8,righttext "?",5,2 40 50 8,righttext "?",6,2 48 50 8,righttext "?",7,55 24 60 8text "?",8,55 32 60 8text "?",9,55 40 60 8text "?",10,55 48 60 8}on *:dialog:htmlolustur:init:0:{mdx SetMircVersion $versionmdx MarkDialog $dname $dialog($dname).hwndmdx SetControlMDX $dname 1 ProgressBar smooth > script\mdx\ctl_gen.mdxmdx SetDialog $dname style dlgmodaldid -i $dname 1 1 bgcolor $rgb(hilight)did -i $dname 1 1 barcolor $rgb(text)}on *:close:@LogGosterici:{ unset %kayitgosterici.aktifkayit }alias parantez { return ( $+ $1- $+ ) }menu channel,status {Log Gosterici:.kayitgosterici}

4 yorum:

  1. ya k. bakmayın ben yapıyorum yapıyorum ama log arama bir türlü gelmiyor. ne yapmalıyım

    YanıtlaSil
  2. tekrar bi denermisiniz bende hata almadım çünkü

    YanıtlaSil
  3. denedim ama yine belmedi menüde. Siz hangi mirc programıbı kullanıyorsunuz? Rica etsem linkini verebilir misiniz? Bir de bu kodla başkasının özelini izleyebiliyor muyuz

    YanıtlaSil
  4. Anladım ben tekrar bi deneyeyim onu.. Kullandığım script AynaLive Oper Script V2 Google a yazınız

    YanıtlaSil