Log okumaniz için PC-win ile yazdigim bir kod.

;Yapimci: AtABeY ;Bu kod'u editleyipte "ben yaptim" diyen/yazan, "karakter fakiri" oldugunu açik bir sekilde ifade etmektedir. ;------------------------------------------------------------------------------------------------------------ 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 basari ile yüklendi. Yapimci: $+($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 basari ile kaldirildi. Yapimci: $+($chr(2),L4roXyL) alias silya echo -aet mIRC'inizde $+($chr(2),x-Gui.dll,$chr(2)) bulunmamaktadir. 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,Sali,Wednesday,Çarsamba,Thursday,Persembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar) alias sillog noop $findfile($logdir,*,0,.remove -b $shortfn($1-)) | $iif($input(Tüm loglar basari ile silinmistir.,o,Uyari) == $true,window -c @log,window -c @log) alias logoku { if ($findfile($logdir,*,0) == 0) { $iif($input(Herhangi bir log dosyaniz bulunmuyor.,o,Uyari) == $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 ( 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),Olusturulma 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 loglari silmek istediginiz'den eminmisiniz?,y,Uyari!) == $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,Uyari!) == $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 dosyasi basari ile silindi.,o,Uyari) == $true,haltdef,haltdef) } } } } } menu @log { sclick: { if ($mouse.y >= 5 && $mouse.y < 15 && $mouse.x >= 584 && $mouse.x < 593) window -c @log } } menu menubar,query { Log oku:logoku } www.mirc25.net