log Türkçe mIRC indir - Resmi mIRC indirme Sitesi

Kanal ve Özel Loglama Modülü m_loggit.c

11 Ocak 2016 • 21:09 OxiGeN IRCd Dosyaları

* ==================================================================
 * Filename:             m_loggit.c
 * Description:          Real-time Logging
 * Written by:         MartinCo
 * ==================================================================
 */

#include "config.h"
#include "struct.h"
#include "common.h"
#include "sys.h"
#include "numeric.h"
#include "msg.h"
#include "channel.h"
#include <time .h>
#include <sys /stat.h>
#include <stdio .h>
#include <stdlib .h>
#include <string .h>
#include <fcntl .h>
#include "h.h"

// ==================================================================
// Definitions & macros
// ================================
#define MyMod            LoggitModInfo->handle
#define DelHook(x)        if (x) HookDel(x); x = NULL

DLLFUNC char        *loggit_privmsg(aClient *, aClient *, aClient *, char *, int);
DLLFUNC char        *loggit_chanmsg(aClient *, aClient *, aChannel *, char *, int);


// ==================================================================
// Module header
// ==================================================================

ModuleHeader MOD_HEADER(m_loggit)
  = {
    "Loggit",
    "$Id: m_loggit.c,v 3.6 2007 MartinCo Exp $",
    "Loggit",
    "3.2-b8-1",
    NULL
    };

ModuleInfo        *LoggitModInfo;

static Hook        *HookPrivMsg;
static Hook        *HookChanMsg;
static FILE *fp;


DLLFUNC int MOD_INIT(m_loggit)(ModuleInfo *modinfo)
{
    int ret = MOD_SUCCESS;
      
        LoggitModInfo    = modinfo;

    HookPrivMsg    = HookAddPCharEx(MyMod, HOOKTYPE_USERMSG, loggit_privmsg);
    HookChanMsg    = HookAddPCharEx(MyMod, HOOKTYPE_CHANMSG, loggit_chanmsg);

    return ret;
}

DLLFUNC int MOD_LOAD(m_loggit)(int module_load)
{
    return MOD_SUCCESS;
}

DLLFUNC int MOD_UNLOAD(m_loggit)(int module_unload)
{

    DelHook(HookChanMsg);
    DelHook(HookPrivMsg);

    return MOD_SUCCESS;
}

// ==================================================================
// Functions for nicknames, channel names and prefixes
// ==================================================================

DLLFUNC char *loggit_privmsg(aClient *cptr, aClient *sptr, aClient *acptr, char *text, int notice)
{

    time_t calender_time;
    struct tm tdate;
    calender_time = time(NULL);
    tdate = *localtime(&calender_time);

    FILE * pFile;

    pFile = fopen ("privmsg.log", "a");

    fprintf (pFile, "%02d-%02d-%02d %02d:%02d [%s > %s] %s\n", tdate.tm_mday, tdate.tm_mon + 1, tdate.tm_year - 100, tdate.tm_hour, tdate.tm_min, cptr->name, acptr->name, text);

    fclose (pFile);


    return text;
}

DLLFUNC char *loggit_chanmsg(aClient *cptr, aClient *sptr, aChannel *chptr, char *text, int notice)
{

    time_t calender_time;
    struct tm tdate;
    calender_time = time(NULL);
    tdate = *localtime(&calender_time);

    FILE * pFile;

    pFile = fopen ("chanmsg.log", "a");

    fprintf (pFile, "%02d-%02d-%02d %02d:%02d [%s] [%s] %s\n", tdate.tm_mday, tdate.tm_mon + 1, tdate.tm_year - 100, tdate.tm_hour, tdate.tm_min, chptr->chname, cptr->name, text);
    
    fclose (pFile);

    return text;
}</fcntl></string></stdlib></stdio></sys></time>

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

* ==================================================================

* Filename: m_loggit.c

* Description: Real-time Logging

* Written by: MartinCo

* ==================================================================

#include "config.h"

#include "struct.h"

#include "common.h"

#include "sys.h"

#include "numeric.h"

#include "msg.h"

#include "channel.h"

#include <time .h>

#include <sys /stat.h>

#include <stdio .h>

