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 "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 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
-
}

Alıntıdır...
Kodun sahibi: DefauLt