広告宣伝じゃないんですが、
>>794
ウィルスコードって、Rockで対応したらいいと思うんですが。
どうでしょう?

Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder
あたりで登録するとか。