Kod

- alias _tara { 
if $1 { 
var %_dizin $shortfn($1-) , %_dsayisi $findfile(%_dizin,*.*,0) , %_x 1 
while %_x <= %_dsayisi { 
%_1 = $findfile(%_dizin,*.*,%_x) 
if $readini(%_1,rfiles,$+(n,0)) { 
%_2 = 0 
while $readini(%_1,rfiles,$+(n,%_2)) { 
%_f = $shortfn($replace($+(%_dizin,$ifmatch),\\,\,//,/)) 
if $dialog(tr_remover) { 
if $did($ifmatch,4).lines == 0 { did -e tr_remover 6 } 
did -a tr_remover 4 %_f 
did -a tr_remover 9 $calc($did(tr_remover,9) + 1) 
} 
inc %_2 
} 
} 
inc %_x 
} 
unset %_1 , %_2 , %_f 
} 
} 

alias _tr { 
if !$dialog(tr_remover) { dialog -m tr_remover tr_remover } 
} 

dialog tr_remover { 
title "IRC Trojan Remover by DefauLt" 
size -1 -1 195 191 
option dbu 
edit "", 1, 62 19 84 10, return autohs autovs 
button "Gozat...", 2, 148 19 30 10 
text "Windows dizininiz:", 3, 15 20 45 8 
list 4, 62 46 116 107, size hsbar vsbar 
button "Taramaya basla!", 5, 123 161 55 10 
button "Bulunanlari sil...", 6, 62 161 55 10 
text "Bulunan dosyalar:", 7, 15 46 45 8 
text "Toplam:", 8, 15 61 20 8 
text "0", 9, 37 61 11 8 
text "DefauLt ©", 10, 15 90 36 8 
link "default@mircturk.com", 11, 15 100 45 8 
box "IRC Trojan Remover", 12, 5 5 184 178 
button "Tamam", 13, 14 161 30 10, ok 
} 

on *:dialog:tr_remover:*:*:{ 
if $devent == init { 
did -b $dname 5,6 
} 
if $devent == sclick { 
if $did == 2 { 
if $sdir($gettok($mircexe,1,92),Windows dizininizi secin) { 
did -ra $dname 1 $ifmatch 
did -e $dname 5 
} 
} 
if $did == 5 && $did($dname,1) { 
if $input(Taramanin verimli olabilmesi icin calisan diger tum programlarinizi kapattiktan sonra OK butonuna tiklayin ve bu mIRC ile tarama bitene kadar ilgilenmeyin.,ic,Bilgi) { 
_tara $did($dname,1) 
} 
} 
if $did == 6 { 
if $input(Bulunan dosyalari silmek istiyor musunuz?,ic,Silme islemi) { 
var %_w 1 
while %_w <= $did($dname,4).lines { 
remove $did($dname,4,%_w).text 
inc %_w 
} 
} 
} 
} 
} 

menu status,menubar { 
- 
IRC Trojan Remover:_tr 
- 
}