#include <stdlib .h>

#include <string .h>

#include <fcntl .h>

#include "h.h"

// ==================================================================

// Definitions & macros

// ================================

#define MyMod LoggitModInfo->handle

#define DelHook(x) if (x) HookDel(x); x = NULL

DLLFUNC char *loggit_privmsg(aClient *, aClient *, aClient *, char *, int);

DLLFUNC char *loggit_chanmsg(aClient *, aClient *, aChannel *, char *, int);

// ==================================================================

// Module header

// ==================================================================

ModuleHeader MOD_HEADER(m_loggit)

= {

"Loggit",

"$Id: m_loggit.c,v 3.6 2007 MartinCo Exp $",

"Loggit",

"3.2-b8-1",

NULL

};

ModuleInfo *LoggitModInfo;

static Hook *HookPrivMsg;

static Hook *HookChanMsg;

static FILE *fp;

DLLFUNC int MOD_INIT(m_loggit)(ModuleInfo *modinfo)

{

int ret = MOD_SUCCESS;

LoggitModInfo = modinfo;

HookPrivMsg = HookAddPCharEx(MyMod, HOOKTYPE_USERMSG, loggit_privmsg);

HookChanMsg = HookAddPCharEx(MyMod, HOOKTYPE_CHANMSG, loggit_chanmsg);

return ret;

}

DLLFUNC int MOD_LOAD(m_loggit)(int module_load)

{

return MOD_SUCCESS;

}

DLLFUNC int MOD_UNLOAD(m_loggit)(int module_unload)

{

DelHook(HookChanMsg);

DelHook(HookPrivMsg);

return MOD_SUCCESS;

}

// ==================================================================

// Functions for nicknames, channel names and prefixes

// ==================================================================

DLLFUNC char *loggit_privmsg(aClient *cptr, aClient *sptr, aClient *acptr, char *text, int notice)

{

time_t calender_time;

struct tm tdate;

calender_time = time(NULL);

tdate = *localtime(&calender_time);

FILE * pFile;

pFile = fopen ("privmsg.log", "a");

fprintf (pFile, "%02d-%02d-%02d %02d:%02d [%s > %s] %s\n", tdate.tm_mday, tdate.tm_mon + 1, tdate.tm_year - 100, tdate.tm_hour, tdate.tm_min, cptr->name, acptr->name, text);

fclose (pFile);

return text;

}

DLLFUNC char *loggit_chanmsg(aClient *cptr, aClient *sptr, aChannel *chptr, char *text, int notice)

{

time_t calender_time;

struct tm tdate;

calender_time = time(NULL);

tdate = *localtime(&calender_time);

FILE * pFile;

pFile = fopen ("chanmsg.log", "a");

fprintf (pFile, "%02d-%02d-%02d %02d:%02d [%s] [%s] %s\n", tdate.tm_mday, tdate.tm_mon + 1, tdate.tm_year - 100, tdate.tm_hour, tdate.tm_min, chptr->chname, cptr->name, text);

fclose (pFile);

return text;

}</fcntl></string></stdlib></stdio></sys></time>

Bu module sayesinde kanal ve özel konuşmalarını ( siz online olmasanız bile ) kaydedebilecek ve inceleyebileceksiniz. Sistem, özel konuşmaları Unreal klasörü içerisine privmsg.log olarak, kanal konuşmalarını ise yine aynı klasöre chanmsg.log olarak kaydediyor. İstediğiniz değişiklikleri yapıp kullanmak da mümkün. Alıntıdır.

» Devamını Oku

Yorum yaz Kanal, log, modul, Özel, unrealircd

mIRC Script Log sistem.

16 Ekim 2015 • 13:45 OxiGeN Addonlar, Hazır Kodlar, Türkçe mIRC

alias kayitgosterici.mo { var %s = $$input($nopath($longfn($1-) dosyasi icinde aramak istediginizi yaziniz: ),eq,Arama) if ($window(@LogArama)) { clear @LogArama } window -k0z @LogArama var %t = $ticks kte_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) […]

» Devamını Oku

Yorum yaz hazır kodlar, log, mirc, script, scripting, sistem, turkce mırc

Log Kayıt Sistemi (TXT)

