Log okuyucu codesi

kullanım:/log oku

on *:load:if ($findfile($mircdir,x-gui.dll,0)) echo -aet Log $+(okuma,$chr(40),$chr(2),/logoku,$chr(2),$chr(41)) add-on’u başarı ile yüklendi. Yapımcı: $+($chr(2),L4roXyL) | else silya
on *:unload:noop $findfile($mircdir,r*.bmp,0,.remove -b $shortfn($1-)) | noop $findfile($mircdir,buton*.bmp,0,.remove -b $shortfn($1-)) | echo -ate Log okuma add-on’u başarı ile kaldırıldı. Yapımcı: $+($chr(2),L4roXyL)
alias silya echo -aet mIRC’inizde $+($chr(2),x-Gui.dll,$chr(2)) bulunmamaktadır. Add-on yüklenmedi. | .unload -rs $shortfn($script)
alias xgui return $dll(x-gui.dll,$1,$2-)
alias -l day return  $replacecs($1,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar)
alias sillog noop $findfile($logdir,*,0,.remove -b $shortfn($1-)) | $iif($input(Tüm loglar başarı ile silinmiştir.,o,Uyarı) == $true,window -c @log,window -c @log)
alias -l movee {
var %dx = $calc($mouse.dx -$2),%dy = $calc($mouse.dy -$3)
$iif($window($1),window $v1 %dx %dy)
$iif($mouse.key & 1,.timer -m 1 0 movee $1-)
}
alias logoku {
if ($findfile($logdir,*,0) == 0) { $iif($input(Herhangi bir log dosyanız bulunmuyor.,o,Uyarı) == $true,halt,halt) | halt }
else {
window -c @log | var %1 = $iif(%cubuk,%cubuk,$rgb(3,113,118)) | buton_paint | clr_paint
window -BpdCk0 +d @log -1 -1 600 480
drawfill -r @log $iif(%tema,%tema,$rgb(5,169,177)) $iif(%tema,%tema,$rgb(5,169,177)) 0 0
drawrect -r @log %1 5 0 0 600 480 | drawline -r @log %1 3 0 20 600 20
drawrect -rf @log %1 1 2 2 594 17
drawtext -r @log $iif(%text,%text,$rgb(7,223,235)) Verdana 12 8 4 $+($chr(160),Log) okuma ( <PC-win|Xgui> L4roXyL )
drawtext -r @log $iif(%text,%text,$rgb(7,223,235)) Verdana 12 585 3 x | xgui Mark @log
xgui Create @log > button 1 10 452 70 20 bitmap > buton5.bmp,buton6.bmp,buton5.bmp
xgui Create @log > button 2 453 452 66 20 bitmap > buton3.bmp,buton4.bmp,buton3.bmp
xgui Create @log > button 3 523 452 66 20 bitmap > buton.bmp,buton2.bmp,buton.bmp
xgui Create @log > button 7 453 30 15 15 bitmap > r.bmp,ra.bmp,ra.bmp
xgui Create @log > button 8 473 30 15 15 bitmap > r2.bmp,ra2.bmp,ra2.bmp
xgui Create @log > button 9 493 30 15 15 bitmap > r3.bmp,ra3.bmp,ra3.bmp
xgui Create @log > button 10 513 30 15 15 bitmap > r4.bmp,ra4.bmp,ra4.bmp
xgui Create @log > button 11 533 30 15 15 bitmap > r5.bmp,ra5.bmp,ra5.bmp
xgui Create @log > button 12 553 30 15 15 bitmap > r6.bmp,ra6.bmp,ra6.bmp
xgui Create @log > button 13 573 30 15 15 bitmap > r7.bmp,ra7.bmp,ra7.bmp
xgui Create @log > listbox 4 453 50 136 395 size vsbar hsbar
xgui Create @log > richedit 5 10 50 435 395 vsbar hsbar
xgui Create @log > richedit 6 90 453 350 20 center
xgui Create @log > richedit 14 12 27 350 20
xgui Set @log > color 4 $iif(%text,%text,$rgb(7,223,235)) $iif(%cubuk,%cubuk,$rgb(3,113,118))
xgui Set @log > style 4 windowedge | xgui Set @log > style 4 border
xgui Set @log > color 5 $iif(%text,%text,$rgb(7,223,235)) $iif(%cubuk,%cubuk,$rgb(3,113,118))
xgui Set @log > style 5 windowedge | xgui Set @log > style 5 border
xgui Set @log > color 6 $iif(%tema,%tema,$rgb(5,169,177)) $iif(%text,%text,$rgb(7,223,235))
xgui Set @log > style 6 windowedge
xgui Set @log > color 14 $iif(%tema,%tema,$rgb(5,169,177)) $iif(%text,%text,$rgb(7,223,235))
xgui Set @log > style 14 windowedge
xgui Set @log > font 4 Verdana > 8 1 0 0 0 | xgui Set @log > font 5 Verdana > 9 1 0 0 0 | window -a @log
return $findfile($logdir,*,0,xgui Listbox @log > AddItem 4   $nopath($1-))
}
}
alias buton_paint {
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%tema,%tema,$rgb(5,169,177)) $iif(%tema,%tema,$rgb(5,169,177)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%text,%text,$rgb(7,223,235)) Verdana 12 22 3 SIL
drawsave -b32 @buton buton.bmp | window -c @buton
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%text,%text,$rgb(7,223,235)) $iif(%text,%text,$rgb(7,223,235)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%tema,%tema,$rgb(5,169,177)) Verdana 12 22 3 SIL
drawsave -b32 @buton buton2.bmp | window -c @buton
;buton 2
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%tema,%tema,$rgb(5,169,177)) $iif(%tema,%tema,$rgb(5,169,177)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%text,%text,$rgb(7,223,235)) Verdana 12 17 3 T.SIL
drawsave -b32 @buton buton3.bmp | window -c @buton
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%text,%text,$rgb(7,223,235)) $iif(%text,%text,$rgb(7,223,235)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%tema,%tema,$rgb(5,169,177)) Verdana 12 17 3 T.SIL
drawsave -b32 @buton buton4.bmp | window -c @buton
;buton 3
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%tema,%tema,$rgb(5,169,177)) $iif(%tema,%tema,$rgb(5,169,177)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%text,%text,$rgb(7,223,235)) Verdana 12 6 3 TEMIZLE
drawsave -b32 @buton buton5.bmp | window -c @buton
window -BphdCk0 +d @buton -1 -1 70 20
drawfill -r @buton $iif(%text,%text,$rgb(7,223,235)) $iif(%text,%text,$rgb(7,223,235)) 0 0
drawrect -r @buton $iif(%cubuk,%cubuk,$rgb(3,113,118)) 3 0 0 70 20
drawtext -ro @buton $iif(%tema,%tema,$rgb(5,169,177)) Verdana 12 6 3 TEMIZLE
drawsave -b32 @buton buton6.bmp | window -c @buton
}
alias clr_paint {
window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(167,120,134) $rgb(167,120,134) 0 0
drawsave -b32 @r r.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(201,173,182) $rgb(201,173,182) 0 0
drawsave -b32 @r ra.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(118,146,90) $rgb(118,146,90) 0 0
drawsave -b32 @r r2.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(193,208,172) $rgb(193,208,172) 0 0
drawsave -b32 @r ra2.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(174,2,32) $rgb(174,2,32) 0 0
drawsave -b32 @r r3.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(253,96,123) $rgb(253,96,123) 0 0
drawsave -b32 @r ra3.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(104,117,117) $rgb(104,117,117) 0 0
drawsave -b32 @r r4.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(158,169,169) $rgb(158,169,169) 0 0
drawsave -b32 @r ra4.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(116,45,181) $rgb(116,45,181) 0 0
drawsave -b32 @r r5.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(182,135,226) $rgb(182,135,226) 0 0
drawsave -b32 @r ra5.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(184,188,16) $rgb(184,188,16) 0 0
drawsave -b32 @r r6.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(232,237,35) $rgb(232,237,35) 0 0
drawsave -b32 @r ra6.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(5,169,177) $rgb(5,169,177) 0 0
drawsave -b32 @r r7.bmp | window -c @r | window -BphdCk0 +d @r -1 -1 15 15
drawfill -r @r $rgb(7,223,235) $rgb(7,223,235) 0 0
drawsave -b32 @r ra7.bmp | window -c @r
}
on *:signal:xGui: {
if ($1 == @log) {
if ($2 == dclick) && ($3 == 4) {
xgui Richedit @log > Clear 5 | xgui Richedit @log > SetMargins 5 10 | var %& = $dll(x-GUI.dll,Listbox,@log > GetSelText 4)
var %t = $shortfn($findfile($logdir,$gettok(%&,2,32),1))
xgui Richedit @log > Clear 14 | xgui Richedit @log > Echo 14 $+($chr(2),Oluşturulma tarihi:,$chr(32),$chr(2),$asctime($file(%t).ctime,dd/mm/yy)) $+($str($chr(160),5),$chr(2),Gün:,$chr(2),$chr(32),$day($asctime($file(%t).ctime,dddd))) $+($str($chr(160),5),$chr(2),Saat:,$chr(32),$chr(2),$asctime($file(%t).ctime,HH:nn:ss TT))
var %2 = 1 | while (%2 <= $lines(%t)) { xgui Richedit @log > Echo 5 $strip($read(%t,%2)) | inc %2 }
xgui Richedit @log > Clear 6 | xgui Richedit @log > Echo 6 $+($chr(2),Dosya:,$chr(32),$chr(2),$gettok(%&,2,32)) – $+($chr(2),Boyut:,$chr(2),$chr(32),$bytes($file(%t).size,k)) KB
}
if ($2 == sclick) {
if ($3 == 7) { set %tema $rgb(167,120,134) | set %text $rgb(201,173,182) | set %cubuk $rgb(103,67,78) | logoku | xgui Set @log > disable 7 }
if ($3 == 8) { set %tema $rgb(118,146,90) | set %text $rgb(193,208,172) | set %cubuk $rgb(91,113,70) | logoku | xgui Set @log > disable 8 }
if ($3 == 9) { set %tema $rgb(174,2,32) | set %text $rgb(253,96,123) | set %cubuk $rgb(107,1,20) | logoku | xgui Set @log > disable 9 }
if ($3 == 10) { set %tema $rgb(104,117,117) | set %text $rgb(158,169,169) | set %cubuk $rgb(70,79,79) | logoku | xgui Set @log > disable 10 }
if ($3 == 11) { set %tema $rgb(116,45,181) | set %text $rgb(182,135,226) | set %cubuk $rgb(66,26,102) | logoku | xgui Set @log > disable 11 }
if ($3 == 12) { set %tema $rgb(184,188,16) | set %text $rgb(232,237,35) | set %cubuk $rgb(105,107,10) | logoku | xgui Set @log > disable 12 }
if ($3 == 13) { set %tema $rgb(5,169,177) | set %text $rgb(7,223,235) | set %cubuk $rgb(3,113,118) | logoku | xgui Set @log > disable 13 }
if ($3 == 1) { xgui Richedit @log > Clear 5 | xgui Richedit @log > Clear 6 }
if ($3 == 2) { $iif($input(Tüm logları silmek istediğiniz’den eminmisiniz?,y,Uyarı!) == $true,sillog,halt) }
if ($3 == 3) {
var %& = $dll(x-GUI.dll,Listbox,@log > GetSelText 4)
var %tt = $shortfn($findfile($logdir,$gettok(%&,2,32),1))
if (!%tt) $iif($input(Listeden veri seçmediniz?,o,Uyarı!) == $true,window -a @log,window -a @log) halt
else { .remove -b %tt | xgui Listbox @log > DeleteItem 4 $dll(x-GUI.dll,Listbox,@log > GetSelItem 4) | $iif($input(%tt dosyası başarı ile silindi.,o,Uyarı) == $true,haltdef,haltdef) }
}
}
}
}
menu @log {
sclick:if ($mouse.y >= 5 && $mouse.y < 15 && $mouse.x >= 584 && $mouse.x < 593) { window -c @log }
mouse:if ($mouse.x isnum 1-648 && $mouse.y isnum 1-17) { movee $menu $calc($mouse.dx – $window($menu).x) $calc($mouse.dy – $window($menu).y) }
}
menu menubar,query {
Log oku:logoku
}

alıntıdır.