Office programlarında ve/veya telefon klavyelerinde var olan hatalı yazımı düzeltme işlevini mIRC'te yapar.
Word kullanarak yazılmıştır. Diğer sürümlerde de çalışabilir ancak test edilmemiştir. (Bazı sürümlerde Outlook kullanıcı kaydı sorunu olabilmektedir. Deneyip yaşayan olursa hata mesajını paylaşabilir.)
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias dzn {
var %s $+(qw,$r(1,999)) | .comopen %s Word.Application
noop $com(%s, CheckSpelling, 3, bstr, $1-) | var %q $com(%s).result
if !%q { var %q1 1
while %q1 <= $0 { if $com(%s, CheckSpelling, 3, bstr, $($+($,%q1),2)) {
var %d $com(%s).result
if %d { var %kq $addtok(%kq,$($+($,%q1),2),32) }
else { var %kq $addtok(%kq,$right($sd($($+($,%q1),2)),-7),32) }
inc %q1
}
}
echo -a Onerilen cümle: %kq
}
else { echo -a Oneri yok: cumle tamamen dogru. }
noop $com(%s,Quit,1)
.comclose %s
}
alias sd {
var %şşş $+(com,$r(1,999)) | .comopen %şşş wscript.shell
.comclose %şşş $com(%şşş,run,1,bstr,cmd.exe /k $&
powershell $+($chr(36),dz=new-object -COM Word.Application;) $+($chr(36),dz.Documents.Add,$chr(40),$chr(41),;) $+($chr(36),dz.GetSpellingSuggestions,$chr(40),',$1,',$chr(41),;) $+($chr(36),dz.Quit,$chr(40),$chr(41)) $&
$+ |clip & exit,uint,0,bool,1)
return $cb(1260)
}