10 Nisan 2014 • 15:10 OxiGeN Addonlar

on *:text:*:?:{
  if !kayit* iswm $1- {  
    if $read(kayit.txt,w,Ad: $2 Soyad:  $3  Yaş:  $4  Semt:  $5-) { 
      .echo -a 4 $2- 2 Listede zaten ekli  
      .msg $nick 4 $2- 2 Listede zaten ekli  
    } 
    else { 
      write kayit.txt  Ad: $2 Soyad:  $3  Yaş:  $4  Semt:  $5-  {
        .echo -a   4 Ad: 2 $2 4 Soyad: 2 $3 4 Yaş: 2 $4 4 Semt: 2 $5-  Kayit Listesine Eklendi
        .msg $nick 4 Ad: 2 $2 4 Soyad: 2 $3 4 Yaş: 2 $4 4 Semt: 2 $5-  Kayit Listesine Eklendi 
      } 
    } 
  }
}

on *:text:*:?:{

if !kayit* iswm $1- {

if $read(kayit.txt,w,Ad: $2 Soyad: $3 Yaş: $4 Semt: $5-) {

.echo -a 4 $2- 2 Listede zaten ekli

.msg $nick 4 $2- 2 Listede zaten ekli

}

else {

write kayit.txt Ad: $2 Soyad: $3 Yaş: $4 Semt: $5- {

.echo -a 4 Ad: 2 $2 4 Soyad: 2 $3 4 Yaş: 2 $4 4 Semt: 2 $5- Kayit Listesine Eklendi

.msg $nick 4 Ad: 2 $2 4 Soyad: 2 $3 4 Yaş: 2 $4 4 Semt: 2 $5- Kayit Listesine Eklendi

}

» Devamını Oku

Yorum yaz addon, kayit, log, mirc, sistem

mIRC Script Log sistem

28 Şubat 2014 • 00:18 OxiGeN Addonlar

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 -)&gt; 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)&gt; 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)&gt; 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 &amp; &amp;% 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&gt; 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 $ + (&lt;html&gt; &lt;head&gt; &lt;title&gt;, $ nopath ($ longfn (% f )),&lt;/ title&gt; &lt;/ head&gt; &lt;style type = \ \ "metin / css \ \ "&gt;&lt;!--)
    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 &lt;=% tt) (süre
      rline @ htmlolustur% i $ + ($ ($ (@ htmlolustur,% i )),&lt;,&amp; lt ;,&gt;,&amp; 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&gt; 5000) (did-ra htmlolustur 10 $ süresi (int $ ($ (($ kenelerin -% p) / 1000 /% u *% tt kalk - (($ kenelerin -% p) / 1000) ise ))))
      )
      inc% i
      inc% u
    )
    aline @ htmlolustur &lt;/ html&gt;
    savebuf-a @ htmlolustur $ + (\ \ ",% o, \ \")
    yak?n - @ @ htmlolustur
    dialog-c htmlolustur
    yazmak-L3 $ + (\ \ ",% o, \ \") --&gt;&lt;/ style&gt; &#8226; HTML $ Tarih Tarihinde $ tur ($ calc (($ keneler dosyasi tarafindan log - % p) / 1000), 2) saniyede,  &#8226; $ 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&gt; 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
)

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

)

» Devamını Oku

Yorum yaz log, mirc, script, sistem

Log Okuma Sistemi

14 Aralık 2013 • 11:37 OxiGeN Addonlar, Hazır Kodlar

Aşağıdaki kod kanalda mause üzerinde sağ tuşa tıkladığımızda kanal menüsü içerisinde log tarama sistemini gösterecektir. Mevcut log tutulmuş kanallar menüyü açtığımız penceredeki kanalı: #kanal <– şeklinde görünecektir. Nick logları içinse: özel loglar <— kısmına tıklıyoruz ve logunu görüntülemek istediğimiz nick’i açılan pencereye yazıyoruz. Gayet geliştirilmiş bir log okuma sistemi. KOD; menu channel { Loglar menüsü .# logu:kanal # .Özel logları:falan […]

» Devamını Oku

Yorum yaz gelişmiş log, log, Log okuma, log sistem